Page 1 Source Listing MPI_WTIME 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 2025-03-12 18:24 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 465,467,469,471 DATA2 Dummy 243 R(4) 4 scalar ARG,INOUT 465,467,469,471 IERROR Dummy 244 I(4) 4 scalar ARG,INOUT IO_TASK Dummy 244 I(4) 4 scalar ARG,INOUT MPIPRIV Common 455 36 SAVE MPI_2COMPLEX Param 356 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 356 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 356 I(4) 4 scalar MPI_2INTEGER Param 355 I(4) 4 scalar MPI_2REAL Param 355 I(4) 4 scalar MPI_ADDRESS_KIND Param 435 I(4) 4 scalar MPI_ANY_SOURCE Param 426 I(4) 4 scalar MPI_ANY_TAG Param 428 I(4) 4 scalar MPI_BAND Param 360 I(4) 4 scalar MPI_BOR Param 361 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 301 I(4) 4 scalar MPI_BXOR Param 361 I(4) 4 scalar MPI_BYTE Param 355 I(4) 4 scalar MPI_CART Param 296 I(4) 4 scalar MPI_CHARACTER Param 355 I(4) 4 scalar MPI_COMM Dummy 244 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 314 I(4) 4 scalar MPI_COMM_SELF Param 359 I(4) 4 scalar MPI_COMM_WORLD Param 359 I(4) 4 scalar MPI_COMPLEX Param 354 I(4) 4 scalar Page 31 Source Listing MPI_REDUCE 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX16 Param 393 I(4) 4 scalar MPI_COMPLEX32 Param 393 I(4) 4 scalar MPI_COMPLEX8 Param 393 I(4) 4 scalar MPI_CONGRUENT Param 332 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 469 469,471 MPI_COPY_INTEGER Subr 465 465 MPI_COPY_REAL Subr 467 467 MPI_DATATYPE Dummy 243 I(4) 4 scalar ARG,INOUT 464,466,468,470 MPI_DATATYPE_NULL Param 317 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 377 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 377 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 378 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 378 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 354 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 353 I(4) 4 scalar 468 MPI_ERRHANDLER_NULL Param 320 I(4) 4 scalar MPI_ERROR Param 304 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 364 I(4) 4 scalar MPI_ERRORS_RETURN Param 364 I(4) 4 scalar MPI_ERR_ARG Param 279 I(4) 4 scalar MPI_ERR_BUFFER Param 276 I(4) 4 scalar MPI_ERR_COMM Param 277 I(4) 4 scalar MPI_ERR_COUNT Param 276 I(4) 4 scalar MPI_ERR_DIMS Param 279 I(4) 4 scalar MPI_ERR_GROUP Param 278 I(4) 4 scalar MPI_ERR_INTERN Param 281 I(4) 4 scalar MPI_ERR_IN_STATUS Param 281 I(4) 4 scalar MPI_ERR_LASTCODE Param 282 I(4) 4 scalar MPI_ERR_OP Param 279 I(4) 4 scalar MPI_ERR_OTHER Param 280 I(4) 4 scalar MPI_ERR_PENDING Param 281 I(4) 4 scalar MPI_ERR_RANK Param 277 I(4) 4 scalar MPI_ERR_REQUEST Param 282 I(4) 4 scalar MPI_ERR_ROOT Param 277 I(4) 4 scalar MPI_ERR_TAG Param 277 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 279 I(4) 4 scalar MPI_ERR_TRUNCATE Param 280 I(4) 4 scalar MPI_ERR_TYPE Param 276 I(4) 4 scalar MPI_ERR_UNKNOWN Param 280 I(4) 4 scalar MPI_GRAPH Param 296 I(4) 4 scalar MPI_GROUP_EMPTY Param 359 I(4) 4 scalar MPI_GROUP_NULL Param 323 I(4) 4 scalar MPI_HOST Param 349 I(4) 4 scalar MPI_IDENT Param 332 I(4) 4 scalar MPI_INFO_NULL Param 384 I(4) 4 scalar MPI_INTEGER Param 353 I(4) 4 scalar 464 MPI_INTEGER1 Param 390 I(4) 4 scalar MPI_INTEGER16 Param 391 I(4) 4 scalar MPI_INTEGER2 Param 390 I(4) 4 scalar MPI_INTEGER4 Param 390 I(4) 4 scalar MPI_INTEGER8 Param 390 I(4) 4 scalar MPI_IO Param 349 I(4) 4 scalar MPI_KEYVAL_INVALID Param 326 I(4) 4 scalar MPI_LAND Param 360 I(4) 4 scalar MPI_LB Param 357 I(4) 4 scalar Page 32 Source Listing MPI_REDUCE 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LOGICAL Param 354 I(4) 4 scalar MPI_LOR Param 361 I(4) 4 scalar MPI_LXOR Param 361 I(4) 4 scalar MPI_MAX Param 360 I(4) 4 scalar MPI_MAXLOC Param 362 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 308 I(4) 4 scalar MPI_MAX_INFO_KEY Param 382 I(4) 4 scalar MPI_MAX_INFO_VAL Param 382 I(4) 4 scalar MPI_MAX_NAME_STRING Param 311 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 308 I(4) 4 scalar MPI_MIN Param 360 I(4) 4 scalar MPI_MINLOC Param 361 I(4) 4 scalar MPI_OFFSET_KIND Param 435 I(4) 4 scalar MPI_OPERATION Dummy 244 I(4) 4 scalar ARG,INOUT MPI_OP_NULL Param 363 I(4) 4 scalar MPI_ORDER_C Param 375 I(4) 4 scalar MPI_ORDER_FORTRAN Param 375 I(4) 4 scalar MPI_PACKED Param 358 I(4) 4 scalar MPI_PROC_NULL Param 298 I(4) 4 scalar MPI_PROD Param 360 I(4) 4 scalar MPI_REAL Param 353 I(4) 4 scalar 466 MPI_REAL16 Param 392 I(4) 4 scalar MPI_REAL4 Param 392 I(4) 4 scalar MPI_REAL8 Param 392 I(4) 4 scalar 470 MPI_REDUCE Subr 243 MPI_REQUEST_NULL Param 329 I(4) 4 scalar MPI_SIMILAR Param 332 I(4) 4 scalar MPI_SOURCE Param 304 I(4) 4 scalar MPI_STATUS_SIZE Param 306 I(4) 4 scalar 351,352 MPI_SUBVERSION Param 431 I(4) 4 scalar MPI_SUCCESS Param 276 I(4) 4 scalar MPI_SUM Param 360 I(4) 4 scalar MPI_TAG Param 304 I(4) 4 scalar MPI_TAG_UB Param 349 I(4) 4 scalar MPI_UB Param 357 I(4) 4 scalar MPI_UNDEFINED Param 293 I(4) 4 scalar MPI_UNEQUAL Param 332 I(4) 4 scalar MPI_VERSION Param 431 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 358 I(4) 4 scalar N Dummy 243 I(4) 4 scalar ARG,INOUT 465,467,469,471 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References MPI_BOTTOM I(4) 4 0 scalar COM MPI_STATUSES_IGNORE I(4) 4 20 1 4 COM MPI_STATUS_IGNORE I(4) 4 4 1 4 COM Page 33 Source Listing MPI_REDUCE 2025-03-12 18:24 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 478 R(4) 4 scalar ARG,INOUT 701,703,705,707 DATA2 Dummy 478 R(4) 4 scalar ARG,INOUT 701,703,705,707 IERROR Dummy 479 I(4) 4 scalar ARG,INOUT MPIPRIV Common 690 36 SAVE MPI_2COMPLEX Param 591 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 591 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 591 I(4) 4 scalar MPI_2INTEGER Param 590 I(4) 4 scalar MPI_2REAL Param 590 I(4) 4 scalar MPI_ADDRESS_KIND Param 670 I(4) 4 scalar MPI_ALLREDUCE Subr 478 MPI_ANY_SOURCE Param 661 I(4) 4 scalar MPI_ANY_TAG Param 663 I(4) 4 scalar MPI_BAND Param 595 I(4) 4 scalar MPI_BOR Param 596 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 536 I(4) 4 scalar MPI_BXOR Param 596 I(4) 4 scalar MPI_BYTE Param 590 I(4) 4 scalar MPI_CART Param 531 I(4) 4 scalar MPI_CHARACTER Param 590 I(4) 4 scalar MPI_COMM Dummy 479 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 549 I(4) 4 scalar MPI_COMM_SELF Param 594 I(4) 4 scalar MPI_COMM_WORLD Param 594 I(4) 4 scalar MPI_COMPLEX Param 589 I(4) 4 scalar Page 34 Source Listing MPI_ALLREDUCE 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX16 Param 628 I(4) 4 scalar MPI_COMPLEX32 Param 628 I(4) 4 scalar MPI_COMPLEX8 Param 628 I(4) 4 scalar MPI_CONGRUENT Param 567 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 705 705,707 MPI_COPY_INTEGER Subr 701 701 MPI_COPY_REAL Subr 703 703 MPI_DATATYPE Dummy 478 I(4) 4 scalar ARG,INOUT 699,700,702,704,706 MPI_DATATYPE_NULL Param 552 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 612 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 612 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 613 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 613 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 589 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 588 I(4) 4 scalar 704 MPI_ERRHANDLER_NULL Param 555 I(4) 4 scalar MPI_ERROR Param 539 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 599 I(4) 4 scalar MPI_ERRORS_RETURN Param 599 I(4) 4 scalar MPI_ERR_ARG Param 514 I(4) 4 scalar MPI_ERR_BUFFER Param 511 I(4) 4 scalar MPI_ERR_COMM Param 512 I(4) 4 scalar MPI_ERR_COUNT Param 511 I(4) 4 scalar MPI_ERR_DIMS Param 514 I(4) 4 scalar MPI_ERR_GROUP Param 513 I(4) 4 scalar MPI_ERR_INTERN Param 516 I(4) 4 scalar MPI_ERR_IN_STATUS Param 516 I(4) 4 scalar MPI_ERR_LASTCODE Param 517 I(4) 4 scalar MPI_ERR_OP Param 514 I(4) 4 scalar MPI_ERR_OTHER Param 515 I(4) 4 scalar MPI_ERR_PENDING Param 516 I(4) 4 scalar MPI_ERR_RANK Param 512 I(4) 4 scalar MPI_ERR_REQUEST Param 517 I(4) 4 scalar MPI_ERR_ROOT Param 512 I(4) 4 scalar MPI_ERR_TAG Param 512 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 514 I(4) 4 scalar MPI_ERR_TRUNCATE Param 515 I(4) 4 scalar MPI_ERR_TYPE Param 511 I(4) 4 scalar MPI_ERR_UNKNOWN Param 515 I(4) 4 scalar MPI_GRAPH Param 531 I(4) 4 scalar MPI_GROUP_EMPTY Param 594 I(4) 4 scalar MPI_GROUP_NULL Param 558 I(4) 4 scalar MPI_HOST Param 584 I(4) 4 scalar MPI_IDENT Param 567 I(4) 4 scalar MPI_INFO_NULL Param 619 I(4) 4 scalar MPI_INTEGER Param 588 I(4) 4 scalar 699,700 MPI_INTEGER1 Param 625 I(4) 4 scalar MPI_INTEGER16 Param 626 I(4) 4 scalar MPI_INTEGER2 Param 625 I(4) 4 scalar MPI_INTEGER4 Param 625 I(4) 4 scalar MPI_INTEGER8 Param 625 I(4) 4 scalar MPI_IO Param 584 I(4) 4 scalar MPI_KEYVAL_INVALID Param 561 I(4) 4 scalar MPI_LAND Param 595 I(4) 4 scalar MPI_LB Param 592 I(4) 4 scalar Page 35 Source Listing MPI_ALLREDUCE 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LOGICAL Param 589 I(4) 4 scalar MPI_LOR Param 596 I(4) 4 scalar MPI_LXOR Param 596 I(4) 4 scalar MPI_MAX Param 595 I(4) 4 scalar MPI_MAXLOC Param 597 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 543 I(4) 4 scalar MPI_MAX_INFO_KEY Param 617 I(4) 4 scalar MPI_MAX_INFO_VAL Param 617 I(4) 4 scalar MPI_MAX_NAME_STRING Param 546 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 543 I(4) 4 scalar MPI_MIN Param 595 I(4) 4 scalar MPI_MINLOC Param 596 I(4) 4 scalar MPI_OFFSET_KIND Param 670 I(4) 4 scalar MPI_OPERATION Dummy 479 I(4) 4 scalar ARG,INOUT MPI_OP_NULL Param 598 I(4) 4 scalar MPI_ORDER_C Param 610 I(4) 4 scalar MPI_ORDER_FORTRAN Param 610 I(4) 4 scalar MPI_PACKED Param 593 I(4) 4 scalar MPI_PROC_NULL Param 533 I(4) 4 scalar MPI_PROD Param 595 I(4) 4 scalar MPI_REAL Param 588 I(4) 4 scalar 699,702 MPI_REAL16 Param 627 I(4) 4 scalar MPI_REAL4 Param 627 I(4) 4 scalar MPI_REAL8 Param 627 I(4) 4 scalar 706 MPI_REQUEST_NULL Param 564 I(4) 4 scalar MPI_SIMILAR Param 567 I(4) 4 scalar MPI_SOURCE Param 539 I(4) 4 scalar MPI_STATUS_SIZE Param 541 I(4) 4 scalar 586,587 MPI_SUBVERSION Param 666 I(4) 4 scalar MPI_SUCCESS Param 511 I(4) 4 scalar MPI_SUM Param 595 I(4) 4 scalar MPI_TAG Param 539 I(4) 4 scalar MPI_TAG_UB Param 584 I(4) 4 scalar MPI_UB Param 592 I(4) 4 scalar MPI_UNDEFINED Param 528 I(4) 4 scalar MPI_UNEQUAL Param 567 I(4) 4 scalar MPI_VERSION Param 666 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 593 I(4) 4 scalar N Dummy 478 I(4) 4 scalar ARG,INOUT 701,703,705,707 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References MPI_BOTTOM I(4) 4 0 scalar COM MPI_STATUSES_IGNORE I(4) 4 20 1 4 COM MPI_STATUS_IGNORE I(4) 4 4 1 4 COM Page 36 Source Listing MPI_ALLREDUCE 2025-03-12 18:24 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 713 R(4) 4 scalar ARG,INOUT 935,937,939,941 DATA2 Dummy 713 R(4) 4 scalar ARG,INOUT 935,937,939,941 IERROR Dummy 714 I(4) 4 scalar ARG,INOUT IO_TASK Dummy 714 I(4) 4 scalar ARG,INOUT MPIPRIV Common 925 36 SAVE MPI_2COMPLEX Param 826 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 826 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 826 I(4) 4 scalar MPI_2INTEGER Param 825 I(4) 4 scalar MPI_2REAL Param 825 I(4) 4 scalar MPI_ADDRESS_KIND Param 905 I(4) 4 scalar MPI_ANY_SOURCE Param 896 I(4) 4 scalar MPI_ANY_TAG Param 898 I(4) 4 scalar MPI_BAND Param 830 I(4) 4 scalar MPI_BOR Param 831 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 771 I(4) 4 scalar MPI_BXOR Param 831 I(4) 4 scalar MPI_BYTE Param 825 I(4) 4 scalar MPI_CART Param 766 I(4) 4 scalar MPI_CHARACTER Param 825 I(4) 4 scalar MPI_COMM Dummy 714 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 784 I(4) 4 scalar MPI_COMM_SELF Param 829 I(4) 4 scalar MPI_COMM_WORLD Param 829 I(4) 4 scalar MPI_COMPLEX Param 824 I(4) 4 scalar MPI_COMPLEX16 Param 863 I(4) 4 scalar MPI_COMPLEX32 Param 863 I(4) 4 scalar Page 37 Source Listing MPI_GATHER 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX8 Param 863 I(4) 4 scalar MPI_CONGRUENT Param 802 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 939 939,941 MPI_COPY_INTEGER Subr 935 935 MPI_COPY_REAL Subr 937 937 MPI_DATATYPE_NULL Param 787 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 847 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 847 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 848 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 848 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 824 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 823 I(4) 4 scalar 938 MPI_ERRHANDLER_NULL Param 790 I(4) 4 scalar MPI_ERROR Param 774 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 834 I(4) 4 scalar MPI_ERRORS_RETURN Param 834 I(4) 4 scalar MPI_ERR_ARG Param 749 I(4) 4 scalar MPI_ERR_BUFFER Param 746 I(4) 4 scalar MPI_ERR_COMM Param 747 I(4) 4 scalar MPI_ERR_COUNT Param 746 I(4) 4 scalar MPI_ERR_DIMS Param 749 I(4) 4 scalar MPI_ERR_GROUP Param 748 I(4) 4 scalar MPI_ERR_INTERN Param 751 I(4) 4 scalar MPI_ERR_IN_STATUS Param 751 I(4) 4 scalar MPI_ERR_LASTCODE Param 752 I(4) 4 scalar MPI_ERR_OP Param 749 I(4) 4 scalar MPI_ERR_OTHER Param 750 I(4) 4 scalar MPI_ERR_PENDING Param 751 I(4) 4 scalar MPI_ERR_RANK Param 747 I(4) 4 scalar MPI_ERR_REQUEST Param 752 I(4) 4 scalar MPI_ERR_ROOT Param 747 I(4) 4 scalar MPI_ERR_TAG Param 747 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 749 I(4) 4 scalar MPI_ERR_TRUNCATE Param 750 I(4) 4 scalar MPI_ERR_TYPE Param 746 I(4) 4 scalar MPI_ERR_UNKNOWN Param 750 I(4) 4 scalar MPI_GATHER Subr 713 MPI_GRAPH Param 766 I(4) 4 scalar MPI_GROUP_EMPTY Param 829 I(4) 4 scalar MPI_GROUP_NULL Param 793 I(4) 4 scalar MPI_HOST Param 819 I(4) 4 scalar MPI_IDENT Param 802 I(4) 4 scalar MPI_INFO_NULL Param 854 I(4) 4 scalar MPI_INTEGER Param 823 I(4) 4 scalar 934 MPI_INTEGER1 Param 860 I(4) 4 scalar MPI_INTEGER16 Param 861 I(4) 4 scalar MPI_INTEGER2 Param 860 I(4) 4 scalar MPI_INTEGER4 Param 860 I(4) 4 scalar MPI_INTEGER8 Param 860 I(4) 4 scalar MPI_IO Param 819 I(4) 4 scalar MPI_KEYVAL_INVALID Param 796 I(4) 4 scalar MPI_LAND Param 830 I(4) 4 scalar MPI_LB Param 827 I(4) 4 scalar MPI_LOGICAL Param 824 I(4) 4 scalar MPI_LOR Param 831 I(4) 4 scalar Page 38 Source Listing MPI_GATHER 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LXOR Param 831 I(4) 4 scalar MPI_MAX Param 830 I(4) 4 scalar MPI_MAXLOC Param 832 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 778 I(4) 4 scalar MPI_MAX_INFO_KEY Param 852 I(4) 4 scalar MPI_MAX_INFO_VAL Param 852 I(4) 4 scalar MPI_MAX_NAME_STRING Param 781 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 778 I(4) 4 scalar MPI_MIN Param 830 I(4) 4 scalar MPI_MINLOC Param 831 I(4) 4 scalar MPI_OFFSET_KIND Param 905 I(4) 4 scalar MPI_OP_NULL Param 833 I(4) 4 scalar MPI_ORDER_C Param 845 I(4) 4 scalar MPI_ORDER_FORTRAN Param 845 I(4) 4 scalar MPI_PACKED Param 828 I(4) 4 scalar MPI_PROC_NULL Param 768 I(4) 4 scalar MPI_PROD Param 830 I(4) 4 scalar MPI_REAL Param 823 I(4) 4 scalar 936 MPI_REAL16 Param 862 I(4) 4 scalar MPI_REAL4 Param 862 I(4) 4 scalar MPI_REAL8 Param 862 I(4) 4 scalar 940 MPI_RECVTYPE Dummy 714 I(4) 4 scalar ARG,INOUT MPI_REQUEST_NULL Param 799 I(4) 4 scalar MPI_SENDTYPE Dummy 713 I(4) 4 scalar ARG,INOUT 934,936,938,940 MPI_SIMILAR Param 802 I(4) 4 scalar MPI_SOURCE Param 774 I(4) 4 scalar MPI_STATUS_SIZE Param 776 I(4) 4 scalar 821,822 MPI_SUBVERSION Param 901 I(4) 4 scalar MPI_SUCCESS Param 746 I(4) 4 scalar MPI_SUM Param 830 I(4) 4 scalar MPI_TAG Param 774 I(4) 4 scalar MPI_TAG_UB Param 819 I(4) 4 scalar MPI_UB Param 827 I(4) 4 scalar MPI_UNDEFINED Param 763 I(4) 4 scalar MPI_UNEQUAL Param 802 I(4) 4 scalar MPI_VERSION Param 901 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 828 I(4) 4 scalar NRECV Dummy 714 I(4) 4 scalar ARG,INOUT NSEND Dummy 713 I(4) 4 scalar ARG,INOUT 935,937,939,941 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References MPI_BOTTOM I(4) 4 0 scalar COM MPI_STATUSES_IGNORE I(4) 4 20 1 4 COM MPI_STATUS_IGNORE I(4) 4 4 1 4 COM Page 39 Source Listing MPI_GATHER 2025-03-12 18:24 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 950 R(4) 4 scalar ARG,INOUT 1172,1174,1176,1178 DATA2 Dummy 951 R(4) 4 scalar ARG,INOUT 1172,1174,1176,1178 IERROR Dummy 951 I(4) 4 scalar ARG,INOUT MPIPRIV Common 1162 36 SAVE MPI_2COMPLEX Param 1063 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 1063 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 1063 I(4) 4 scalar MPI_2INTEGER Param 1062 I(4) 4 scalar MPI_2REAL Param 1062 I(4) 4 scalar MPI_ADDRESS_KIND Param 1142 I(4) 4 scalar MPI_ALLGATHER Subr 950 MPI_ANY_SOURCE Param 1133 I(4) 4 scalar MPI_ANY_TAG Param 1135 I(4) 4 scalar MPI_BAND Param 1067 I(4) 4 scalar MPI_BOR Param 1068 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 1008 I(4) 4 scalar MPI_BXOR Param 1068 I(4) 4 scalar MPI_BYTE Param 1062 I(4) 4 scalar MPI_CART Param 1003 I(4) 4 scalar MPI_CHARACTER Param 1062 I(4) 4 scalar MPI_COMM Dummy 951 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 1021 I(4) 4 scalar MPI_COMM_SELF Param 1066 I(4) 4 scalar MPI_COMM_WORLD Param 1066 I(4) 4 scalar Page 40 Source Listing MPI_ALLGATHER 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX Param 1061 I(4) 4 scalar MPI_COMPLEX16 Param 1100 I(4) 4 scalar MPI_COMPLEX32 Param 1100 I(4) 4 scalar MPI_COMPLEX8 Param 1100 I(4) 4 scalar MPI_CONGRUENT Param 1039 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 1176 1176,1178 MPI_COPY_INTEGER Subr 1172 1172 MPI_COPY_REAL Subr 1174 1174 MPI_DATATYPE_NULL Param 1024 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 1084 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 1084 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 1085 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 1085 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 1061 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 1060 I(4) 4 scalar 1175 MPI_ERRHANDLER_NULL Param 1027 I(4) 4 scalar MPI_ERROR Param 1011 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 1071 I(4) 4 scalar MPI_ERRORS_RETURN Param 1071 I(4) 4 scalar MPI_ERR_ARG Param 986 I(4) 4 scalar MPI_ERR_BUFFER Param 983 I(4) 4 scalar MPI_ERR_COMM Param 984 I(4) 4 scalar MPI_ERR_COUNT Param 983 I(4) 4 scalar MPI_ERR_DIMS Param 986 I(4) 4 scalar MPI_ERR_GROUP Param 985 I(4) 4 scalar MPI_ERR_INTERN Param 988 I(4) 4 scalar MPI_ERR_IN_STATUS Param 988 I(4) 4 scalar MPI_ERR_LASTCODE Param 989 I(4) 4 scalar MPI_ERR_OP Param 986 I(4) 4 scalar MPI_ERR_OTHER Param 987 I(4) 4 scalar MPI_ERR_PENDING Param 988 I(4) 4 scalar MPI_ERR_RANK Param 984 I(4) 4 scalar MPI_ERR_REQUEST Param 989 I(4) 4 scalar MPI_ERR_ROOT Param 984 I(4) 4 scalar MPI_ERR_TAG Param 984 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 986 I(4) 4 scalar MPI_ERR_TRUNCATE Param 987 I(4) 4 scalar MPI_ERR_TYPE Param 983 I(4) 4 scalar MPI_ERR_UNKNOWN Param 987 I(4) 4 scalar MPI_GRAPH Param 1003 I(4) 4 scalar MPI_GROUP_EMPTY Param 1066 I(4) 4 scalar MPI_GROUP_NULL Param 1030 I(4) 4 scalar MPI_HOST Param 1056 I(4) 4 scalar MPI_IDENT Param 1039 I(4) 4 scalar MPI_INFO_NULL Param 1091 I(4) 4 scalar MPI_INTEGER Param 1060 I(4) 4 scalar 1171 MPI_INTEGER1 Param 1097 I(4) 4 scalar MPI_INTEGER16 Param 1098 I(4) 4 scalar MPI_INTEGER2 Param 1097 I(4) 4 scalar MPI_INTEGER4 Param 1097 I(4) 4 scalar MPI_INTEGER8 Param 1097 I(4) 4 scalar MPI_IO Param 1056 I(4) 4 scalar MPI_KEYVAL_INVALID Param 1033 I(4) 4 scalar MPI_LAND Param 1067 I(4) 4 scalar MPI_LB Param 1064 I(4) 4 scalar Page 41 Source Listing MPI_ALLGATHER 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LOGICAL Param 1061 I(4) 4 scalar MPI_LOR Param 1068 I(4) 4 scalar MPI_LXOR Param 1068 I(4) 4 scalar MPI_MAX Param 1067 I(4) 4 scalar MPI_MAXLOC Param 1069 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 1015 I(4) 4 scalar MPI_MAX_INFO_KEY Param 1089 I(4) 4 scalar MPI_MAX_INFO_VAL Param 1089 I(4) 4 scalar MPI_MAX_NAME_STRING Param 1018 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 1015 I(4) 4 scalar MPI_MIN Param 1067 I(4) 4 scalar MPI_MINLOC Param 1068 I(4) 4 scalar MPI_OFFSET_KIND Param 1142 I(4) 4 scalar MPI_OP_NULL Param 1070 I(4) 4 scalar MPI_ORDER_C Param 1082 I(4) 4 scalar MPI_ORDER_FORTRAN Param 1082 I(4) 4 scalar MPI_PACKED Param 1065 I(4) 4 scalar MPI_PROC_NULL Param 1005 I(4) 4 scalar MPI_PROD Param 1067 I(4) 4 scalar MPI_REAL Param 1060 I(4) 4 scalar 1173 MPI_REAL16 Param 1099 I(4) 4 scalar MPI_REAL4 Param 1099 I(4) 4 scalar MPI_REAL8 Param 1099 I(4) 4 scalar 1177 MPI_RECVTYPE Dummy 951 I(4) 4 scalar ARG,INOUT MPI_REQUEST_NULL Param 1036 I(4) 4 scalar MPI_SENDTYPE Dummy 950 I(4) 4 scalar ARG,INOUT 1171,1173,1175,1177 MPI_SIMILAR Param 1039 I(4) 4 scalar MPI_SOURCE Param 1011 I(4) 4 scalar MPI_STATUS_SIZE Param 1013 I(4) 4 scalar 1058,1059 MPI_SUBVERSION Param 1138 I(4) 4 scalar MPI_SUCCESS Param 983 I(4) 4 scalar MPI_SUM Param 1067 I(4) 4 scalar MPI_TAG Param 1011 I(4) 4 scalar MPI_TAG_UB Param 1056 I(4) 4 scalar MPI_UB Param 1064 I(4) 4 scalar MPI_UNDEFINED Param 1000 I(4) 4 scalar MPI_UNEQUAL Param 1039 I(4) 4 scalar MPI_VERSION Param 1138 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 1065 I(4) 4 scalar NRECV Dummy 951 I(4) 4 scalar ARG,INOUT NSEND Dummy 950 I(4) 4 scalar ARG,INOUT 1172,1174,1176,1178 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References MPI_BOTTOM I(4) 4 0 scalar COM MPI_STATUSES_IGNORE I(4) 4 20 1 4 COM MPI_STATUS_IGNORE I(4) 4 4 1 4 COM Page 42 Source Listing MPI_ALLGATHER 2025-03-12 18:24 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 1187 R(4) 4 scalar ARG,INOUT 1409,1411,1413,1415 DATA2 Dummy 1188 R(4) 4 scalar ARG,INOUT 1409,1411,1413,1415 IERROR Dummy 1188 I(4) 4 scalar ARG,INOUT MPIPRIV Common 1399 36 SAVE MPI_2COMPLEX Param 1300 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 1300 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 1300 I(4) 4 scalar MPI_2INTEGER Param 1299 I(4) 4 scalar MPI_2REAL Param 1299 I(4) 4 scalar MPI_ADDRESS_KIND Param 1379 I(4) 4 scalar MPI_ALLGATHERV Subr 1187 MPI_ANY_SOURCE Param 1370 I(4) 4 scalar MPI_ANY_TAG Param 1372 I(4) 4 scalar MPI_BAND Param 1304 I(4) 4 scalar MPI_BOR Param 1305 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 1245 I(4) 4 scalar MPI_BXOR Param 1305 I(4) 4 scalar MPI_BYTE Param 1299 I(4) 4 scalar MPI_CART Param 1240 I(4) 4 scalar MPI_CHARACTER Param 1299 I(4) 4 scalar MPI_COMM Dummy 1188 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 1258 I(4) 4 scalar MPI_COMM_SELF Param 1303 I(4) 4 scalar MPI_COMM_WORLD Param 1303 I(4) 4 scalar Page 43 Source Listing MPI_ALLGATHERV 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX Param 1298 I(4) 4 scalar MPI_COMPLEX16 Param 1337 I(4) 4 scalar MPI_COMPLEX32 Param 1337 I(4) 4 scalar MPI_COMPLEX8 Param 1337 I(4) 4 scalar MPI_CONGRUENT Param 1276 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 1413 1413,1415 MPI_COPY_INTEGER Subr 1409 1409 MPI_COPY_REAL Subr 1411 1411 MPI_DATATYPE_NULL Param 1261 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 1321 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 1321 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 1322 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 1322 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 1298 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 1297 I(4) 4 scalar 1412 MPI_ERRHANDLER_NULL Param 1264 I(4) 4 scalar MPI_ERROR Param 1248 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 1308 I(4) 4 scalar MPI_ERRORS_RETURN Param 1308 I(4) 4 scalar MPI_ERR_ARG Param 1223 I(4) 4 scalar MPI_ERR_BUFFER Param 1220 I(4) 4 scalar MPI_ERR_COMM Param 1221 I(4) 4 scalar MPI_ERR_COUNT Param 1220 I(4) 4 scalar MPI_ERR_DIMS Param 1223 I(4) 4 scalar MPI_ERR_GROUP Param 1222 I(4) 4 scalar MPI_ERR_INTERN Param 1225 I(4) 4 scalar MPI_ERR_IN_STATUS Param 1225 I(4) 4 scalar MPI_ERR_LASTCODE Param 1226 I(4) 4 scalar MPI_ERR_OP Param 1223 I(4) 4 scalar MPI_ERR_OTHER Param 1224 I(4) 4 scalar MPI_ERR_PENDING Param 1225 I(4) 4 scalar MPI_ERR_RANK Param 1221 I(4) 4 scalar MPI_ERR_REQUEST Param 1226 I(4) 4 scalar MPI_ERR_ROOT Param 1221 I(4) 4 scalar MPI_ERR_TAG Param 1221 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 1223 I(4) 4 scalar MPI_ERR_TRUNCATE Param 1224 I(4) 4 scalar MPI_ERR_TYPE Param 1220 I(4) 4 scalar MPI_ERR_UNKNOWN Param 1224 I(4) 4 scalar MPI_GRAPH Param 1240 I(4) 4 scalar MPI_GROUP_EMPTY Param 1303 I(4) 4 scalar MPI_GROUP_NULL Param 1267 I(4) 4 scalar MPI_HOST Param 1293 I(4) 4 scalar MPI_IDENT Param 1276 I(4) 4 scalar MPI_INFO_NULL Param 1328 I(4) 4 scalar MPI_INTEGER Param 1297 I(4) 4 scalar 1408 MPI_INTEGER1 Param 1334 I(4) 4 scalar MPI_INTEGER16 Param 1335 I(4) 4 scalar MPI_INTEGER2 Param 1334 I(4) 4 scalar MPI_INTEGER4 Param 1334 I(4) 4 scalar MPI_INTEGER8 Param 1334 I(4) 4 scalar MPI_IO Param 1293 I(4) 4 scalar MPI_KEYVAL_INVALID Param 1270 I(4) 4 scalar MPI_LAND Param 1304 I(4) 4 scalar MPI_LB Param 1301 I(4) 4 scalar Page 44 Source Listing MPI_ALLGATHERV 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LOGICAL Param 1298 I(4) 4 scalar MPI_LOR Param 1305 I(4) 4 scalar MPI_LXOR Param 1305 I(4) 4 scalar MPI_MAX Param 1304 I(4) 4 scalar MPI_MAXLOC Param 1306 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 1252 I(4) 4 scalar MPI_MAX_INFO_KEY Param 1326 I(4) 4 scalar MPI_MAX_INFO_VAL Param 1326 I(4) 4 scalar MPI_MAX_NAME_STRING Param 1255 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 1252 I(4) 4 scalar MPI_MIN Param 1304 I(4) 4 scalar MPI_MINLOC Param 1305 I(4) 4 scalar MPI_OFFSET_KIND Param 1379 I(4) 4 scalar MPI_OP_NULL Param 1307 I(4) 4 scalar MPI_ORDER_C Param 1319 I(4) 4 scalar MPI_ORDER_FORTRAN Param 1319 I(4) 4 scalar MPI_PACKED Param 1302 I(4) 4 scalar MPI_PROC_NULL Param 1242 I(4) 4 scalar MPI_PROD Param 1304 I(4) 4 scalar MPI_REAL Param 1297 I(4) 4 scalar 1410 MPI_REAL16 Param 1336 I(4) 4 scalar MPI_REAL4 Param 1336 I(4) 4 scalar MPI_REAL8 Param 1336 I(4) 4 scalar 1414 MPI_RECVTYPE Dummy 1188 I(4) 4 scalar ARG,INOUT MPI_REQUEST_NULL Param 1273 I(4) 4 scalar MPI_SENDTYPE Dummy 1187 I(4) 4 scalar ARG,INOUT 1408,1410,1412,1414 MPI_SIMILAR Param 1276 I(4) 4 scalar MPI_SOURCE Param 1248 I(4) 4 scalar MPI_STATUS_SIZE Param 1250 I(4) 4 scalar 1295,1296 MPI_SUBVERSION Param 1375 I(4) 4 scalar MPI_SUCCESS Param 1220 I(4) 4 scalar MPI_SUM Param 1304 I(4) 4 scalar MPI_TAG Param 1248 I(4) 4 scalar MPI_TAG_UB Param 1293 I(4) 4 scalar MPI_UB Param 1301 I(4) 4 scalar MPI_UNDEFINED Param 1237 I(4) 4 scalar MPI_UNEQUAL Param 1276 I(4) 4 scalar MPI_VERSION Param 1375 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 1302 I(4) 4 scalar NDISPLS Dummy 1188 I(4) 4 scalar ARG,INOUT NRECV Dummy 1188 I(4) 4 scalar ARG,INOUT NSEND Dummy 1187 I(4) 4 scalar ARG,INOUT 1409,1411,1413,1415 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References MPI_BOTTOM I(4) 4 0 scalar COM MPI_STATUSES_IGNORE I(4) 4 20 1 4 COM MPI_STATUS_IGNORE I(4) 4 4 1 4 COM Page 45 Source Listing MPI_ALLGATHERV 2025-03-12 18:24 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 1424 R(4) 4 scalar ARG,INOUT 1646,1648,1650,1652 DATA2 Dummy 1424 R(4) 4 scalar ARG,INOUT 1646,1648,1650,1652 IERROR Dummy 1425 I(4) 4 scalar ARG,INOUT MPIPRIV Common 1636 36 SAVE MPI_2COMPLEX Param 1537 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 1537 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 1537 I(4) 4 scalar MPI_2INTEGER Param 1536 I(4) 4 scalar MPI_2REAL Param 1536 I(4) 4 scalar MPI_ADDRESS_KIND Param 1616 I(4) 4 scalar MPI_ANY_SOURCE Param 1607 I(4) 4 scalar MPI_ANY_TAG Param 1609 I(4) 4 scalar MPI_BAND Param 1541 I(4) 4 scalar MPI_BOR Param 1542 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 1482 I(4) 4 scalar MPI_BXOR Param 1542 I(4) 4 scalar MPI_BYTE Param 1536 I(4) 4 scalar MPI_CART Param 1477 I(4) 4 scalar MPI_CHARACTER Param 1536 I(4) 4 scalar MPI_COMM Dummy 1425 I(4) 4 scalar ARG,INOUT MPI_COMM_NULL Param 1495 I(4) 4 scalar MPI_COMM_SELF Param 1540 I(4) 4 scalar MPI_COMM_WORLD Param 1540 I(4) 4 scalar MPI_COMPLEX Param 1535 I(4) 4 scalar Page 46 Source Listing MPI_REDUCE_SCATTER 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX16 Param 1574 I(4) 4 scalar MPI_COMPLEX32 Param 1574 I(4) 4 scalar MPI_COMPLEX8 Param 1574 I(4) 4 scalar MPI_CONGRUENT Param 1513 I(4) 4 scalar MPI_COPY_DOUBLE_PRECISION Subr 1650 1650,1652 MPI_COPY_INTEGER Subr 1646 1646 MPI_COPY_REAL Subr 1648 1648 MPI_DATATYPE Dummy 1424 I(4) 4 scalar ARG,INOUT 1645,1647,1649,1651 MPI_DATATYPE_NULL Param 1498 I(4) 4 scalar MPI_DISTRIBUTE_BLOCK Param 1558 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 1558 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 1559 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 1559 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 1535 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 1534 I(4) 4 scalar 1649 MPI_ERRHANDLER_NULL Param 1501 I(4) 4 scalar MPI_ERROR Param 1485 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 1545 I(4) 4 scalar MPI_ERRORS_RETURN Param 1545 I(4) 4 scalar MPI_ERR_ARG Param 1460 I(4) 4 scalar MPI_ERR_BUFFER Param 1457 I(4) 4 scalar MPI_ERR_COMM Param 1458 I(4) 4 scalar MPI_ERR_COUNT Param 1457 I(4) 4 scalar MPI_ERR_DIMS Param 1460 I(4) 4 scalar MPI_ERR_GROUP Param 1459 I(4) 4 scalar MPI_ERR_INTERN Param 1462 I(4) 4 scalar MPI_ERR_IN_STATUS Param 1462 I(4) 4 scalar MPI_ERR_LASTCODE Param 1463 I(4) 4 scalar MPI_ERR_OP Param 1460 I(4) 4 scalar MPI_ERR_OTHER Param 1461 I(4) 4 scalar MPI_ERR_PENDING Param 1462 I(4) 4 scalar MPI_ERR_RANK Param 1458 I(4) 4 scalar MPI_ERR_REQUEST Param 1463 I(4) 4 scalar MPI_ERR_ROOT Param 1458 I(4) 4 scalar MPI_ERR_TAG Param 1458 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 1460 I(4) 4 scalar MPI_ERR_TRUNCATE Param 1461 I(4) 4 scalar MPI_ERR_TYPE Param 1457 I(4) 4 scalar MPI_ERR_UNKNOWN Param 1461 I(4) 4 scalar MPI_GRAPH Param 1477 I(4) 4 scalar MPI_GROUP_EMPTY Param 1540 I(4) 4 scalar MPI_GROUP_NULL Param 1504 I(4) 4 scalar MPI_HOST Param 1530 I(4) 4 scalar MPI_IDENT Param 1513 I(4) 4 scalar MPI_INFO_NULL Param 1565 I(4) 4 scalar MPI_INTEGER Param 1534 I(4) 4 scalar 1645 MPI_INTEGER1 Param 1571 I(4) 4 scalar MPI_INTEGER16 Param 1572 I(4) 4 scalar MPI_INTEGER2 Param 1571 I(4) 4 scalar MPI_INTEGER4 Param 1571 I(4) 4 scalar MPI_INTEGER8 Param 1571 I(4) 4 scalar MPI_IO Param 1530 I(4) 4 scalar MPI_KEYVAL_INVALID Param 1507 I(4) 4 scalar MPI_LAND Param 1541 I(4) 4 scalar MPI_LB Param 1538 I(4) 4 scalar Page 47 Source Listing MPI_REDUCE_SCATTER 2025-03-12 18:24 Symbol Table mpi_fortran.f Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LOGICAL Param 1535 I(4) 4 scalar MPI_LOR Param 1542 I(4) 4 scalar MPI_LXOR Param 1542 I(4) 4 scalar MPI_MAX Param 1541 I(4) 4 scalar MPI_MAXLOC Param 1543 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 1489 I(4) 4 scalar MPI_MAX_INFO_KEY Param 1563 I(4) 4 scalar MPI_MAX_INFO_VAL Param 1563 I(4) 4 scalar MPI_MAX_NAME_STRING Param 1492 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 1489 I(4) 4 scalar MPI_MIN Param 1541 I(4) 4 scalar MPI_MINLOC Param 1542 I(4) 4 scalar MPI_OFFSET_KIND Param 1616 I(4) 4 scalar MPI_OPERATION Dummy 1425 I(4) 4 scalar ARG,INOUT MPI_OP_NULL Param 1544 I(4) 4 scalar MPI_ORDER_C Param 1556 I(4) 4 scalar MPI_ORDER_FORTRAN Param 1556 I(4) 4 scalar MPI_PACKED Param 1539 I(4) 4 scalar MPI_PROC_NULL Param 1479 I(4) 4 scalar MPI_PROD Param 1541 I(4) 4 scalar MPI_REAL Param 1534 I(4) 4 scalar 1647 MPI_REAL16 Param 1573 I(4) 4 scalar MPI_REAL4 Param 1573 I(4) 4 scalar MPI_REAL8 Param 1573 I(4) 4 scalar 1651 MPI_REDUCE_SCATTER Subr 1424 MPI_REQUEST_NULL Param 1510 I(4) 4 scalar MPI_SIMILAR Param 1513 I(4) 4 scalar MPI_SOURCE Param 1485 I(4) 4 scalar MPI_STATUS_SIZE Param 1487 I(4) 4 scalar 1532,1533 MPI_SUBVERSION Param 1612 I(4) 4 scalar MPI_SUCCESS Param 1457 I(4) 4 scalar MPI_SUM Param 1541 I(4) 4 scalar MPI_TAG Param 1485 I(4) 4 scalar MPI_TAG_UB Param 1530 I(4) 4 scalar MPI_UB Param 1538 I(4) 4 scalar MPI_UNDEFINED Param 1474 I(4) 4 scalar MPI_UNEQUAL Param 1513 I(4) 4 scalar MPI_VERSION Param 1612 I(4) 4 scalar MPI_WTIME_IS_GLOBAL Param 1539 I(4) 4 scalar N Dummy 1424 I(4) 4 scalar ARG,INOUT 1646,1648,1650,1652 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References MPI_BOTTOM I(4) 4 0 scalar COM MPI_STATUSES_IGNORE I(4) 4 20 1 4 COM MPI_STATUS_IGNORE I(4) 4 4 1 4 COM Page 48 Source Listing MPI_REDUCE_SCATTER 2025-03-12 18:24 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 1659 I(4) 4 1 0 ARG,INOUT IERROR Dummy 1660 I(4) 4 scalar ARG,INOUT MPI_CART_CREATE Subr 1659 MPI_COMM Dummy 1659 I(4) 4 scalar ARG,INOUT MPI_COMM_CART Dummy 1660 I(4) 4 scalar ARG,INOUT NDIMS Dummy 1659 I(4) 4 scalar ARG,INOUT PERIODS Dummy 1660 L(4) 4 1 0 ARG,INOUT REORDER Dummy 1660 L(4) 4 scalar ARG,INOUT Page 49 Source Listing MPI_CART_CREATE 2025-03-12 18:24 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 1671 I(4) 4 1 0 ARG,INOUT 1676 DIMS Dummy 1670 I(4) 4 1 0 ARG,INOUT I Local 1675 I(4) 4 scalar 1675,1676 IERROR Dummy 1671 I(4) 4 scalar ARG,INOUT MPI_CART_GET Subr 1670 MPI_COMM Dummy 1670 I(4) 4 scalar ARG,INOUT NDIMS Dummy 1670 I(4) 4 scalar ARG,INOUT 1675 PERIODS Dummy 1670 L(4) 4 1 0 ARG,INOUT Page 50 Source Listing MPI_CART_GET 2025-03-12 18:24 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 1686 I(4) 4 scalar ARG,INOUT 1689 IDIR Dummy 1685 I(4) 4 scalar ARG,INOUT IDISP Dummy 1685 I(4) 4 scalar ARG,INOUT IERROR Dummy 1686 I(4) 4 scalar ARG,INOUT ISOURCE Dummy 1686 I(4) 4 scalar ARG,INOUT 1688 MPI_CART_SHIFT Subr 1685 MPI_COMM Dummy 1685 I(4) 4 scalar ARG,INOUT Page 51 Source Listing MPI_CART_SHIFT 2025-03-12 18:24 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 1695 I(4) 4 scalar ARG,INOUT IERROR Dummy 1695 I(4) 4 scalar ARG,INOUT IKEY Dummy 1695 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 1695 I(4) 4 scalar ARG,INOUT MPI_COMM_SPLIT Subr 1695 NEW_COMM Dummy 1695 I(4) 4 scalar ARG,INOUT Page 52 Source Listing MPI_COMM_SPLIT 2025-03-12 18:24 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 1701 I(4) 4 scalar ARG,INOUT MPI_COMM Dummy 1701 I(4) 4 scalar ARG,INOUT MPI_COMM_FREE Subr 1701 Page 53 Source Listing MPI_COMM_FREE 2025-03-12 18:24 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 1711 I(4) 4 1 0 ARG,INOUT 1715 DATA2 Dummy 1711 I(4) 4 1 0 ARG,INOUT 1715 I Local 1714 I(4) 4 scalar 1714,1715 MPI_COPY_INTEGER Subr 1711 N Dummy 1711 I(4) 4 scalar ARG,INOUT 1714 Page 54 Source Listing MPI_COPY_INTEGER 2025-03-12 18:24 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 1722 R(4) 4 1 0 ARG,INOUT 1726 DATA2 Dummy 1722 R(4) 4 1 0 ARG,INOUT 1726 I Local 1725 I(4) 4 scalar 1725,1726 MPI_COPY_REAL Subr 1722 N Dummy 1722 I(4) 4 scalar ARG,INOUT 1725 Page 55 Source Listing MPI_COPY_REAL 2025-03-12 18:24 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 1733 R(8) 8 1 0 ARG,INOUT 1737 DATA2 Dummy 1733 R(8) 8 1 0 ARG,INOUT 1737 I Local 1736 I(4) 4 scalar 1736,1737 MPI_COPY_DOUBLE_PRECISION Subr 1733 N Dummy 1733 I(4) 4 scalar ARG,INOUT 1736 Page 56 Source Listing MPI_COPY_DOUBLE_PRECISION 2025-03-12 18:24 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 1744 I(4) 4 scalar ARG,INOUT ATTRIBUTE_VAL_OUT Dummy 1744 I(4) 4 scalar ARG,INOUT EXTRA_STATE Dummy 1743 I(4) 4 scalar ARG,INOUT FLAG Dummy 1744 L(4) 4 scalar ARG,INOUT IERR Dummy 1744 I(4) 4 scalar ARG,INOUT KEYVAL Dummy 1743 I(4) 4 scalar ARG,INOUT MPI_NULL_COPY_FN Subr 1743 OLDCOMM Dummy 1743 I(4) 4 scalar ARG,INOUT Page 57 Source Listing MPI_NULL_COPY_FN 2025-03-12 18:24 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 1754 R(4) 4 scalar ARG,INOUT COUNTS Dummy 1753 R(4) 4 scalar ARG,INOUT DISPLS Dummy 1753 R(4) 4 scalar ARG,INOUT FIELD Dummy 1754 R(4) 4 scalar ARG,INOUT GETTYPE Dummy 1753 R(4) 4 scalar ARG,INOUT GLOBBUF Dummy 1753 R(4) 4 scalar ARG,INOUT IERR Dummy 1754 I(4) 4 scalar ARG,INOUT MPI_SCATTERV Subr 1753 MY_COUNT Dummy 1754 I(4) 4 scalar ARG,INOUT ROOT Dummy 1754 R(4) 4 scalar ARG,INOUT SENDTYPE Dummy 1754 R(4) 4 scalar ARG,INOUT Page 58 Source Listing MPI_SCATTERV 2025-03-12 18:24 Subprograms/Common Blocks mpi_fortran.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References MPIPRIV Common 455 36 SAVE MPIPRIV Common 690 36 SAVE MPIPRIV Common 925 36 SAVE MPIPRIV Common 1162 36 SAVE MPIPRIV Common 1399 36 SAVE MPIPRIV Common 1636 36 SAVE MPI_ABORT Subr 34 MPI_ALLGATHER Subr 950 MPI_ALLGATHERV Subr 1187 MPI_ALLREDUCE Subr 478 MPI_BARRIER Subr 58 MPI_BCAST Subr 231 MPI_CART_CREATE Subr 1659 MPI_CART_GET Subr 1670 MPI_CART_SHIFT Subr 1685 MPI_COMM_CREATE Subr 119 MPI_COMM_DUP Subr 74 MPI_COMM_FREE Subr 1701 MPI_COMM_GROUP Subr 93 MPI_COMM_RANK Subr 41 MPI_COMM_SIZE Subr 50 MPI_COMM_SPLIT Subr 1695 MPI_COPY_DOUBLE_PRECISION Subr 1733 MPI_COPY_INTEGER Subr 1711 MPI_COPY_REAL Subr 1722 MPI_ERROR Subr 88 MPI_FINALIZE Subr 28 MPI_GATHER Subr 713 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 1743 MPI_PROBE Subr 162 MPI_RECV Subr 168 MPI_REDUCE Subr 243 MPI_REDUCE_SCATTER Subr 1424 MPI_RSEND Subr 151 MPI_SCATTERV Subr 1753 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 Page 59 Source Listing MPI_SCATTERV 2025-03-12 18:24 mpi_fortran.f COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ Page 60 Source Listing MPI_SCATTERV 2025-03-12 18:24 mpi_fortran.f -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -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 -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : mpi_fortran.lst Page 61 Source Listing MPI_SCATTERV 2025-03-12 18:24 mpi_fortran.f no -o COMPILER: Intel(R) Fortran 19.1-1655