mpi_t1.f90

fortran并行计算包

        END SUBROUTINE MPI_REDUCE_SCATTER_T

        SUBROUTINE MPI_SEND_T(v0,v1,v2,v3,v4,v5,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER ierror
        EXTERNAL MPI_SEND
        CALL MPI_SEND(v0,v1,v2,v3,v4,v5,ierror)
        END SUBROUTINE MPI_SEND_T

        SUBROUTINE MPI_SSEND_T(v0,v1,v2,v3,v4,v5,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER ierror
        EXTERNAL MPI_SSEND
        CALL MPI_SSEND(v0,v1,v2,v3,v4,v5,ierror)
        END SUBROUTINE MPI_SSEND_T

        SUBROUTINE MPI_UNPACK_EXTERNAL_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        CHARACTER (LEN=*) v0
        <type> v1<dims>
        INTEGER(KIND=MPI_ADDRESS_KIND) v2
        INTEGER(KIND=MPI_ADDRESS_KIND) v3
        <type1> v4<dims1>
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_UNPACK_EXTERNAL
        CALL MPI_UNPACK_EXTERNAL(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_UNPACK_EXTERNAL_T

        SUBROUTINE MPI_ALLGATHER_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        <type1> v3<dims1>
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_ALLGATHER
        CALL MPI_ALLGATHER(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_ALLGATHER_T

        SUBROUTINE MPI_GET_ADDRESS_T(v0,v1,ierror)
        <type> v0<dims>
        INTEGER(KIND=MPI_ADDRESS_KIND) v1
        INTEGER ierror
        EXTERNAL MPI_GET_ADDRESS
        CALL MPI_GET_ADDRESS(v0,v1,ierror)
        END SUBROUTINE MPI_GET_ADDRESS_T

        SUBROUTINE MPI_EXSCAN_T(v0,v1,v2,v3,v4,v5,ierror)
        <type> v0<dims>
        <type1> v1<dims1>
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER ierror
        EXTERNAL MPI_EXSCAN
        CALL MPI_EXSCAN(v0,v1,v2,v3,v4,v5,ierror)
        END SUBROUTINE MPI_EXSCAN_T

        SUBROUTINE MPI_PACK_EXTERNAL_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        CHARACTER (LEN=*) v0
        <type> v1<dims>
        INTEGER v2
        INTEGER v3
        <type1> v4<dims1>
        INTEGER(KIND=MPI_ADDRESS_KIND) v5
        INTEGER(KIND=MPI_ADDRESS_KIND) v6
        INTEGER ierror
        EXTERNAL MPI_PACK_EXTERNAL
        CALL MPI_PACK_EXTERNAL(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_PACK_EXTERNAL_T

        SUBROUTINE MPI_IRECV_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_IRECV
        CALL MPI_IRECV(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_IRECV_T

        SUBROUTINE MPI_WIN_CREATE_KEYVAL_T(v0,v1,v2,v3,ierror)
        EXTERNAL v0
        EXTERNAL v1
        INTEGER v2
        <type> v3<dims>
        INTEGER ierror
        EXTERNAL MPI_WIN_CREATE_KEYVAL
        CALL MPI_WIN_CREATE_KEYVAL(v0,v1,v2,v3,ierror)
        END SUBROUTINE MPI_WIN_CREATE_KEYVAL_T

        SUBROUTINE MPI_SCATTERV_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        <type1> v4<dims1>
        INTEGER v5
        INTEGER v6
        INTEGER v7
        INTEGER v8
        INTEGER ierror
        EXTERNAL MPI_SCATTERV
        CALL MPI_SCATTERV(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        END SUBROUTINE MPI_SCATTERV_T

        SUBROUTINE MPI_SCAN_T(v0,v1,v2,v3,v4,v5,ierror)
        <type> v0<dims>
        <type1> v1<dims1>
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER ierror
        EXTERNAL MPI_SCAN
        CALL MPI_SCAN(v0,v1,v2,v3,v4,v5,ierror)
        END SUBROUTINE MPI_SCAN_T

        SUBROUTINE MPI_RSEND_T(v0,v1,v2,v3,v4,v5,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER ierror
        EXTERNAL MPI_RSEND
        CALL MPI_RSEND(v0,v1,v2,v3,v4,v5,ierror)
        END SUBROUTINE MPI_RSEND_T

        SUBROUTINE MPI_PACK_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        <type1> v3<dims1>
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_PACK
        CALL MPI_PACK(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_PACK_T

        SUBROUTINE MPI_ALLGATHERV_T(v0,v1,v2,v3,v4,v5,v6,v7,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        <type1> v3<dims1>
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER v7
        INTEGER ierror
        EXTERNAL MPI_ALLGATHERV
        CALL MPI_ALLGATHERV(v0,v1,v2,v3,v4,v5,v6,v7,ierror)
        END SUBROUTINE MPI_ALLGATHERV_T

        SUBROUTINE MPI_BSEND_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_BSEND_INIT
        CALL MPI_BSEND_INIT(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_BSEND_INIT_T

        SUBROUTINE MPI_RSEND_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_RSEND_INIT
        CALL MPI_RSEND_INIT(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_RSEND_INIT_T

        SUBROUTINE MPI_GATHERV_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        <type1> v3<dims1>
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER v7
        INTEGER v8
        INTEGER ierror
        EXTERNAL MPI_GATHERV
        CALL MPI_GATHERV(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        END SUBROUTINE MPI_GATHERV_T

        SUBROUTINE MPI_ADDRESS_T(v0,v1,ierror)
        <type> v0<dims>
        INTEGER(KIND=MPI_ADDRESS_KIND) v1
        INTEGER ierror
        EXTERNAL MPI_ADDRESS
        CALL MPI_ADDRESS(v0,v1,ierror)
        END SUBROUTINE MPI_ADDRESS_T

        SUBROUTINE MPI_WIN_GET_ATTR_T(v0,v1,v2,v3,ierror)
        INTEGER v0
        INTEGER v1
        <type> v2<dims>
        INTEGER v3
        INTEGER ierror
        EXTERNAL MPI_WIN_GET_ATTR
        CALL MPI_WIN_GET_ATTR(v0,v1,v2,v3,ierror)
        END SUBROUTINE MPI_WIN_GET_ATTR_T

        SUBROUTINE MPI_SEND_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_SEND_INIT
        CALL MPI_SEND_INIT(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_SEND_INIT_T

        SUBROUTINE MPI_ALLTOALLW_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        <type> v0<dims>
        INTEGER v1(*)
        INTEGER v2(*)
        INTEGER v3(*)
        <type1> v4<dims1>
        INTEGER v5(*)
        INTEGER v6(*)
        INTEGER v7(*)
        INTEGER v8
        INTEGER ierror
        EXTERNAL MPI_ALLTOALLW
        CALL MPI_ALLTOALLW(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        END SUBROUTINE MPI_ALLTOALLW_T

        SUBROUTINE MPI_ATTR_GET_T(v0,v1,v2,v3,ierror)
        INTEGER v0
        INTEGER v1
        <type> v2<dims>
        LOGICAL v3
        INTEGER ierror
        EXTERNAL MPI_ATTR_GET
        CALL MPI_ATTR_GET(v0,v1,v2,v3,ierror)
        END SUBROUTINE MPI_ATTR_GET_T

        SUBROUTINE MPI_COMM_SET_ATTR_T(v0,v1,v2,ierror)
        INTEGER v0
        INTEGER v1
        <type> v2<dims>
        INTEGER ierror
        EXTERNAL MPI_COMM_SET_ATTR
        CALL MPI_COMM_SET_ATTR(v0,v1,v2,ierror)
        END SUBROUTINE MPI_COMM_SET_ATTR_T

        SUBROUTINE MPI_SENDRECV_REPLACE_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER v7
        INTEGER v8(MPI_STATUS_SIZE)
        INTEGER ierror
        EXTERNAL MPI_SENDRECV_REPLACE
        CALL MPI_SENDRECV_REPLACE(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        END SUBROUTINE MPI_SENDRECV_REPLACE_T

        SUBROUTINE MPI_TYPE_SET_ATTR_T(v0,v1,v2,ierror)
        INTEGER v0
        INTEGER v1
        <type> v2<dims>
        INTEGER ierror
        EXTERNAL MPI_TYPE_SET_ATTR
        CALL MPI_TYPE_SET_ATTR(v0,v1,v2,ierror)
        END SUBROUTINE MPI_TYPE_SET_ATTR_T

        SUBROUTINE MPI_ISSEND_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_ISSEND
        CALL MPI_ISSEND(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_ISSEND_T

        SUBROUTINE MPI_BCAST_T(v0,v1,v2,v3,v4,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER ierror
        EXTERNAL MPI_BCAST
        CALL MPI_BCAST(v0,v1,v2,v3,v4,ierror)
        END SUBROUTINE MPI_BCAST_T

        SUBROUTINE MPI_COMM_GET_ATTR_T(v0,v1,v2,v3,ierror)
        INTEGER v0
        INTEGER v1
        <type> v2<dims>
        INTEGER v3
        INTEGER ierror
        EXTERNAL MPI_COMM_GET_ATTR
        CALL MPI_COMM_GET_ATTR(v0,v1,v2,v3,ierror)
        END SUBROUTINE MPI_COMM_GET_ATTR_T

        SUBROUTINE MPI_ALLTOALLV_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        <type1> v4<dims1>
        INTEGER v5
        INTEGER v6
        INTEGER v7
        INTEGER v8
        INTEGER ierror
        EXTERNAL MPI_ALLTOALLV
        CALL MPI_ALLTOALLV(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        END SUBROUTINE MPI_ALLTOALLV_T

        SUBROUTINE MPI_ACCUMULATE_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER(KIND=MPI_ADDRESS_KIND) v4
        INTEGER v5
        INTEGER v6
        INTEGER v7
        INTEGER v8
        INTEGER ierror
        EXTERNAL MPI_ACCUMULATE
        CALL MPI_ACCUMULATE(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror)
        END SUBROUTINE MPI_ACCUMULATE_T

        SUBROUTINE MPI_IRSEND_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_IRSEND
        CALL MPI_IRSEND(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_IRSEND_T

        SUBROUTINE MPI_COMM_CREATE_KEYVAL_T(v0,v1,v2,v3,ierror)
        EXTERNAL v0
        EXTERNAL v1
        INTEGER v2
        <type> v3<dims>
        INTEGER ierror
        EXTERNAL MPI_COMM_CREATE_KEYVAL
        CALL MPI_COMM_CREATE_KEYVAL(v0,v1,v2,v3,ierror)
        END SUBROUTINE MPI_COMM_CREATE_KEYVAL_T

        SUBROUTINE MPI_SCATTER_T(v0,v1,v2,v3,v4,v5,v6,v7,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        <type1> v3<dims1>
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER v7
        INTEGER ierror
        EXTERNAL MPI_SCATTER
        CALL MPI_SCATTER(v0,v1,v2,v3,v4,v5,v6,v7,ierror)
        END SUBROUTINE MPI_SCATTER_T

        SUBROUTINE MPI_RECV_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_RECV_INIT
        CALL MPI_RECV_INIT(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_RECV_INIT_T

        SUBROUTINE MPI_GATHER_T(v0,v1,v2,v3,v4,v5,v6,v7,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        <type1> v3<dims1>
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER v7
        INTEGER ierror
        EXTERNAL MPI_GATHER
        CALL MPI_GATHER(v0,v1,v2,v3,v4,v5,v6,v7,ierror)
        END SUBROUTINE MPI_GATHER_T

        SUBROUTINE MPI_KEYVAL_CREATE_T(v0,v1,v2,v3,ierror)
        EXTERNAL v0
        EXTERNAL v1
        INTEGER v2
        <type> v3<dims>
        INTEGER ierror
        EXTERNAL MPI_KEYVAL_CREATE
        CALL MPI_KEYVAL_CREATE(v0,v1,v2,v3,ierror)
        END SUBROUTINE MPI_KEYVAL_CREATE_T

        SUBROUTINE MPI_REDUCE_T(v0,v1,v2,v3,v4,v5,v6,ierror)
        <type> v0<dims>
        <type1> v1<dims1>
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER v6
        INTEGER ierror
        EXTERNAL MPI_REDUCE
        CALL MPI_REDUCE(v0,v1,v2,v3,v4,v5,v6,ierror)
        END SUBROUTINE MPI_REDUCE_T

        SUBROUTINE MPI_BSEND_T(v0,v1,v2,v3,v4,v5,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER v2
        INTEGER v3
        INTEGER v4
        INTEGER v5
        INTEGER ierror
        EXTERNAL MPI_BSEND
        CALL MPI_BSEND(v0,v1,v2,v3,v4,v5,ierror)
        END SUBROUTINE MPI_BSEND_T

        SUBROUTINE MPI_FREE_MEM_T(v0,ierror)
        <type> v0<dims>
        INTEGER ierror
        EXTERNAL MPI_FREE_MEM
        CALL MPI_FREE_MEM(v0,ierror)
        END SUBROUTINE MPI_FREE_MEM_T

        SUBROUTINE MPI_BUFFER_DETACH_T(v0,v1,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER ierror
        EXTERNAL MPI_BUFFER_DETACH
        CALL MPI_BUFFER_DETACH(v0,v1,ierror)
        END SUBROUTINE MPI_BUFFER_DETACH_T

        SUBROUTINE MPI_BUFFER_ATTACH_T(v0,v1,ierror)
        <type> v0<dims>
        INTEGER v1
        INTEGER ierror
        EXTERNAL MPI_BUFFER_ATTACH
        CALL MPI_BUFFER_ATTACH(v0,v1,ierror)
        END SUBROUTINE MPI_BUFFER_ATTACH_T

        SUBROUTINE MPI_ATTR_PUT_T(v0,v1,v2,ierror)
        INTEGER v0
        INTEGER v1
        <type> v2<dims>
        INTEGER ierror
        EXTERNAL MPI_ATTR_PUT
        CALL MPI_ATTR_PUT(v0,v1,v2,ierror)
        END SUBROUTINE MPI_ATTR_PUT_T

        SUBROUTINE MPI_WIN_SET_ATTR_T(v0,v1,v2,ierror)
        INTEGER v0
        INTEGER v1
        <type> v2<dims>
        INTEGER ierror
        EXTERNAL MPI_WIN_SET_ATTR
        CALL MPI_WIN_SET_ATTR(v0,v1,v2,ierror)
        END SUBROUTINE MPI_WIN_SET_ATTR_T

        END MODULE MPI_t1_s