微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

在 PHP Laravel 中解析 XSD 文件 使用 Http 客户端读取 xs:schema

如何解决在 PHP Laravel 中解析 XSD 文件 使用 Http 客户端读取 xs:schema

这就是结果Api 我正在开发一个网站,我的应用程序需要这个网络服务。执行 GET 请求但我无法使用 HTTP CLIENT 获取值时。 请帮忙。

如何获取 ADN_Status 值?

Integer results::
0000000           1           1           1           1
0000016           1           1           1           1
0000032           1           1           1           1
0000048           1           1           1           1
0000064


Double Precision results::
0000000           0  1072693248           0  1072693248
0000016           0  1072693248           0  1072693248
0000032           0  1072693248           0  1072693248
0000048           0  1072693248           0  1072693248
0000064           0  1072693248           0  1072693248
0000080           0  1072693248           0  1072693248
0000096           0  1072693248           0  1072693248
0000112           0  1072693248           0  1072693248
0000128

This is the code:


    program test
    use mpi
    implicit none
    integer::rank,nproc,ierr,buffsize,status(MPI_STATUS_SIZE),intsize,i,j,filetype,cart_comm,count
    integer::fh
    integer(kind=mpi_offset_kind):: offset=0
    double precision,dimension(2,2)::buff
    character:: filename*50
    integer::sizes(2)
    integer::gsize(2)
    integer::start(2)
    integer::subsize(2)
    integer::coords(2)
    integer:: nprocs_cart(2)=(/2,2/)
    logical::periods(2)
    character:: name*50,para*100,zone*100

    gsize=(/4,4/)
    subsize=(/2,2/)
    offset=0
    buff=1.d0
    count=1

    call MPI_init(ierr)
    call MPI_COMM_SIZE(MPI_COMM_WORLD,ierr)
    call MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
    CALL MPI_Dims_create(nproc,2,nprocs_cart,ierr)
    CALL MPI_Cart_create(MPI_COMM_WORLD,periods,.TRUE.,&
    cart_comm,ierr)
    CALL MPI_Comm_rank(cart_comm,ierr)
    CALL MPI_Cart_coords(cart_comm,coords,ierr)


    start=coords*2

    call MPI_TYPE_CREATE_SUBARRAY(2,gsize,subsize,start,MPI_ORDER_FORTRAN,&
    MPI_DOUBLE_PRECISION,ierr)
    call MPI_TYPE_COMMIT(filetype,ierr)

    If( rank == 0 ) Then
        Call mpi_file_delete( 'out.dat',MPI_INFO_NULL,ierr )
     End If

     Call mpi_barrier( mpi_comm_world,ierr )
    
    call MPI_File_open(MPI_COMM_WORLD,'out.dat',&
            MPI_MODE_WRONLY + MPI_MODE_CREATE,fh,ierr)
    
    
        call MPI_File_set_view(fh,offset,MPI_DOUBLE_PRECISION,&
        "native",ierr)
      
        CALL MPI_FILE_WRITE_all(fh,buff,4,MPI_STATUS_ignore,ierr)
    
    
    call MPI_File_close(fh,ierr)
    call MPI_FINALIZE(ierr)
    end program test

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。