Page 1 Source Listing MPI_WTIME 2014-12-17 20:48 mpi_fortran.f 1 c Stub versions of MPI F77 routines (single processor) - most do nothing 2 3 c timer routine 4 c can replace etime with standard UNIX call on a particular system 5 6 double precision function mpi_wtime() 7 real array(2) 8 9 mpi_wtime = etime(array) 10 11 return 12 end ENTRY POINTS Name mpi_wtime_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARRAY Local 7 R(4) 4 1 2 9 ETIME Func 9 R(4) 4 scalar 9 MPI_WTIME Func 6 R(8) 8 scalar 9 MPI_WTIME@0 Local 6 R(8) 8 scalar Page 2 Source Listing MPI_WTIME 2014-12-17 20:48 mpi_fortran.f 13 14 15 subroutine mpi_init(ierror) 16 17 return 18 end ENTRY POINTS Name mpi_init_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 15 I(4) 4 scalar ARG,INOUT MPI_INIT Subr 15 Page 3 Source Listing MPI_INIT 2014-12-17 20:48 mpi_fortran.f 19 20 subroutine mpi_initialized(mpi_inited, ierror) 21 logical mpi_inited 22 23 return 24 end ENTRY POINTS Name mpi_initialized_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 20 I(4) 4 scalar ARG,INOUT MPI_INITED Dummy 20 L(4) 4 scalar ARG,INOUT MPI_INITIALIZED Subr 20 Page 4 Source Listing MPI_INITIALIZED 2014-12-17 20:48 mpi_fortran.f 25 26 27 28 subroutine mpi_finalize(ierror) 29 30 return 31 end ENTRY POINTS Name mpi_finalize_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 28 I(4) 4 scalar ARG,INOUT MPI_FINALIZE Subr 28 Page 5 Source Listing MPI_FINALIZE 2014-12-17 20:48 mpi_fortran.f 32 33 34 subroutine mpi_abort(mpi_comm,ierror) 35 36 stop 37 end ENTRY POINTS Name mpi_abort_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 34 I(4) 4 scalar ARG,INOUT MPI_ABORT Subr 34 MPI_COMM Dummy 34 I(4) 4 scalar ARG,INOUT Page 6 Source Listing MPI_ABORT 2014-12-17 20:48 mpi_fortran.f 38 39 c return me = 0 40 41 subroutine mpi_comm_rank(mpi_comm,me,ierror) 42 43 me = 0 44 45 return 46 end ENTRY POINTS Name mpi_comm_rank_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 41 I(4) 4 scalar ARG,INOUT ME Dummy 41 I(4) 4 scalar ARG,INOUT 43 MPI_COMM Dummy 41 I(4) 4 scalar ARG,INOUT MPI_COMM_RANK Subr 41 Page 7 Source Listing MPI_COMM_RANK 2014-12-17 20:48 mpi_fortran.f 47 48 c return nprocs = 1 49 50 subroutine mpi_comm_size(mpi_comm,nprocs,ierror) 51 52 nprocs = 1 53 54 return 55 end ENTRY POINTS Name mpi_comm_size_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 50 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 50 I(4) 4 scalar ARG,INOUT MPI_COMM_SIZE Subr 50 NPROCS Dummy 50 I(4) 4 scalar ARG,INOUT 52 Page 8 Source Listing MPI_COMM_SIZE 2014-12-17 20:48 mpi_fortran.f 56 57 58 subroutine mpi_barrier(mpi_comm,ierror) 59 60 return 61 end ENTRY POINTS Name mpi_barrier_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 58 I(4) 4 scalar ARG,INOUT MPI_BARRIER Subr 58 MPI_COMM Dummy 58 I(4) 4 scalar ARG,INOUT Page 9 Source Listing MPI_BARRIER 2014-12-17 20:48 mpi_fortran.f 62 63 c warn against sending message to self, since no data copy is done 64 65 subroutine mpi_send(data,n,mpi_datatype,iproc,itag, 66 $ mpi_comm,ierror) 67 68 write (6,*) 69 $ 'MPI Stub WARNING: Should not send message to self' 70 71 return 72 end ENTRY POINTS Name mpi_send_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA Dummy 65 R(4) 4 scalar ARG,INOUT IERROR Dummy 66 I(4) 4 scalar ARG,INOUT IPROC Dummy 65 I(4) 4 scalar ARG,INOUT ITAG Dummy 65 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 66 I(4) 4 scalar ARG,INOUT MPI_DATATYPE Dummy 65 I(4) 4 scalar ARG,INOUT MPI_SEND Subr 65 N Dummy 65 I(4) 4 scalar ARG,INOUT Page 10 Source Listing MPI_SEND 2014-12-17 20:48 mpi_fortran.f 73 74 subroutine mpi_comm_dup(oldcomm, newcomm,ierror) 75 integer oldcomm, newcomm,ierror 76 newcomm = oldcomm 77 return 78 end ENTRY POINTS Name mpi_comm_dup_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 74 I(4) 4 scalar ARG,INOUT MPI_COMM_DUP Subr 74 NEWCOMM Dummy 74 I(4) 4 scalar ARG,INOUT 76 OLDCOMM Dummy 74 I(4) 4 scalar ARG,INOUT 76 Page 11 Source Listing MPI_COMM_DUP 2014-12-17 20:48 mpi_fortran.f 79 80 subroutine mpi_isend(buf,count,datatype,source, 81 & tag,comm,request,ierror) 82 integer buf(*), count,datatype,source,tag,comm, 83 & request,ierror 84 call mpi_error() 85 return 86 end ENTRY POINTS Name mpi_isend_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References BUF Dummy 80 I(4) 4 1 0 ARG,INOUT COMM Dummy 81 I(4) 4 scalar ARG,INOUT COUNT Dummy 80 I(4) 4 scalar ARG,INOUT DATATYPE Dummy 80 I(4) 4 scalar ARG,INOUT IERROR Dummy 81 I(4) 4 scalar ARG,INOUT MPI_ERROR Subr 84 84 MPI_ISEND Subr 80 REQUEST Dummy 81 I(4) 4 scalar ARG,INOUT SOURCE Dummy 80 I(4) 4 scalar ARG,INOUT TAG Dummy 81 I(4) 4 scalar ARG,INOUT Page 12 Source Listing MPI_ISEND 2014-12-17 20:48 mpi_fortran.f 87 88 subroutine mpi_error() 89 print *, 'mpi_error called' 90 stop 91 end ENTRY POINTS Name mpi_error_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERROR Subr 88 Page 13 Source Listing MPI_ERROR 2014-12-17 20:48 mpi_fortran.f 92 93 subroutine mpi_comm_group (com,group,ierr ) 94 integer com,group,ierr 95 write(6,*) 'dont want to see this' 96 group=com 97 return 98 end ENTRY POINTS Name mpi_comm_group_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References COM Dummy 93 I(4) 4 scalar ARG,INOUT 96 GROUP Dummy 93 I(4) 4 scalar ARG,INOUT 96 IERR Dummy 93 I(4) 4 scalar ARG,INOUT MPI_COMM_GROUP Subr 93 Page 14 Source Listing MPI_COMM_GROUP 2014-12-17 20:48 mpi_fortran.f 99 100 subroutine mpi_group_excl(intin,n,ranks,ngroup,ierr) 101 integer intin,n,ranks(n),ngroup,ierr 102 ngroup=intin 103 return 104 end ENTRY POINTS Name mpi_group_excl_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERR Dummy 100 I(4) 4 scalar ARG,INOUT INTIN Dummy 100 I(4) 4 scalar ARG,INOUT 102 MPI_GROUP_EXCL Subr 100 N Dummy 100 I(4) 4 scalar ARG,INOUT 101 NGROUP Dummy 100 I(4) 4 scalar ARG,INOUT 102 RANKS Dummy 100 I(4) 4 1 0 ARG,INOUT Page 15 Source Listing MPI_GROUP_EXCL 2014-12-17 20:48 mpi_fortran.f 105 106 subroutine mpi_group_free (intin,ierr ) 107 integer intin,ierr 108 return 109 end ENTRY POINTS Name mpi_group_free_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERR Dummy 106 I(4) 4 scalar ARG,INOUT INTIN Dummy 106 I(4) 4 scalar ARG,INOUT MPI_GROUP_FREE Subr 106 Page 16 Source Listing MPI_GROUP_FREE 2014-12-17 20:48 mpi_fortran.f 110 111 subroutine mpi_intercomm_create (lcom,llead,ipeer,irem,itag, 112 & newcom,ierr ) 113 integer lcom,llead,ipeer,irem,itag,newcom,ierr 114 newcom=lcom 115 write(6,*) 'shouldnt be calling this!' 116 return 117 end ENTRY POINTS Name mpi_intercomm_create_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERR Dummy 112 I(4) 4 scalar ARG,INOUT IPEER Dummy 111 I(4) 4 scalar ARG,INOUT IREM Dummy 111 I(4) 4 scalar ARG,INOUT ITAG Dummy 111 I(4) 4 scalar ARG,INOUT LCOM Dummy 111 I(4) 4 scalar ARG,INOUT 114 LLEAD Dummy 111 I(4) 4 scalar ARG,INOUT MPI_INTERCOMM_CREATE Subr 111 NEWCOM Dummy 112 I(4) 4 scalar ARG,INOUT 114 Page 17 Source Listing MPI_INTERCOMM_CREATE 2014-12-17 20:48 mpi_fortran.f 118 119 subroutine mpi_comm_create (com,group,ncom,ierr ) 120 integer com,group,ncom,ierr 121 ncom=com 122 return 123 end ENTRY POINTS Name mpi_comm_create_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References COM Dummy 119 I(4) 4 scalar ARG,INOUT 121 GROUP Dummy 119 I(4) 4 scalar ARG,INOUT IERR Dummy 119 I(4) 4 scalar ARG,INOUT MPI_COMM_CREATE Subr 119 NCOM Dummy 119 I(4) 4 scalar ARG,INOUT 121 Page 18 Source Listing MPI_COMM_CREATE 2014-12-17 20:48 mpi_fortran.f 124 125 subroutine mpi_sendrecv(sendbuf,sendcount,sendtype, 126 + dest,sendtag,recvbuf,recvcount,recvtype,source,recvtag, 127 + comm,status,ierr) 128 129 integer sendcount,sendtype 130 integer dest,sendtag,recvcount 131 integer recvtype,source,recvtag,comm,ierr,status(*) 132 133 write(6,*) 'should never execute this when running with one CPU' 134 135 return 136 end ENTRY POINTS Name mpi_sendrecv_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References COMM Dummy 127 I(4) 4 scalar ARG,INOUT DEST Dummy 126 I(4) 4 scalar ARG,INOUT IERR Dummy 127 I(4) 4 scalar ARG,INOUT MPI_SENDRECV Subr 125 RECVBUF Dummy 126 R(4) 4 scalar ARG,INOUT RECVCOUNT Dummy 126 I(4) 4 scalar ARG,INOUT RECVTAG Dummy 126 I(4) 4 scalar ARG,INOUT RECVTYPE Dummy 126 I(4) 4 scalar ARG,INOUT SENDBUF Dummy 125 R(4) 4 scalar ARG,INOUT SENDCOUNT Dummy 125 I(4) 4 scalar ARG,INOUT SENDTAG Dummy 126 I(4) 4 scalar ARG,INOUT SENDTYPE Dummy 125 I(4) 4 scalar ARG,INOUT SOURCE Dummy 126 I(4) 4 scalar ARG,INOUT STATUS Dummy 127 I(4) 4 1 0 ARG,INOUT Page 19 Source Listing MPI_SENDRECV 2014-12-17 20:48 mpi_fortran.f 137 138 subroutine mpi_gatherv(sendbuf,sendcount,sendtype, 139 + recvbuf,recvcounts,displs,recvtype,root,comm,ierr) 140 141 integer sendcount,sendtype,recvcounts(*),displs(*) 142 integer recvtype,root,comm,ierr 143 write(6,*) 'should never execute this when running with one CPU' 144 145 return 146 end ENTRY POINTS Name mpi_gatherv_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References COMM Dummy 139 I(4) 4 scalar ARG,INOUT DISPLS Dummy 139 I(4) 4 1 0 ARG,INOUT IERR Dummy 139 I(4) 4 scalar ARG,INOUT MPI_GATHERV Subr 138 RECVBUF Dummy 139 R(4) 4 scalar ARG,INOUT RECVCOUNTS Dummy 139 I(4) 4 1 0 ARG,INOUT RECVTYPE Dummy 139 I(4) 4 scalar ARG,INOUT ROOT Dummy 139 I(4) 4 scalar ARG,INOUT SENDBUF Dummy 138 R(4) 4 scalar ARG,INOUT SENDCOUNT Dummy 138 I(4) 4 scalar ARG,INOUT SENDTYPE Dummy 138 I(4) 4 scalar ARG,INOUT Page 20 Source Listing MPI_GATHERV 2014-12-17 20:48 mpi_fortran.f 147 148 149 c warn against sending message to self, since no data copy is done 150 151 subroutine mpi_rsend(data,n,mpi_datatype,iproc,itag, 152 $ mpi_comm,ierror) 153 154 write (6,*) 155 $ 'MPI Stub WARNING: Should not send message to self' 156 157 return 158 end ENTRY POINTS Name mpi_rsend_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA Dummy 151 R(4) 4 scalar ARG,INOUT IERROR Dummy 152 I(4) 4 scalar ARG,INOUT IPROC Dummy 151 I(4) 4 scalar ARG,INOUT ITAG Dummy 151 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 152 I(4) 4 scalar ARG,INOUT MPI_DATATYPE Dummy 151 I(4) 4 scalar ARG,INOUT MPI_RSEND Subr 151 N Dummy 151 I(4) 4 scalar ARG,INOUT Page 21 Source Listing MPI_RSEND 2014-12-17 20:48 mpi_fortran.f 159 160 c warn against receiving message from self, since no data copy is done 161 162 subroutine mpi_probe(iproc,itag,mpi_comm,istatus,ierror) 163 164 return 165 end ENTRY POINTS Name mpi_probe_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 162 I(4) 4 scalar ARG,INOUT IPROC Dummy 162 I(4) 4 scalar ARG,INOUT ISTATUS Dummy 162 I(4) 4 scalar ARG,INOUT ITAG Dummy 162 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 162 I(4) 4 scalar ARG,INOUT MPI_PROBE Subr 162 Page 22 Source Listing MPI_PROBE 2014-12-17 20:48 mpi_fortran.f 166 167 168 subroutine mpi_recv(data,n,mpi_datatype,iproc,itag, 169 $ mpi_comm,istatus,ierror) 170 171 write (6,*) 172 $ 'MPI Stub WARNING: Should not recv message from self' 173 174 return 175 end ENTRY POINTS Name mpi_recv_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA Dummy 168 R(4) 4 scalar ARG,INOUT IERROR Dummy 169 I(4) 4 scalar ARG,INOUT IPROC Dummy 168 I(4) 4 scalar ARG,INOUT ISTATUS Dummy 169 I(4) 4 scalar ARG,INOUT ITAG Dummy 168 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 169 I(4) 4 scalar ARG,INOUT MPI_DATATYPE Dummy 168 I(4) 4 scalar ARG,INOUT MPI_RECV Subr 168 N Dummy 168 I(4) 4 scalar ARG,INOUT Page 23 Source Listing MPI_RECV 2014-12-17 20:48 mpi_fortran.f 176 177 c warn against querying message from self, since no data copy is done 178 179 subroutine mpi_get_count(istatus,mpi_datatype,icount,ierror) 180 181 write (6,*) 182 $ 'MPI Stub WARNING: Should not query message from self' 183 184 return 185 end ENTRY POINTS Name mpi_get_count_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ICOUNT Dummy 179 I(4) 4 scalar ARG,INOUT IERROR Dummy 179 I(4) 4 scalar ARG,INOUT ISTATUS Dummy 179 I(4) 4 scalar ARG,INOUT MPI_DATATYPE Dummy 179 I(4) 4 scalar ARG,INOUT MPI_GET_COUNT Subr 179 Page 24 Source Listing MPI_GET_COUNT 2014-12-17 20:48 mpi_fortran.f 186 187 188 c warn against receiving message from self, since no data copy is done 189 190 subroutine mpi_irecv(data,n,mpi_datatype,iproc,itag, 191 $ mpi_comm,irequest,ierror) 192 193 write (6,*) 194 $ 'MPI Stub WARNING: Should not recv message from self' 195 196 return 197 end ENTRY POINTS Name mpi_irecv_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA Dummy 190 R(4) 4 scalar ARG,INOUT IERROR Dummy 191 I(4) 4 scalar ARG,INOUT IPROC Dummy 190 I(4) 4 scalar ARG,INOUT IREQUEST Dummy 191 I(4) 4 scalar ARG,INOUT ITAG Dummy 190 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 191 I(4) 4 scalar ARG,INOUT MPI_DATATYPE Dummy 190 I(4) 4 scalar ARG,INOUT MPI_IRECV Subr 190 N Dummy 190 I(4) 4 scalar ARG,INOUT Page 25 Source Listing MPI_IRECV 2014-12-17 20:48 mpi_fortran.f 198 199 c warn against waiting on message from self, since no data copy is done 200 201 subroutine mpi_wait(irequest,istatus,ierror) 202 203 write (6,*) 204 $ 'MPI Stub WARNING: Should not wait on message from self' 205 206 return 207 end ENTRY POINTS Name mpi_wait_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 201 I(4) 4 scalar ARG,INOUT IREQUEST Dummy 201 I(4) 4 scalar ARG,INOUT ISTATUS Dummy 201 I(4) 4 scalar ARG,INOUT MPI_WAIT Subr 201 Page 26 Source Listing MPI_WAIT 2014-12-17 20:48 mpi_fortran.f 208 209 c warn against waiting on message from self, since no data copy is done 210 211 subroutine mpi_waitall(icount,irequest,istatus,ierror) 212 213 write (6,*) 214 $ 'MPI Stub WARNING: Should not wait on message from self' 215 216 return 217 end ENTRY POINTS Name mpi_waitall_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ICOUNT Dummy 211 I(4) 4 scalar ARG,INOUT IERROR Dummy 211 I(4) 4 scalar ARG,INOUT IREQUEST Dummy 211 I(4) 4 scalar ARG,INOUT ISTATUS Dummy 211 I(4) 4 scalar ARG,INOUT MPI_WAITALL Subr 211 Page 27 Source Listing MPI_WAITALL 2014-12-17 20:48 mpi_fortran.f 218 219 c warn against waiting on message from self, since no data copy is done 220 221 subroutine mpi_waitany(icount,array_of_requests, 222 $ index,istatus,ierror) 223 224 write (6,*) 225 $ 'MPI Stub WARNING: Should not wait on message from self' 226 227 return 228 end ENTRY POINTS Name mpi_waitany_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARRAY_OF_REQUESTS Dummy 221 R(4) 4 scalar ARG,INOUT ICOUNT Dummy 221 I(4) 4 scalar ARG,INOUT IERROR Dummy 222 I(4) 4 scalar ARG,INOUT INDEX Dummy 222 I(4) 4 scalar ARG,INOUT ISTATUS Dummy 222 I(4) 4 scalar ARG,INOUT MPI_WAITANY Subr 221 Page 28 Source Listing MPI_WAITANY 2014-12-17 20:48 mpi_fortran.f 229 230 231 subroutine mpi_bcast(data,n,mpi_datatype,node,mpi_comm,ierror) 232 233 return 234 end ENTRY POINTS Name mpi_bcast_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA Dummy 231 R(4) 4 scalar ARG,INOUT IERROR Dummy 231 I(4) 4 scalar ARG,INOUT MPI_BCAST Subr 231 MPI_COMM Dummy 231 I(4) 4 scalar ARG,INOUT MPI_DATATYPE Dummy 231 I(4) 4 scalar ARG,INOUT N Dummy 231 I(4) 4 scalar ARG,INOUT NODE Dummy 231 I(4) 4 scalar ARG,INOUT Page 29 Source Listing MPI_BCAST 2014-12-17 20:48 mpi_fortran.f 235 236 subroutine mpi_type_size(mpi_datatype,isize,ierror) 237 238 return 239 end ENTRY POINTS Name mpi_type_size_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 236 I(4) 4 scalar ARG,INOUT ISIZE Dummy 236 I(4) 4 scalar ARG,INOUT MPI_DATATYPE Dummy 236 I(4) 4 scalar ARG,INOUT MPI_TYPE_SIZE Subr 236 Page 30 Source Listing MPI_TYPE_SIZE 2014-12-17 20:48 mpi_fortran.f 240 241 c copy values from data1 to data2 242 243 subroutine mpi_reduce(data1,data2,n,mpi_datatype, 244 $ mpi_operation,io_task,mpi_comm,ierror) 245 include "mpif.h" 246 464 if (mpi_datatype.eq.mpi_integer) then 465 call mpi_copy_integer(data1,data2,n) 466 else if (mpi_datatype.eq.mpi_real) then 467 call mpi_copy_real(data1,data2,n) 468 else if (mpi_datatype.eq.mpi_double_precision) then 469 call mpi_copy_double_precision(data1,data2,n) 470 else if (mpi_datatype.eq.mpi_real8) then 471 call mpi_copy_double_precision(data1,data2,n) 472 endif 473 474 return 475 end ENTRY POINTS Name mpi_reduce_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 243 R(4) 4 scalar ARG,INOUT 248,250,252,254 DATA2 Dummy 243 R(4) 4 scalar ARG,INOUT 248,250,252,254 IERROR Dummy 244 I(4) 4 scalar ARG,INOUT IO_TASK Dummy 244 I(4) 4 scalar ARG,INOUT MPIPRIV Common 209 36 MPI_2COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 110 I(4) 4 scalar MPI_2INTEGER Param 109 I(4) 4 scalar MPI_2REAL Param 109 I(4) 4 scalar MPI_ADDRESS_KIND Param 189 I(4) 4 scalar MPI_ANY_SOURCE Param 180 I(4) 4 scalar MPI_ANY_TAG Param 182 I(4) 4 scalar MPI_BAND Param 114 I(4) 4 scalar MPI_BOR Param 115 I(4) 4 scalar MPI_BOTTOM Scalar 104 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 55 I(4) 4 scalar MPI_BXOR Param 115 I(4) 4 scalar MPI_BYTE Param 109 I(4) 4 scalar MPI_CART Param 50 I(4) 4 scalar MPI_CHARACTER Param 109 I(4) 4 scalar MPI_COMM Dummy 244 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 68 I(4) 4 scalar MPI_COMM_SELF Param 113 I(4) 4 scalar MPI_COMM_WORLD Param 113 I(4) 4 scalar Page 31 Source Listing MPI_REDUCE 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX Param 108 I(4) 4 scalar MPI_COMPLEX16 Param 147 I(4) 4 scalar MPI_COMPLEX32 Param 147 I(4) 4 scalar MPI_COMPLEX8 Param 147 I(4) 4 scalar MPI_CONGRUENT Param 86 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 252 252,254 MPI_COPY_INTEGER Subr 248 248 MPI_COPY_REAL Subr 250 250 MPI_DATATYPE Dummy 243 I(4) 4 scalar ARG,INOUT 247,249,251,253 MPI_DATATYPE_NULL Param 71 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 131 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 131 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 132 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 132 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 108 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 107 I(4) 4 scalar 251 MPI_ERRHANDLER_NULL Param 74 I(4) 4 scalar MPI_ERROR Param 58 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 118 I(4) 4 scalar MPI_ERRORS_RETURN Param 118 I(4) 4 scalar MPI_ERR_ARG Param 33 I(4) 4 scalar MPI_ERR_BUFFER Param 30 I(4) 4 scalar MPI_ERR_COMM Param 31 I(4) 4 scalar MPI_ERR_COUNT Param 30 I(4) 4 scalar MPI_ERR_DIMS Param 33 I(4) 4 scalar MPI_ERR_GROUP Param 32 I(4) 4 scalar MPI_ERR_INTERN Param 35 I(4) 4 scalar MPI_ERR_IN_STATUS Param 35 I(4) 4 scalar MPI_ERR_LASTCODE Param 36 I(4) 4 scalar MPI_ERR_OP Param 33 I(4) 4 scalar MPI_ERR_OTHER Param 34 I(4) 4 scalar MPI_ERR_PENDING Param 35 I(4) 4 scalar MPI_ERR_RANK Param 31 I(4) 4 scalar MPI_ERR_REQUEST Param 36 I(4) 4 scalar MPI_ERR_ROOT Param 31 I(4) 4 scalar MPI_ERR_TAG Param 31 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 33 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 30 I(4) 4 scalar MPI_ERR_UNKNOWN Param 34 I(4) 4 scalar MPI_GRAPH Param 50 I(4) 4 scalar MPI_GROUP_EMPTY Param 113 I(4) 4 scalar MPI_GROUP_NULL Param 77 I(4) 4 scalar MPI_HOST Param 103 I(4) 4 scalar MPI_IDENT Param 86 I(4) 4 scalar MPI_INFO_NULL Param 138 I(4) 4 scalar MPI_INTEGER Param 107 I(4) 4 scalar 247 MPI_INTEGER1 Param 144 I(4) 4 scalar MPI_INTEGER16 Param 145 I(4) 4 scalar MPI_INTEGER2 Param 144 I(4) 4 scalar MPI_INTEGER4 Param 144 I(4) 4 scalar MPI_INTEGER8 Param 144 I(4) 4 scalar MPI_IO Param 103 I(4) 4 scalar MPI_KEYVAL_INVALID Param 80 I(4) 4 scalar MPI_LAND Param 114 I(4) 4 scalar Page 32 Source Listing MPI_REDUCE 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LB Param 111 I(4) 4 scalar MPI_LOGICAL Param 108 I(4) 4 scalar MPI_LOR Param 115 I(4) 4 scalar MPI_LXOR Param 115 I(4) 4 scalar MPI_MAX Param 114 I(4) 4 scalar MPI_MAXLOC Param 116 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 62 I(4) 4 scalar MPI_MAX_INFO_KEY Param 136 I(4) 4 scalar MPI_MAX_INFO_VAL Param 136 I(4) 4 scalar MPI_MAX_NAME_STRING Param 65 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 62 I(4) 4 scalar MPI_MIN Param 114 I(4) 4 scalar MPI_MINLOC Param 115 I(4) 4 scalar MPI_OFFSET_KIND Param 189 I(4) 4 scalar MPI_OPERATION Dummy 244 I(4) 4 scalar ARG,INOUT MPI_OP_NULL Param 117 I(4) 4 scalar MPI_ORDER_C Param 129 I(4) 4 scalar MPI_ORDER_FORTRAN Param 129 I(4) 4 scalar MPI_PACKED Param 112 I(4) 4 scalar MPI_PROC_NULL Param 52 I(4) 4 scalar MPI_PROD Param 114 I(4) 4 scalar MPI_REAL Param 107 I(4) 4 scalar 249 MPI_REAL16 Param 146 I(4) 4 scalar MPI_REAL4 Param 146 I(4) 4 scalar MPI_REAL8 Param 146 I(4) 4 scalar 253 MPI_REDUCE Subr 243 MPI_REQUEST_NULL Param 83 I(4) 4 scalar MPI_SIMILAR Param 86 I(4) 4 scalar MPI_SOURCE Param 58 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 106 I(4) 4 1 4 COM MPI_STATUS_IGNORE Scalar 105 I(4) 4 1 4 COM MPI_STATUS_SIZE Param 60 I(4) 4 scalar 105,106 MPI_SUBVERSION Param 185 I(4) 4 scalar MPI_SUCCESS Param 30 I(4) 4 scalar MPI_SUM Param 114 I(4) 4 scalar MPI_TAG Param 58 I(4) 4 scalar MPI_TAG_UB Param 103 I(4) 4 scalar MPI_UB Param 111 I(4) 4 scalar MPI_UNDEFINED Param 47 I(4) 4 scalar MPI_UNEQUAL Param 86 I(4) 4 scalar MPI_VERSION Param 185 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 112 I(4) 4 scalar N Dummy 243 I(4) 4 scalar ARG,INOUT 248,250,252,254 Page 33 Source Listing MPI_REDUCE 2014-12-17 20:48 mpi_fortran.f 476 477 478 subroutine mpi_allreduce(data1,data2,n,mpi_datatype, 479 $ mpi_operation,mpi_comm,ierror) 480 include "mpif.h" 481 699 print *,'allreduce ',mpi_datatype,mpi_integer,mpi_real 700 if (mpi_datatype.eq.mpi_integer) then 701 call mpi_copy_integer(data1,data2,n) 702 else if (mpi_datatype.eq.mpi_real) then 703 call mpi_copy_real(data1,data2,n) 704 else if (mpi_datatype.eq.mpi_double_precision) then 705 call mpi_copy_double_precision(data1,data2,n) 706 else if (mpi_datatype.eq.mpi_real8) then 707 call mpi_copy_double_precision(data1,data2,n) 708 endif 709 710 return 711 end ENTRY POINTS Name mpi_allreduce_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 261 R(4) 4 scalar ARG,INOUT 267,269,271,273 DATA2 Dummy 261 R(4) 4 scalar ARG,INOUT 267,269,271,273 IERROR Dummy 262 I(4) 4 scalar ARG,INOUT MPIPRIV Common 209 36 MPI_2COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 110 I(4) 4 scalar MPI_2INTEGER Param 109 I(4) 4 scalar MPI_2REAL Param 109 I(4) 4 scalar MPI_ADDRESS_KIND Param 189 I(4) 4 scalar MPI_ALLREDUCE Subr 261 MPI_ANY_SOURCE Param 180 I(4) 4 scalar MPI_ANY_TAG Param 182 I(4) 4 scalar MPI_BAND Param 114 I(4) 4 scalar MPI_BOR Param 115 I(4) 4 scalar MPI_BOTTOM Scalar 104 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 55 I(4) 4 scalar MPI_BXOR Param 115 I(4) 4 scalar MPI_BYTE Param 109 I(4) 4 scalar MPI_CART Param 50 I(4) 4 scalar MPI_CHARACTER Param 109 I(4) 4 scalar MPI_COMM Dummy 262 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 68 I(4) 4 scalar MPI_COMM_SELF Param 113 I(4) 4 scalar MPI_COMM_WORLD Param 113 I(4) 4 scalar Page 34 Source Listing MPI_ALLREDUCE 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX Param 108 I(4) 4 scalar MPI_COMPLEX16 Param 147 I(4) 4 scalar MPI_COMPLEX32 Param 147 I(4) 4 scalar MPI_COMPLEX8 Param 147 I(4) 4 scalar MPI_CONGRUENT Param 86 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 271 271,273 MPI_COPY_INTEGER Subr 267 267 MPI_COPY_REAL Subr 269 269 MPI_DATATYPE Dummy 261 I(4) 4 scalar ARG,INOUT 265,266,268,270,272 MPI_DATATYPE_NULL Param 71 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 131 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 131 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 132 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 132 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 108 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 107 I(4) 4 scalar 270 MPI_ERRHANDLER_NULL Param 74 I(4) 4 scalar MPI_ERROR Param 58 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 118 I(4) 4 scalar MPI_ERRORS_RETURN Param 118 I(4) 4 scalar MPI_ERR_ARG Param 33 I(4) 4 scalar MPI_ERR_BUFFER Param 30 I(4) 4 scalar MPI_ERR_COMM Param 31 I(4) 4 scalar MPI_ERR_COUNT Param 30 I(4) 4 scalar MPI_ERR_DIMS Param 33 I(4) 4 scalar MPI_ERR_GROUP Param 32 I(4) 4 scalar MPI_ERR_INTERN Param 35 I(4) 4 scalar MPI_ERR_IN_STATUS Param 35 I(4) 4 scalar MPI_ERR_LASTCODE Param 36 I(4) 4 scalar MPI_ERR_OP Param 33 I(4) 4 scalar MPI_ERR_OTHER Param 34 I(4) 4 scalar MPI_ERR_PENDING Param 35 I(4) 4 scalar MPI_ERR_RANK Param 31 I(4) 4 scalar MPI_ERR_REQUEST Param 36 I(4) 4 scalar MPI_ERR_ROOT Param 31 I(4) 4 scalar MPI_ERR_TAG Param 31 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 33 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 30 I(4) 4 scalar MPI_ERR_UNKNOWN Param 34 I(4) 4 scalar MPI_GRAPH Param 50 I(4) 4 scalar MPI_GROUP_EMPTY Param 113 I(4) 4 scalar MPI_GROUP_NULL Param 77 I(4) 4 scalar MPI_HOST Param 103 I(4) 4 scalar MPI_IDENT Param 86 I(4) 4 scalar MPI_INFO_NULL Param 138 I(4) 4 scalar MPI_INTEGER Param 107 I(4) 4 scalar 265,266 MPI_INTEGER1 Param 144 I(4) 4 scalar MPI_INTEGER16 Param 145 I(4) 4 scalar MPI_INTEGER2 Param 144 I(4) 4 scalar MPI_INTEGER4 Param 144 I(4) 4 scalar MPI_INTEGER8 Param 144 I(4) 4 scalar MPI_IO Param 103 I(4) 4 scalar MPI_KEYVAL_INVALID Param 80 I(4) 4 scalar MPI_LAND Param 114 I(4) 4 scalar Page 35 Source Listing MPI_ALLREDUCE 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LB Param 111 I(4) 4 scalar MPI_LOGICAL Param 108 I(4) 4 scalar MPI_LOR Param 115 I(4) 4 scalar MPI_LXOR Param 115 I(4) 4 scalar MPI_MAX Param 114 I(4) 4 scalar MPI_MAXLOC Param 116 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 62 I(4) 4 scalar MPI_MAX_INFO_KEY Param 136 I(4) 4 scalar MPI_MAX_INFO_VAL Param 136 I(4) 4 scalar MPI_MAX_NAME_STRING Param 65 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 62 I(4) 4 scalar MPI_MIN Param 114 I(4) 4 scalar MPI_MINLOC Param 115 I(4) 4 scalar MPI_OFFSET_KIND Param 189 I(4) 4 scalar MPI_OPERATION Dummy 262 I(4) 4 scalar ARG,INOUT MPI_OP_NULL Param 117 I(4) 4 scalar MPI_ORDER_C Param 129 I(4) 4 scalar MPI_ORDER_FORTRAN Param 129 I(4) 4 scalar MPI_PACKED Param 112 I(4) 4 scalar MPI_PROC_NULL Param 52 I(4) 4 scalar MPI_PROD Param 114 I(4) 4 scalar MPI_REAL Param 107 I(4) 4 scalar 265,268 MPI_REAL16 Param 146 I(4) 4 scalar MPI_REAL4 Param 146 I(4) 4 scalar MPI_REAL8 Param 146 I(4) 4 scalar 272 MPI_REQUEST_NULL Param 83 I(4) 4 scalar MPI_SIMILAR Param 86 I(4) 4 scalar MPI_SOURCE Param 58 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 106 I(4) 4 1 4 COM MPI_STATUS_IGNORE Scalar 105 I(4) 4 1 4 COM MPI_STATUS_SIZE Param 60 I(4) 4 scalar 105,106 MPI_SUBVERSION Param 185 I(4) 4 scalar MPI_SUCCESS Param 30 I(4) 4 scalar MPI_SUM Param 114 I(4) 4 scalar MPI_TAG Param 58 I(4) 4 scalar MPI_TAG_UB Param 103 I(4) 4 scalar MPI_UB Param 111 I(4) 4 scalar MPI_UNDEFINED Param 47 I(4) 4 scalar MPI_UNEQUAL Param 86 I(4) 4 scalar MPI_VERSION Param 185 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 112 I(4) 4 scalar N Dummy 261 I(4) 4 scalar ARG,INOUT 267,269,271,273 Page 36 Source Listing MPI_ALLREDUCE 2014-12-17 20:48 mpi_fortran.f 712 713 subroutine mpi_gather(data1,nsend,mpi_sendtype,data2, 714 $ nrecv,mpi_recvtype,io_task,mpi_comm,ierror) 715 include "mpif.h" 716 934 if (mpi_sendtype.eq.mpi_integer) then 935 call mpi_copy_integer(data1,data2,nsend) 936 else if (mpi_sendtype.eq.mpi_real) then 937 call mpi_copy_real(data1,data2,nsend) 938 else if (mpi_sendtype.eq.mpi_double_precision) then 939 call mpi_copy_double_precision(data1,data2,nsend) 940 else if (mpi_sendtype.eq.mpi_real8) then 941 call mpi_copy_double_precision(data1,data2,nsend) 942 endif 943 944 return 945 end ENTRY POINTS Name mpi_gather_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 279 R(4) 4 scalar ARG,INOUT 284,286,288,290 DATA2 Dummy 279 R(4) 4 scalar ARG,INOUT 284,286,288,290 IERROR Dummy 280 I(4) 4 scalar ARG,INOUT IO_TASK Dummy 280 I(4) 4 scalar ARG,INOUT MPIPRIV Common 209 36 MPI_2COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 110 I(4) 4 scalar MPI_2INTEGER Param 109 I(4) 4 scalar MPI_2REAL Param 109 I(4) 4 scalar MPI_ADDRESS_KIND Param 189 I(4) 4 scalar MPI_ANY_SOURCE Param 180 I(4) 4 scalar MPI_ANY_TAG Param 182 I(4) 4 scalar MPI_BAND Param 114 I(4) 4 scalar MPI_BOR Param 115 I(4) 4 scalar MPI_BOTTOM Scalar 104 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 55 I(4) 4 scalar MPI_BXOR Param 115 I(4) 4 scalar MPI_BYTE Param 109 I(4) 4 scalar MPI_CART Param 50 I(4) 4 scalar MPI_CHARACTER Param 109 I(4) 4 scalar MPI_COMM Dummy 280 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 68 I(4) 4 scalar MPI_COMM_SELF Param 113 I(4) 4 scalar MPI_COMM_WORLD Param 113 I(4) 4 scalar MPI_COMPLEX Param 108 I(4) 4 scalar MPI_COMPLEX16 Param 147 I(4) 4 scalar Page 37 Source Listing MPI_GATHER 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX32 Param 147 I(4) 4 scalar MPI_COMPLEX8 Param 147 I(4) 4 scalar MPI_CONGRUENT Param 86 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 288 288,290 MPI_COPY_INTEGER Subr 284 284 MPI_COPY_REAL Subr 286 286 MPI_DATATYPE_NULL Param 71 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 131 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 131 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 132 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 132 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 108 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 107 I(4) 4 scalar 287 MPI_ERRHANDLER_NULL Param 74 I(4) 4 scalar MPI_ERROR Param 58 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 118 I(4) 4 scalar MPI_ERRORS_RETURN Param 118 I(4) 4 scalar MPI_ERR_ARG Param 33 I(4) 4 scalar MPI_ERR_BUFFER Param 30 I(4) 4 scalar MPI_ERR_COMM Param 31 I(4) 4 scalar MPI_ERR_COUNT Param 30 I(4) 4 scalar MPI_ERR_DIMS Param 33 I(4) 4 scalar MPI_ERR_GROUP Param 32 I(4) 4 scalar MPI_ERR_INTERN Param 35 I(4) 4 scalar MPI_ERR_IN_STATUS Param 35 I(4) 4 scalar MPI_ERR_LASTCODE Param 36 I(4) 4 scalar MPI_ERR_OP Param 33 I(4) 4 scalar MPI_ERR_OTHER Param 34 I(4) 4 scalar MPI_ERR_PENDING Param 35 I(4) 4 scalar MPI_ERR_RANK Param 31 I(4) 4 scalar MPI_ERR_REQUEST Param 36 I(4) 4 scalar MPI_ERR_ROOT Param 31 I(4) 4 scalar MPI_ERR_TAG Param 31 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 33 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 30 I(4) 4 scalar MPI_ERR_UNKNOWN Param 34 I(4) 4 scalar MPI_GATHER Subr 279 MPI_GRAPH Param 50 I(4) 4 scalar MPI_GROUP_EMPTY Param 113 I(4) 4 scalar MPI_GROUP_NULL Param 77 I(4) 4 scalar MPI_HOST Param 103 I(4) 4 scalar MPI_IDENT Param 86 I(4) 4 scalar MPI_INFO_NULL Param 138 I(4) 4 scalar MPI_INTEGER Param 107 I(4) 4 scalar 283 MPI_INTEGER1 Param 144 I(4) 4 scalar MPI_INTEGER16 Param 145 I(4) 4 scalar MPI_INTEGER2 Param 144 I(4) 4 scalar MPI_INTEGER4 Param 144 I(4) 4 scalar MPI_INTEGER8 Param 144 I(4) 4 scalar MPI_IO Param 103 I(4) 4 scalar MPI_KEYVAL_INVALID Param 80 I(4) 4 scalar MPI_LAND Param 114 I(4) 4 scalar MPI_LB Param 111 I(4) 4 scalar MPI_LOGICAL Param 108 I(4) 4 scalar Page 38 Source Listing MPI_GATHER 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LOR Param 115 I(4) 4 scalar MPI_LXOR Param 115 I(4) 4 scalar MPI_MAX Param 114 I(4) 4 scalar MPI_MAXLOC Param 116 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 62 I(4) 4 scalar MPI_MAX_INFO_KEY Param 136 I(4) 4 scalar MPI_MAX_INFO_VAL Param 136 I(4) 4 scalar MPI_MAX_NAME_STRING Param 65 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 62 I(4) 4 scalar MPI_MIN Param 114 I(4) 4 scalar MPI_MINLOC Param 115 I(4) 4 scalar MPI_OFFSET_KIND Param 189 I(4) 4 scalar MPI_OP_NULL Param 117 I(4) 4 scalar MPI_ORDER_C Param 129 I(4) 4 scalar MPI_ORDER_FORTRAN Param 129 I(4) 4 scalar MPI_PACKED Param 112 I(4) 4 scalar MPI_PROC_NULL Param 52 I(4) 4 scalar MPI_PROD Param 114 I(4) 4 scalar MPI_REAL Param 107 I(4) 4 scalar 285 MPI_REAL16 Param 146 I(4) 4 scalar MPI_REAL4 Param 146 I(4) 4 scalar MPI_REAL8 Param 146 I(4) 4 scalar 289 MPI_RECVTYPE Dummy 280 I(4) 4 scalar ARG,INOUT MPI_REQUEST_NULL Param 83 I(4) 4 scalar MPI_SENDTYPE Dummy 279 I(4) 4 scalar ARG,INOUT 283,285,287,289 MPI_SIMILAR Param 86 I(4) 4 scalar MPI_SOURCE Param 58 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 106 I(4) 4 1 4 COM MPI_STATUS_IGNORE Scalar 105 I(4) 4 1 4 COM MPI_STATUS_SIZE Param 60 I(4) 4 scalar 105,106 MPI_SUBVERSION Param 185 I(4) 4 scalar MPI_SUCCESS Param 30 I(4) 4 scalar MPI_SUM Param 114 I(4) 4 scalar MPI_TAG Param 58 I(4) 4 scalar MPI_TAG_UB Param 103 I(4) 4 scalar MPI_UB Param 111 I(4) 4 scalar MPI_UNDEFINED Param 47 I(4) 4 scalar MPI_UNEQUAL Param 86 I(4) 4 scalar MPI_VERSION Param 185 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 112 I(4) 4 scalar NRECV Dummy 280 I(4) 4 scalar ARG,INOUT NSEND Dummy 279 I(4) 4 scalar ARG,INOUT 284,286,288,290 Page 39 Source Listing MPI_GATHER 2014-12-17 20:48 mpi_fortran.f 946 947 948 c copy values from data1 to data2 949 950 subroutine mpi_allgather(data1,nsend,mpi_sendtype, 951 $ data2,nrecv,mpi_recvtype,mpi_comm,ierror) 952 include "mpif.h" 953 1171 if (mpi_sendtype.eq.mpi_integer) then 1172 call mpi_copy_integer(data1,data2,nsend) 1173 else if (mpi_sendtype.eq.mpi_real) then 1174 call mpi_copy_real(data1,data2,nsend) 1175 else if (mpi_sendtype.eq.mpi_double_precision) then 1176 call mpi_copy_double_precision(data1,data2,nsend) 1177 else if (mpi_sendtype.eq.mpi_real8) then 1178 call mpi_copy_double_precision(data1,data2,nsend) 1179 endif 1180 1181 return 1182 end ENTRY POINTS Name mpi_allgather_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 299 R(4) 4 scalar ARG,INOUT 304,306,308,310 DATA2 Dummy 300 R(4) 4 scalar ARG,INOUT 304,306,308,310 IERROR Dummy 300 I(4) 4 scalar ARG,INOUT MPIPRIV Common 209 36 MPI_2COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 110 I(4) 4 scalar MPI_2INTEGER Param 109 I(4) 4 scalar MPI_2REAL Param 109 I(4) 4 scalar MPI_ADDRESS_KIND Param 189 I(4) 4 scalar MPI_ALLGATHER Subr 299 MPI_ANY_SOURCE Param 180 I(4) 4 scalar MPI_ANY_TAG Param 182 I(4) 4 scalar MPI_BAND Param 114 I(4) 4 scalar MPI_BOR Param 115 I(4) 4 scalar MPI_BOTTOM Scalar 104 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 55 I(4) 4 scalar MPI_BXOR Param 115 I(4) 4 scalar MPI_BYTE Param 109 I(4) 4 scalar MPI_CART Param 50 I(4) 4 scalar MPI_CHARACTER Param 109 I(4) 4 scalar MPI_COMM Dummy 300 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 68 I(4) 4 scalar MPI_COMM_SELF Param 113 I(4) 4 scalar Page 40 Source Listing MPI_ALLGATHER 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_WORLD Param 113 I(4) 4 scalar MPI_COMPLEX Param 108 I(4) 4 scalar MPI_COMPLEX16 Param 147 I(4) 4 scalar MPI_COMPLEX32 Param 147 I(4) 4 scalar MPI_COMPLEX8 Param 147 I(4) 4 scalar MPI_CONGRUENT Param 86 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 308 308,310 MPI_COPY_INTEGER Subr 304 304 MPI_COPY_REAL Subr 306 306 MPI_DATATYPE_NULL Param 71 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 131 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 131 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 132 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 132 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 108 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 107 I(4) 4 scalar 307 MPI_ERRHANDLER_NULL Param 74 I(4) 4 scalar MPI_ERROR Param 58 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 118 I(4) 4 scalar MPI_ERRORS_RETURN Param 118 I(4) 4 scalar MPI_ERR_ARG Param 33 I(4) 4 scalar MPI_ERR_BUFFER Param 30 I(4) 4 scalar MPI_ERR_COMM Param 31 I(4) 4 scalar MPI_ERR_COUNT Param 30 I(4) 4 scalar MPI_ERR_DIMS Param 33 I(4) 4 scalar MPI_ERR_GROUP Param 32 I(4) 4 scalar MPI_ERR_INTERN Param 35 I(4) 4 scalar MPI_ERR_IN_STATUS Param 35 I(4) 4 scalar MPI_ERR_LASTCODE Param 36 I(4) 4 scalar MPI_ERR_OP Param 33 I(4) 4 scalar MPI_ERR_OTHER Param 34 I(4) 4 scalar MPI_ERR_PENDING Param 35 I(4) 4 scalar MPI_ERR_RANK Param 31 I(4) 4 scalar MPI_ERR_REQUEST Param 36 I(4) 4 scalar MPI_ERR_ROOT Param 31 I(4) 4 scalar MPI_ERR_TAG Param 31 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 33 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 30 I(4) 4 scalar MPI_ERR_UNKNOWN Param 34 I(4) 4 scalar MPI_GRAPH Param 50 I(4) 4 scalar MPI_GROUP_EMPTY Param 113 I(4) 4 scalar MPI_GROUP_NULL Param 77 I(4) 4 scalar MPI_HOST Param 103 I(4) 4 scalar MPI_IDENT Param 86 I(4) 4 scalar MPI_INFO_NULL Param 138 I(4) 4 scalar MPI_INTEGER Param 107 I(4) 4 scalar 303 MPI_INTEGER1 Param 144 I(4) 4 scalar MPI_INTEGER16 Param 145 I(4) 4 scalar MPI_INTEGER2 Param 144 I(4) 4 scalar MPI_INTEGER4 Param 144 I(4) 4 scalar MPI_INTEGER8 Param 144 I(4) 4 scalar MPI_IO Param 103 I(4) 4 scalar MPI_KEYVAL_INVALID Param 80 I(4) 4 scalar MPI_LAND Param 114 I(4) 4 scalar Page 41 Source Listing MPI_ALLGATHER 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LB Param 111 I(4) 4 scalar MPI_LOGICAL Param 108 I(4) 4 scalar MPI_LOR Param 115 I(4) 4 scalar MPI_LXOR Param 115 I(4) 4 scalar MPI_MAX Param 114 I(4) 4 scalar MPI_MAXLOC Param 116 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 62 I(4) 4 scalar MPI_MAX_INFO_KEY Param 136 I(4) 4 scalar MPI_MAX_INFO_VAL Param 136 I(4) 4 scalar MPI_MAX_NAME_STRING Param 65 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 62 I(4) 4 scalar MPI_MIN Param 114 I(4) 4 scalar MPI_MINLOC Param 115 I(4) 4 scalar MPI_OFFSET_KIND Param 189 I(4) 4 scalar MPI_OP_NULL Param 117 I(4) 4 scalar MPI_ORDER_C Param 129 I(4) 4 scalar MPI_ORDER_FORTRAN Param 129 I(4) 4 scalar MPI_PACKED Param 112 I(4) 4 scalar MPI_PROC_NULL Param 52 I(4) 4 scalar MPI_PROD Param 114 I(4) 4 scalar MPI_REAL Param 107 I(4) 4 scalar 305 MPI_REAL16 Param 146 I(4) 4 scalar MPI_REAL4 Param 146 I(4) 4 scalar MPI_REAL8 Param 146 I(4) 4 scalar 309 MPI_RECVTYPE Dummy 300 I(4) 4 scalar ARG,INOUT MPI_REQUEST_NULL Param 83 I(4) 4 scalar MPI_SENDTYPE Dummy 299 I(4) 4 scalar ARG,INOUT 303,305,307,309 MPI_SIMILAR Param 86 I(4) 4 scalar MPI_SOURCE Param 58 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 106 I(4) 4 1 4 COM MPI_STATUS_IGNORE Scalar 105 I(4) 4 1 4 COM MPI_STATUS_SIZE Param 60 I(4) 4 scalar 105,106 MPI_SUBVERSION Param 185 I(4) 4 scalar MPI_SUCCESS Param 30 I(4) 4 scalar MPI_SUM Param 114 I(4) 4 scalar MPI_TAG Param 58 I(4) 4 scalar MPI_TAG_UB Param 103 I(4) 4 scalar MPI_UB Param 111 I(4) 4 scalar MPI_UNDEFINED Param 47 I(4) 4 scalar MPI_UNEQUAL Param 86 I(4) 4 scalar MPI_VERSION Param 185 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 112 I(4) 4 scalar NRECV Dummy 300 I(4) 4 scalar ARG,INOUT NSEND Dummy 299 I(4) 4 scalar ARG,INOUT 304,306,308,310 Page 42 Source Listing MPI_ALLGATHER 2014-12-17 20:48 mpi_fortran.f 1183 1184 1185 c copy values from data1 to data2 1186 1187 subroutine mpi_allgatherv(data1,nsend,mpi_sendtype, 1188 $ data2,nrecv,ndispls,mpi_recvtype,mpi_comm,ierror) 1189 include "mpif.h" 1190 1408 if (mpi_sendtype.eq.mpi_integer) then 1409 call mpi_copy_integer(data1,data2,nsend) 1410 else if (mpi_sendtype.eq.mpi_real) then 1411 call mpi_copy_real(data1,data2,nsend) 1412 else if (mpi_sendtype.eq.mpi_double_precision) then 1413 call mpi_copy_double_precision(data1,data2,nsend) 1414 else if (mpi_sendtype.eq.mpi_real8) then 1415 call mpi_copy_double_precision(data1,data2,nsend) 1416 endif 1417 1418 return 1419 end ENTRY POINTS Name mpi_allgatherv_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 319 R(4) 4 scalar ARG,INOUT 324,326,328,330 DATA2 Dummy 320 R(4) 4 scalar ARG,INOUT 324,326,328,330 IERROR Dummy 320 I(4) 4 scalar ARG,INOUT MPIPRIV Common 209 36 MPI_2COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 110 I(4) 4 scalar MPI_2INTEGER Param 109 I(4) 4 scalar MPI_2REAL Param 109 I(4) 4 scalar MPI_ADDRESS_KIND Param 189 I(4) 4 scalar MPI_ALLGATHERV Subr 319 MPI_ANY_SOURCE Param 180 I(4) 4 scalar MPI_ANY_TAG Param 182 I(4) 4 scalar MPI_BAND Param 114 I(4) 4 scalar MPI_BOR Param 115 I(4) 4 scalar MPI_BOTTOM Scalar 104 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 55 I(4) 4 scalar MPI_BXOR Param 115 I(4) 4 scalar MPI_BYTE Param 109 I(4) 4 scalar MPI_CART Param 50 I(4) 4 scalar MPI_CHARACTER Param 109 I(4) 4 scalar MPI_COMM Dummy 320 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 68 I(4) 4 scalar MPI_COMM_SELF Param 113 I(4) 4 scalar Page 43 Source Listing MPI_ALLGATHERV 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_WORLD Param 113 I(4) 4 scalar MPI_COMPLEX Param 108 I(4) 4 scalar MPI_COMPLEX16 Param 147 I(4) 4 scalar MPI_COMPLEX32 Param 147 I(4) 4 scalar MPI_COMPLEX8 Param 147 I(4) 4 scalar MPI_CONGRUENT Param 86 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 328 328,330 MPI_COPY_INTEGER Subr 324 324 MPI_COPY_REAL Subr 326 326 MPI_DATATYPE_NULL Param 71 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 131 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 131 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 132 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 132 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 108 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 107 I(4) 4 scalar 327 MPI_ERRHANDLER_NULL Param 74 I(4) 4 scalar MPI_ERROR Param 58 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 118 I(4) 4 scalar MPI_ERRORS_RETURN Param 118 I(4) 4 scalar MPI_ERR_ARG Param 33 I(4) 4 scalar MPI_ERR_BUFFER Param 30 I(4) 4 scalar MPI_ERR_COMM Param 31 I(4) 4 scalar MPI_ERR_COUNT Param 30 I(4) 4 scalar MPI_ERR_DIMS Param 33 I(4) 4 scalar MPI_ERR_GROUP Param 32 I(4) 4 scalar MPI_ERR_INTERN Param 35 I(4) 4 scalar MPI_ERR_IN_STATUS Param 35 I(4) 4 scalar MPI_ERR_LASTCODE Param 36 I(4) 4 scalar MPI_ERR_OP Param 33 I(4) 4 scalar MPI_ERR_OTHER Param 34 I(4) 4 scalar MPI_ERR_PENDING Param 35 I(4) 4 scalar MPI_ERR_RANK Param 31 I(4) 4 scalar MPI_ERR_REQUEST Param 36 I(4) 4 scalar MPI_ERR_ROOT Param 31 I(4) 4 scalar MPI_ERR_TAG Param 31 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 33 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 30 I(4) 4 scalar MPI_ERR_UNKNOWN Param 34 I(4) 4 scalar MPI_GRAPH Param 50 I(4) 4 scalar MPI_GROUP_EMPTY Param 113 I(4) 4 scalar MPI_GROUP_NULL Param 77 I(4) 4 scalar MPI_HOST Param 103 I(4) 4 scalar MPI_IDENT Param 86 I(4) 4 scalar MPI_INFO_NULL Param 138 I(4) 4 scalar MPI_INTEGER Param 107 I(4) 4 scalar 323 MPI_INTEGER1 Param 144 I(4) 4 scalar MPI_INTEGER16 Param 145 I(4) 4 scalar MPI_INTEGER2 Param 144 I(4) 4 scalar MPI_INTEGER4 Param 144 I(4) 4 scalar MPI_INTEGER8 Param 144 I(4) 4 scalar MPI_IO Param 103 I(4) 4 scalar MPI_KEYVAL_INVALID Param 80 I(4) 4 scalar MPI_LAND Param 114 I(4) 4 scalar Page 44 Source Listing MPI_ALLGATHERV 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LB Param 111 I(4) 4 scalar MPI_LOGICAL Param 108 I(4) 4 scalar MPI_LOR Param 115 I(4) 4 scalar MPI_LXOR Param 115 I(4) 4 scalar MPI_MAX Param 114 I(4) 4 scalar MPI_MAXLOC Param 116 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 62 I(4) 4 scalar MPI_MAX_INFO_KEY Param 136 I(4) 4 scalar MPI_MAX_INFO_VAL Param 136 I(4) 4 scalar MPI_MAX_NAME_STRING Param 65 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 62 I(4) 4 scalar MPI_MIN Param 114 I(4) 4 scalar MPI_MINLOC Param 115 I(4) 4 scalar MPI_OFFSET_KIND Param 189 I(4) 4 scalar MPI_OP_NULL Param 117 I(4) 4 scalar MPI_ORDER_C Param 129 I(4) 4 scalar MPI_ORDER_FORTRAN Param 129 I(4) 4 scalar MPI_PACKED Param 112 I(4) 4 scalar MPI_PROC_NULL Param 52 I(4) 4 scalar MPI_PROD Param 114 I(4) 4 scalar MPI_REAL Param 107 I(4) 4 scalar 325 MPI_REAL16 Param 146 I(4) 4 scalar MPI_REAL4 Param 146 I(4) 4 scalar MPI_REAL8 Param 146 I(4) 4 scalar 329 MPI_RECVTYPE Dummy 320 I(4) 4 scalar ARG,INOUT MPI_REQUEST_NULL Param 83 I(4) 4 scalar MPI_SENDTYPE Dummy 319 I(4) 4 scalar ARG,INOUT 323,325,327,329 MPI_SIMILAR Param 86 I(4) 4 scalar MPI_SOURCE Param 58 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 106 I(4) 4 1 4 COM MPI_STATUS_IGNORE Scalar 105 I(4) 4 1 4 COM MPI_STATUS_SIZE Param 60 I(4) 4 scalar 105,106 MPI_SUBVERSION Param 185 I(4) 4 scalar MPI_SUCCESS Param 30 I(4) 4 scalar MPI_SUM Param 114 I(4) 4 scalar MPI_TAG Param 58 I(4) 4 scalar MPI_TAG_UB Param 103 I(4) 4 scalar MPI_UB Param 111 I(4) 4 scalar MPI_UNDEFINED Param 47 I(4) 4 scalar MPI_UNEQUAL Param 86 I(4) 4 scalar MPI_VERSION Param 185 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 112 I(4) 4 scalar NDISPLS Dummy 320 I(4) 4 scalar ARG,INOUT NRECV Dummy 320 I(4) 4 scalar ARG,INOUT NSEND Dummy 319 I(4) 4 scalar ARG,INOUT 324,326,328,330 Page 45 Source Listing MPI_ALLGATHERV 2014-12-17 20:48 mpi_fortran.f 1420 1421 1422 c copy values from data1 to data2 1423 1424 subroutine mpi_reduce_scatter(data1,data2,n,mpi_datatype, 1425 $ mpi_operation,mpi_comm,ierror) 1426 include "mpif.h" 1427 1645 if (mpi_datatype.eq.mpi_integer) then 1646 call mpi_copy_integer(data1,data2,n) 1647 else if (mpi_datatype.eq.mpi_real) then 1648 call mpi_copy_real(data1,data2,n) 1649 else if (mpi_datatype.eq.mpi_double_precision) then 1650 call mpi_copy_double_precision(data1,data2,n) 1651 else if (mpi_datatype.eq.mpi_real8) then 1652 call mpi_copy_double_precision(data1,data2,n) 1653 endif 1654 1655 return 1656 end ENTRY POINTS Name mpi_reduce_scatter_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 339 R(4) 4 scalar ARG,INOUT 344,346,348,350 DATA2 Dummy 339 R(4) 4 scalar ARG,INOUT 344,346,348,350 IERROR Dummy 340 I(4) 4 scalar ARG,INOUT MPIPRIV Common 209 36 MPI_2COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 110 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 110 I(4) 4 scalar MPI_2INTEGER Param 109 I(4) 4 scalar MPI_2REAL Param 109 I(4) 4 scalar MPI_ADDRESS_KIND Param 189 I(4) 4 scalar MPI_ANY_SOURCE Param 180 I(4) 4 scalar MPI_ANY_TAG Param 182 I(4) 4 scalar MPI_BAND Param 114 I(4) 4 scalar MPI_BOR Param 115 I(4) 4 scalar MPI_BOTTOM Scalar 104 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 55 I(4) 4 scalar MPI_BXOR Param 115 I(4) 4 scalar MPI_BYTE Param 109 I(4) 4 scalar MPI_CART Param 50 I(4) 4 scalar MPI_CHARACTER Param 109 I(4) 4 scalar MPI_COMM Dummy 340 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 68 I(4) 4 scalar MPI_COMM_SELF Param 113 I(4) 4 scalar MPI_COMM_WORLD Param 113 I(4) 4 scalar Page 46 Source Listing MPI_REDUCE_SCATTER 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX Param 108 I(4) 4 scalar MPI_COMPLEX16 Param 147 I(4) 4 scalar MPI_COMPLEX32 Param 147 I(4) 4 scalar MPI_COMPLEX8 Param 147 I(4) 4 scalar MPI_CONGRUENT Param 86 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 348 348,350 MPI_COPY_INTEGER Subr 344 344 MPI_COPY_REAL Subr 346 346 MPI_DATATYPE Dummy 339 I(4) 4 scalar ARG,INOUT 343,345,347,349 MPI_DATATYPE_NULL Param 71 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 131 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 131 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 132 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 132 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 108 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 107 I(4) 4 scalar 347 MPI_ERRHANDLER_NULL Param 74 I(4) 4 scalar MPI_ERROR Param 58 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 118 I(4) 4 scalar MPI_ERRORS_RETURN Param 118 I(4) 4 scalar MPI_ERR_ARG Param 33 I(4) 4 scalar MPI_ERR_BUFFER Param 30 I(4) 4 scalar MPI_ERR_COMM Param 31 I(4) 4 scalar MPI_ERR_COUNT Param 30 I(4) 4 scalar MPI_ERR_DIMS Param 33 I(4) 4 scalar MPI_ERR_GROUP Param 32 I(4) 4 scalar MPI_ERR_INTERN Param 35 I(4) 4 scalar MPI_ERR_IN_STATUS Param 35 I(4) 4 scalar MPI_ERR_LASTCODE Param 36 I(4) 4 scalar MPI_ERR_OP Param 33 I(4) 4 scalar MPI_ERR_OTHER Param 34 I(4) 4 scalar MPI_ERR_PENDING Param 35 I(4) 4 scalar MPI_ERR_RANK Param 31 I(4) 4 scalar MPI_ERR_REQUEST Param 36 I(4) 4 scalar MPI_ERR_ROOT Param 31 I(4) 4 scalar MPI_ERR_TAG Param 31 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 33 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 30 I(4) 4 scalar MPI_ERR_UNKNOWN Param 34 I(4) 4 scalar MPI_GRAPH Param 50 I(4) 4 scalar MPI_GROUP_EMPTY Param 113 I(4) 4 scalar MPI_GROUP_NULL Param 77 I(4) 4 scalar MPI_HOST Param 103 I(4) 4 scalar MPI_IDENT Param 86 I(4) 4 scalar MPI_INFO_NULL Param 138 I(4) 4 scalar MPI_INTEGER Param 107 I(4) 4 scalar 343 MPI_INTEGER1 Param 144 I(4) 4 scalar MPI_INTEGER16 Param 145 I(4) 4 scalar MPI_INTEGER2 Param 144 I(4) 4 scalar MPI_INTEGER4 Param 144 I(4) 4 scalar MPI_INTEGER8 Param 144 I(4) 4 scalar MPI_IO Param 103 I(4) 4 scalar MPI_KEYVAL_INVALID Param 80 I(4) 4 scalar MPI_LAND Param 114 I(4) 4 scalar Page 47 Source Listing MPI_REDUCE_SCATTER 2014-12-17 20:48 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LB Param 111 I(4) 4 scalar MPI_LOGICAL Param 108 I(4) 4 scalar MPI_LOR Param 115 I(4) 4 scalar MPI_LXOR Param 115 I(4) 4 scalar MPI_MAX Param 114 I(4) 4 scalar MPI_MAXLOC Param 116 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 62 I(4) 4 scalar MPI_MAX_INFO_KEY Param 136 I(4) 4 scalar MPI_MAX_INFO_VAL Param 136 I(4) 4 scalar MPI_MAX_NAME_STRING Param 65 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 62 I(4) 4 scalar MPI_MIN Param 114 I(4) 4 scalar MPI_MINLOC Param 115 I(4) 4 scalar MPI_OFFSET_KIND Param 189 I(4) 4 scalar MPI_OPERATION Dummy 340 I(4) 4 scalar ARG,INOUT MPI_OP_NULL Param 117 I(4) 4 scalar MPI_ORDER_C Param 129 I(4) 4 scalar MPI_ORDER_FORTRAN Param 129 I(4) 4 scalar MPI_PACKED Param 112 I(4) 4 scalar MPI_PROC_NULL Param 52 I(4) 4 scalar MPI_PROD Param 114 I(4) 4 scalar MPI_REAL Param 107 I(4) 4 scalar 345 MPI_REAL16 Param 146 I(4) 4 scalar MPI_REAL4 Param 146 I(4) 4 scalar MPI_REAL8 Param 146 I(4) 4 scalar 349 MPI_REDUCE_SCATTER Subr 339 MPI_REQUEST_NULL Param 83 I(4) 4 scalar MPI_SIMILAR Param 86 I(4) 4 scalar MPI_SOURCE Param 58 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 106 I(4) 4 1 4 COM MPI_STATUS_IGNORE Scalar 105 I(4) 4 1 4 COM MPI_STATUS_SIZE Param 60 I(4) 4 scalar 105,106 MPI_SUBVERSION Param 185 I(4) 4 scalar MPI_SUCCESS Param 30 I(4) 4 scalar MPI_SUM Param 114 I(4) 4 scalar MPI_TAG Param 58 I(4) 4 scalar MPI_TAG_UB Param 103 I(4) 4 scalar MPI_UB Param 111 I(4) 4 scalar MPI_UNDEFINED Param 47 I(4) 4 scalar MPI_UNEQUAL Param 86 I(4) 4 scalar MPI_VERSION Param 185 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 112 I(4) 4 scalar N Dummy 339 I(4) 4 scalar ARG,INOUT 344,346,348,350 Page 48 Source Listing MPI_REDUCE_SCATTER 2014-12-17 20:48 mpi_fortran.f 1657 1658 1659 subroutine mpi_cart_create(mpi_comm,ndims,dims, 1660 $ periods,reorder,mpi_comm_cart,ierror) 1661 logical periods(*),reorder 1662 integer dims(*) 1663 1664 return 1665 end ENTRY POINTS Name mpi_cart_create_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DIMS Dummy 357 I(4) 4 1 0 ARG,INOUT IERROR Dummy 358 I(4) 4 scalar ARG,INOUT MPI_CART_CREATE Subr 357 MPI_COMM Dummy 357 I(4) 4 scalar ARG,INOUT MPI_COMM_CART Dummy 358 I(4) 4 scalar ARG,INOUT NDIMS Dummy 357 I(4) 4 scalar ARG,INOUT PERIODS Dummy 358 L(4) 4 1 0 ARG,INOUT REORDER Dummy 358 L(4) 4 scalar ARG,INOUT Page 49 Source Listing MPI_CART_CREATE 2014-12-17 20:48 mpi_fortran.f 1666 1667 1668 c set all coords = 0 1669 1670 subroutine mpi_cart_get(mpi_comm,ndims,dims,periods, 1671 $ coords,ierror) 1672 logical periods(*) 1673 integer dims(*),coords(*) 1674 1675 do i = 1,ndims 1676 coords(i) = 0 1677 enddo 1678 1679 return 1680 end ENTRY POINTS Name mpi_cart_get_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References COORDS Dummy 369 I(4) 4 1 0 ARG,INOUT 374 DIMS Dummy 368 I(4) 4 1 0 ARG,INOUT I Local 373 I(4) 4 scalar 373,374 IERROR Dummy 369 I(4) 4 scalar ARG,INOUT MPI_CART_GET Subr 368 MPI_COMM Dummy 368 I(4) 4 scalar ARG,INOUT NDIMS Dummy 368 I(4) 4 scalar ARG,INOUT 373 PERIODS Dummy 368 L(4) 4 1 0 ARG,INOUT Page 50 Source Listing MPI_CART_GET 2014-12-17 20:48 mpi_fortran.f 1681 1682 1683 c set isource = idest = self = 0 1684 1685 subroutine mpi_cart_shift(mpi_comm,idir,idisp, 1686 $ isource,idest,ierror) 1687 1688 isource = 0 1689 idest = 0 1690 1691 return 1692 end ENTRY POINTS Name mpi_cart_shift_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IDEST Dummy 384 I(4) 4 scalar ARG,INOUT 387 IDIR Dummy 383 I(4) 4 scalar ARG,INOUT IDISP Dummy 383 I(4) 4 scalar ARG,INOUT IERROR Dummy 384 I(4) 4 scalar ARG,INOUT ISOURCE Dummy 384 I(4) 4 scalar ARG,INOUT 386 MPI_CART_SHIFT Subr 383 MPI_COMM Dummy 383 I(4) 4 scalar ARG,INOUT Page 51 Source Listing MPI_CART_SHIFT 2014-12-17 20:48 mpi_fortran.f 1693 1694 1695 subroutine mpi_comm_split(mpi_comm,icolor,ikey,new_comm,ierror) 1696 1697 return 1698 end ENTRY POINTS Name mpi_comm_split_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ICOLOR Dummy 393 I(4) 4 scalar ARG,INOUT IERROR Dummy 393 I(4) 4 scalar ARG,INOUT IKEY Dummy 393 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 393 I(4) 4 scalar ARG,INOUT MPI_COMM_SPLIT Subr 393 NEW_COMM Dummy 393 I(4) 4 scalar ARG,INOUT Page 52 Source Listing MPI_COMM_SPLIT 2014-12-17 20:48 mpi_fortran.f 1699 1700 1701 subroutine mpi_comm_free(mpi_comm,ierror) 1702 1703 return 1704 end ENTRY POINTS Name mpi_comm_free_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References IERROR Dummy 399 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 399 I(4) 4 scalar ARG,INOUT MPI_COMM_FREE Subr 399 Page 53 Source Listing MPI_COMM_FREE 2014-12-17 20:48 mpi_fortran.f 1705 1706 1707 c ------------------- 1708 c Added routines for data copying 1709 c ------------------- 1710 1711 subroutine mpi_copy_integer(data1,data2,n) 1712 integer data1(*),data2(*) 1713 1714 do i = 1,n 1715 data2(i) = data1(i) 1716 enddo 1717 1718 return 1719 end ENTRY POINTS Name mpi_copy_integer_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 409 I(4) 4 1 0 ARG,INOUT 413 DATA2 Dummy 409 I(4) 4 1 0 ARG,INOUT 413 I Local 412 I(4) 4 scalar 412,413 MPI_COPY_INTEGER Subr 409 N Dummy 409 I(4) 4 scalar ARG,INOUT 412 Page 54 Source Listing MPI_COPY_INTEGER 2014-12-17 20:48 mpi_fortran.f 1720 1721 1722 subroutine mpi_copy_real(data1,data2,n) 1723 real data1(*),data2(*) 1724 1725 do i = 1,n 1726 data2(i) = data1(i) 1727 enddo 1728 1729 return 1730 end ENTRY POINTS Name mpi_copy_real_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 420 R(4) 4 1 0 ARG,INOUT 424 DATA2 Dummy 420 R(4) 4 1 0 ARG,INOUT 424 I Local 423 I(4) 4 scalar 423,424 MPI_COPY_REAL Subr 420 N Dummy 420 I(4) 4 scalar ARG,INOUT 423 Page 55 Source Listing MPI_COPY_REAL 2014-12-17 20:48 mpi_fortran.f 1731 1732 1733 subroutine mpi_copy_double_precision(data1,data2,n) 1734 double precision data1(*),data2(*) 1735 1736 do i = 1,n 1737 data2(i) = data1(i) 1738 enddo 1739 1740 return 1741 end ENTRY POINTS Name mpi_copy_double_precision_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References DATA1 Dummy 431 R(8) 8 1 0 ARG,INOUT 435 DATA2 Dummy 431 R(8) 8 1 0 ARG,INOUT 435 I Local 434 I(4) 4 scalar 434,435 MPI_COPY_DOUBLE_PRECISION Subr 431 N Dummy 431 I(4) 4 scalar ARG,INOUT 434 Page 56 Source Listing MPI_COPY_DOUBLE_PRECISION 2014-12-17 20:48 mpi_fortran.f 1742 1743 subroutine mpi_null_copy_fn (oldcomm, keyval, extra_state, 1744 & attribute_val_in, attribute_val_out, flag, ierr) 1745 integer oldcomm, keyval, extra_state, attribute_val_in 1746 integer attribute_val_out, ierr 1747 logical flag 1748 return 1749 end ENTRY POINTS Name mpi_null_copy_fn_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ATTRIBUTE_VAL_IN Dummy 442 I(4) 4 scalar ARG,INOUT ATTRIBUTE_VAL_OUT Dummy 442 I(4) 4 scalar ARG,INOUT EXTRA_STATE Dummy 441 I(4) 4 scalar ARG,INOUT FLAG Dummy 442 L(4) 4 scalar ARG,INOUT IERR Dummy 442 I(4) 4 scalar ARG,INOUT KEYVAL Dummy 441 I(4) 4 scalar ARG,INOUT MPI_NULL_COPY_FN Subr 441 OLDCOMM Dummy 441 I(4) 4 scalar ARG,INOUT Page 57 Source Listing MPI_NULL_COPY_FN 2014-12-17 20:48 mpi_fortran.f 1750 1751 C copied from NCO stub routines 6/2012 1752 1753 subroutine mpi_scatterv(globbuf, counts, displs, gettype, 1754 $ field, my_count, sendtype, root, comm, ierr) 1755 return 1756 end ENTRY POINTS Name mpi_scatterv_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References COMM Dummy 452 R(4) 4 scalar ARG,INOUT COUNTS Dummy 451 R(4) 4 scalar ARG,INOUT DISPLS Dummy 451 R(4) 4 scalar ARG,INOUT FIELD Dummy 452 R(4) 4 scalar ARG,INOUT GETTYPE Dummy 451 R(4) 4 scalar ARG,INOUT GLOBBUF Dummy 451 R(4) 4 scalar ARG,INOUT IERR Dummy 452 I(4) 4 scalar ARG,INOUT MPI_SCATTERV Subr 451 MY_COUNT Dummy 452 I(4) 4 scalar ARG,INOUT ROOT Dummy 452 R(4) 4 scalar ARG,INOUT SENDTYPE Dummy 452 R(4) 4 scalar ARG,INOUT Page 58 Source Listing MPI_SCATTERV 2014-12-17 20:48 Subprograms/Common Blocks mpi_fortran.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References MPIPRIV Common 209 36 MPI_ABORT Subr 34 MPI_ALLGATHER Subr 299 MPI_ALLGATHERV Subr 319 MPI_ALLREDUCE Subr 261 MPI_BARRIER Subr 58 MPI_BCAST Subr 231 MPI_CART_CREATE Subr 357 MPI_CART_GET Subr 368 MPI_CART_SHIFT Subr 383 MPI_COMM_CREATE Subr 119 MPI_COMM_DUP Subr 74 MPI_COMM_FREE Subr 399 MPI_COMM_GROUP Subr 93 MPI_COMM_RANK Subr 41 MPI_COMM_SIZE Subr 50 MPI_COMM_SPLIT Subr 393 MPI_COPY_DOUBLE_PRECISION Subr 431 MPI_COPY_INTEGER Subr 409 MPI_COPY_REAL Subr 420 MPI_ERROR Subr 88 MPI_FINALIZE Subr 28 MPI_GATHER Subr 279 MPI_GATHERV Subr 138 MPI_GET_COUNT Subr 179 MPI_GROUP_EXCL Subr 100 MPI_GROUP_FREE Subr 106 MPI_INIT Subr 15 MPI_INITIALIZED Subr 20 MPI_INTERCOMM_CREATE Subr 111 MPI_IRECV Subr 190 MPI_ISEND Subr 80 MPI_NULL_COPY_FN Subr 441 MPI_PROBE Subr 162 MPI_RECV Subr 168 MPI_REDUCE Subr 243 MPI_REDUCE_SCATTER Subr 339 MPI_RSEND Subr 151 MPI_SCATTERV Subr 451 MPI_SEND Subr 65 MPI_SENDRECV Subr 125 MPI_TYPE_SIZE Subr 236 MPI_WAIT Subr 201 MPI_WAITALL Subr 211 MPI_WAITANY Subr 221 MPI_WTIME Func 6 R(8) 8 scalar 9 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records Page 59 Source Listing MPI_SCATTERV 2014-12-17 20:48 mpi_fortran.f -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model noprecise -fp_model fast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 Page 60 Source Listing MPI_SCATTERV 2014-12-17 20:48 mpi_fortran.f no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/,.f,./.f,/usrx/local/intel/composerxe/mkl/include/.f, /usrx/local/intel/composerxe/tbb/include/.f,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/.f, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/.f,/usr/local/include/.f,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/.f, /usr/include/.f,/usr/include/.f -list filename : mpi_fortran.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100