1 #if !defined(MPIUNIFDEF_H) 2 #define MPIUNIFDEF_H 3 4 #include "petscconf.h" 5 ! corresponds to integer4 6 #define MPIUNI_FInt integer(kind=selected_int_kind(5)) 7 8 #define MPI_Init PETSC_MPI_INIT 9 #define MPI_Finalize PETSC_MPI_FINALIZE 10 #define MPI_Comm_size PETSC_MPI_COMM_SIZE 11 #define MPI_Comm_rank PETSC_MPI_COMM_RANK 12 #define MPI_Abort PETSC_MPI_ABORT 13 #define MPI_Reduce PETSC_MPI_REDUCE 14 #define MPI_Allreduce PETSC_MPI_ALLREDUCE 15 #define MPI_Barrier PETSC_MPI_BARRIER 16 #define MPI_Bcast PETSC_MPI_BCAST 17 #define MPI_Gather PETSC_MPI_GATHER 18 #define MPI_Allgather PETSC_MPI_ALLGATHER 19 #define MPI_Comm_split PETSC_MPI_COMM_SPLIT 20 #define MPI_Scan PETSC_MPI_SCAN 21 #define MPI_Send PETSC_MPI_SEND 22 #define MPI_Recv PETSC_MPI_RECV 23 #define MPI_Reduce_scatter PETSC_MPI_REDUCE_SCATTER 24 #define MPI_Irecv PETSC_MPI_IRECV 25 #define MPI_Isend PETSC_MPI_ISEND 26 #define MPI_Sendrecv PETSC_MPI_SENDRECV 27 #define MPI_Test PETSC_MPI_TEST 28 #define MPI_Waitall PETSC_MPI_WAITALL 29 #define MPI_Waitany PETSC_MPI_WAITANY 30 #define MPI_Allgatherv PETSC_MPI_ALLGATHERV 31 #define MPI_Alltoallv PETSC_MPI_ALLTOALLV 32 #define MPI_Comm_create PETSC_MPI_COMM_CREATE 33 #define MPI_Address PETSC_MPI_ADDRESS 34 #define MPI_Pack PETSC_MPI_PACK 35 #define MPI_Unpack PETSC_MPI_UNPACK 36 #define MPI_Pack_size PETSC_MPI_PACK_SIZE 37 #define MPI_Type_struct PETSC_MPI_TYPE_STRUCT 38 #define MPI_Type_commit PETSC_MPI_TYPE_COMMIT 39 #define MPI_Wtime PETSC_MPI_WTIME 40 #define MPI_Cancel PETSC_MPI_CANCEL 41 #define MPI_Comm_dup PETSC_MPI_COMM_DUP 42 #define MPI_Comm_free PETSC_MPI_COMM_FREE 43 #define MPI_Get_count PETSC_MPI_GET_COUNT 44 #define MPI_Get_processor_name PETSC_MPI_GET_PROCESSOR_NAME 45 #define MPI_Initialized PETSC_MPI_INITIALIZED 46 #define MPI_Iprobe PETSC_MPI_IPROBE 47 #define MPI_Probe PETSC_MPI_PROBE 48 #define MPI_Request_free PETSC_MPI_REQUEST_FREE 49 #define MPI_Ssend PETSC_MPI_SSEND 50 #define MPI_Wait PETSC_MPI_WAIT 51 #define MPI_Comm_group PETSC_MPI_COMM_GROUP 52 #define MPI_Exscan PETSC_MPI_EXSCAN 53 54 #define MPI_INIT PETSC_MPI_INIT 55 #define MPI_FINALIZE PETSC_MPI_FINALIZE 56 #define MPI_COMM_SIZE PETSC_MPI_COMM_SIZE 57 #define MPI_COMM_RANK PETSC_MPI_COMM_RANK 58 #define MPI_ABORT PETSC_MPI_ABORT 59 #define MPI_REDUCE PETSC_MPI_REDUCE 60 #define MPI_ALLREDUCE PETSC_MPI_ALLREDUCE 61 #define MPI_BARRIER PETSC_MPI_BARRIER 62 #define MPI_BCAST PETSC_MPI_BCAST 63 #define MPI_GATHER PETSC_MPI_GATHER 64 #define MPI_ALLGATHER PETSC_MPI_ALLGATHER 65 #define MPI_COMM_SPLIT PETSC_MPI_COMM_SPLIT 66 #define MPI_SCAN PETSC_MPI_SCAN 67 #define MPI_SEND PETSC_MPI_SEND 68 #define MPI_RECV PETSC_MPI_RECV 69 #define MPI_REDUCE_SCATTER PETSC_MPI_REDUCE_SCATTER 70 #define MPI_IRECV PETSC_MPI_IRECV 71 #define MPI_ISEND PETSC_MPI_ISEND 72 #define MPI_SENDRECV PETSC_MPI_SENDRECV 73 #define MPI_TEST PETSC_MPI_TEST 74 #define MPI_WAITALL PETSC_MPI_WAITALL 75 #define MPI_WAITANY PETSC_MPI_WAITANY 76 #define MPI_ALLGATHERV PETSC_MPI_ALLGATHERV 77 #define MPI_ALLTOALLV PETSC_MPI_ALLTOALLV 78 #define MPI_COMM_CREATE PETSC_MPI_COMM_CREATE 79 #define MPI_ADDRESS PETSC_MPI_ADDRESS 80 #define MPI_PACK PETSC_MPI_PACK 81 #define MPI_UNPACK PETSC_MPI_UNPACK 82 #define MPI_PACK_SIZE PETSC_MPI_PACK_SIZE 83 #define MPI_TYPE_STRUCT PETSC_MPI_TYPE_STRUCT 84 #define MPI_TYPE_COMMIT PETSC_MPI_TYPE_COMMIT 85 #define MPI_WTIME PETSC_MPI_WTIME 86 #define MPI_CANCEL PETSC_MPI_CANCEL 87 #define MPI_COMM_DUP PETSC_MPI_COMM_DUP 88 #define MPI_COMM_FREE PETSC_MPI_COMM_FREE 89 #define MPI_GET_COUNT PETSC_MPI_GET_COUNT 90 #define MPI_GET_PROCESSOR_NAME PETSC_MPI_GET_PROCESSOR_NAME 91 #define MPI_INITIALIZED PETSC_MPI_INITIALIZED 92 #define MPI_IPROBE PETSC_MPI_IPROBE 93 #define MPI_PROBE PETSC_MPI_PROBE 94 #define MPI_REQUEST_FREE PETSC_MPI_REQUEST_FREE 95 #define MPI_SSEND PETSC_MPI_SSEND 96 #define MPI_WAIT PETSC_MPI_WAIT 97 #define MPI_COMM_GROUP PETSC_MPI_COMM_GROUP 98 #define MPI_EXSCAN PETSC_MPI_EXSCAN 99 100 #define mpi_init PETSC_MPI_INIT 101 #define mpi_finalize PETSC_MPI_FINALIZE 102 #define mpi_comm_size PETSC_MPI_COMM_SIZE 103 #define mpi_comm_rank PETSC_MPI_COMM_RANK 104 #define mpi_abort PETSC_MPI_ABORT 105 #define mpi_reduce PETSC_MPI_REDUCE 106 #define mpi_allreduce PETSC_MPI_ALLREDUCE 107 #define mpi_barrier PETSC_MPI_BARRIER 108 #define mpi_bcast PETSC_MPI_BCAST 109 #define mpi_gather PETSC_MPI_GATHER 110 #define mpi_allgather PETSC_MPI_ALLGATHER 111 #define mpi_comm_split PETSC_MPI_COMM_SPLIT 112 #define mpi_scan PETSC_MPI_SCAN 113 #define mpi_send PETSC_MPI_SEND 114 #define mpi_recv PETSC_MPI_RECV 115 #define mpi_reduce_scatter PETSC_MPI_REDUCE_SCATTER 116 #define mpi_irecv PETSC_MPI_IRECV 117 #define mpi_isend PETSC_MPI_ISEND 118 #define mpi_sendrecv PETSC_MPI_SENDRECV 119 #define mpi_test PETSC_MPI_TEST 120 #define mpi_waitall PETSC_MPI_WAITALL 121 #define mpi_waitany PETSC_MPI_WAITANY 122 #define mpi_allgatherv PETSC_MPI_ALLGATHERV 123 #define mpi_alltoallv PETSC_MPI_ALLTOALLV 124 #define mpi_comm_create PETSC_MPI_COMM_CREATE 125 #define mpi_address PETSC_MPI_ADDRESS 126 #define mpi_pack PETSC_MPI_PACK 127 #define mpi_unpack PETSC_MPI_UNPACK 128 #define mpi_pack_size PETSC_MPI_PACK_SIZE 129 #define mpi_type_struct PETSC_MPI_TYPE_STRUCT 130 #define mpi_type_commit PETSC_MPI_TYPE_COMMIT 131 #define mpi_wtime PETSC_MPI_WTIME 132 #define mpi_cancel PETSC_MPI_CANCEL 133 #define mpi_comm_dup PETSC_MPI_COMM_DUP 134 #define mpi_comm_free PETSC_MPI_COMM_FREE 135 #define mpi_get_count PETSC_MPI_GET_COUNT 136 #define mpi_get_processor_name PETSC_MPI_GET_PROCESSOR_NAME 137 #define mpi_initialized PETSC_MPI_INITIALIZED 138 #define mpi_iprobe PETSC_MPI_IPROBE 139 #define mpi_probe PETSC_MPI_PROBE 140 #define mpi_request_free PETSC_MPI_REQUEST_FREE 141 #define mpi_ssend PETSC_MPI_SSEND 142 #define mpi_wait PETSC_MPI_WAIT 143 #define mpi_comm_group PETSC_MPI_COMM_GROUP 144 #define mpi_exscan PETSC_MPI_EXSCAN 145 146 #endif 147