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

编程问答 2022-12-04

问题描述

这就是结果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 (将#修改为@）

httpclienthttpclientlaravellaravelxmlxmlxmlxmlxmlxmlxsdxsdxsd