Page 1 Source Listing MPI_FIRST 2025-03-12 18:22 /tmp/ifortsjJbqm.i 1 # 1 "MPI_FIRST.F" 2 SUBROUTINE MPI_FIRST 3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 C . . . 5 C SUBROUTINE: MPI_FIRST INTIALIZES MPI STUFF 6 C PRGRMMR: TUCCILLO ORG: IBM DATE: 00-01-20 7 C 8 C ABSTRACT: INTIALIZES MPI STUFF 9 C 10 C PROGRAM HISTORY LOG: 11 C 00-01-20 TUCCILLO - ORIGINATOR 12 C 13 C USAGE: CALL MPI_FIRST 14 C 15 C INPUT ARGUMENT LIST: 16 C 17 C OUTPUT ARGUMENT LIST: 18 C 19 C INPUT FILES: NONE 20 C 21 C OUTPUT FILES: NONE 22 C 23 C SUBPROGRAMS CALLED: 24 C UNIQUE: 25 C MPI_INIT 26 C MPI_COMM_SIZE 27 C MPI_COMM_RANK 28 C PARA_RANGE 29 C 30 C EXIT STATES: 31 C COND = 0 - NORMAL EXIT 32 C 33 C ATTRIBUTES: 34 C LANGUAGE: FORTRAN 90 35 C MACHINE : IBM SP 36 C 37 C$$$ 38 c 39 include "parmeta" 63 include "PARA.comm" 71 include 'mpif.h' 633 include "mpp.h" 634 c 635 C 694 integer ierr 695 LNIP = IM/INPES 696 LNJP=JM/JNPES 697 c 698 C*** 699 C*** NUM_PROCS IS THE NUMBER OF TASKS DOING THE QUILTING 700 C*** IN THIS SERVER GROUP 701 C*** 702 call mpi_comm_size(mpi_comm_comp,num_procs, ierr ) 703 call mpi_comm_rank(mpi_comm_comp,me, ierr ) 704 c 705 c if ( me .eq. 0 ) then 706 print *, ' num_procs = ',num_procs Page 2 Source Listing MPI_FIRST 2025-03-12 18:22 MPI_FIRST.F 707 c end if 708 709 if ( num_procs .gt. JNPES ) then 710 print *, ' too many MPI tasks, max is ',JNPES, ', stopping' 711 call MPI_ABORT(MPI_COMM_WORLD,1,ierr) 712 end if 713 c 714 if ( num_procs .gt. 1024 ) then 715 print *, ' too many MPI tasks, max is 1024, stopping' 716 call MPI_ABORT(MPI_COMM_WORLD,1,ierr) 717 end if 718 c 719 C*** 720 C*** JS_X AND JS_Y ARE THE STARTING AND ENDING ROWS OF TASKS 721 C*** IN THE MODEL FORECAST DECOMPOSITION THAT WILL BE SENDING 722 C*** TO EACH QUILT TASK 723 C*** 724 C*** JSTA IS THE FIRST FORECAST TASK AND JEND IS THE LAST 725 C*** FORECAST TASK IN THE ENTIRE RANGE OF FORECAST TASKS 726 C*** THAT WILL BE SENDING TO EACH QUILT TASK. REMEMBER 727 C*** THAT AN INTEGER NUMBER OF FORECAST TASK ROWS IS 728 C*** SENT TO EACH QUILT TASK. 729 C*** 730 do i = 0, num_procs - 1 731 call para_range(0,JNPES-1,num_procs,i,js_x,je_x) 732 jsta(i) = js_x * INPES 733 jend(i) = jsta(i) + (je_x-js_x+1)*INPES -1 734 if ( me .eq. 0 ) then 735 print *, ' task id, jsta, end = ',i,jsta(i),jend(i) 736 end if 737 end do 738 c 739 c locations 740 C 741 C*** PARAMETER LNIP (LNJP) IS SMALLEST THAT THE I (J) EXTENT 742 C*** OF EACH SUBDOMAIN CAN BE. 743 C*** IRMND (JRMND) IS THE NUMBER OF "REMAINDER" I (J) POINTS 744 C*** THAT WILL BE GIVEN TO THE LEFTMOST (LOWERMOST) PEs. 745 746 IRMND=MOD(IM,INPES) 747 JRMND=MOD(JM,JNPES) 748 749 DO IPE = 0, NPES - 1 750 C 751 IPOSN=MOD(IPE,INPES)+1 752 JPOSN=IPE/INPES+1 753 C 754 C*** GLOBAL LIMITS OF THIS PE's SUBDOMAIN 755 C 756 MY_IS_GLB_A(IPE)=(IPOSN-1)*LNIP+MIN(IRMND,IPOSN-1)+1 757 MY_IE_GLB_A(IPE)=MY_IS_GLB_A(IPE)+LNIP-1 758 IF(IPOSN.LE.IRMND)MY_IE_GLB_A(IPE)=MY_IE_GLB_A(IPE)+1 759 C 760 MY_JS_GLB_A(IPE)=(JPOSN-1)*LNJP+MIN(JRMND,JPOSN-1)+1 761 MY_JE_GLB_A(IPE)=MY_JS_GLB_A(IPE)+LNJP-1 762 IF(JPOSN.LE.JRMND)MY_JE_GLB_A(IPE)=MY_JE_GLB_A(IPE)+1 763 c Page 3 Source Listing MPI_FIRST 2025-03-12 18:22 MPI_FIRST.F 764 if ( me .eq. 0 ) then 765 c print *, ' ipe, MY_IS_GLB,MY_IE_GLB,MY_JS_GLB, MY_JE_GLB =', 766 c * ipe, MY_IS_GLB_A(IPE),MY_IE_GLB_A(IPE), 767 c * MY_JS_GLB_A(IPE),MY_JE_GLB_A(IPE) 768 end if 769 END DO 770 c 771 c dimensioning information 772 c 773 MY_ISD = 1 774 MY_IED = IM 775 MY_JSD = MY_JS_GLB_A(jsta(me)) -2 776 MY_JED = MY_JE_GLB_A(jend(me)) +2 777 IF ( MY_JSD .lt. 1 ) MY_JSD = 1 778 IF ( MY_JED .gt. JM ) MY_JED = JM 779 C 780 print *, ' ME, MY_ISD,MY_IED,MY_JSD,MY_JED = ', 781 & me, MY_ISD,MY_IED,MY_JSD,MY_JED 782 C 783 jsta_i = MY_JS_GLB_A(jsta(me)) 784 jend_i = MY_JE_GLB_A(jend(me)) 785 jsta_im = jsta_i 786 jsta_im2 = jsta_i 787 jend_im = jend_i 788 jend_im2 = jend_i 789 if ( me .eq. 0 ) then 790 jsta_im = 2 791 jsta_im2 = 3 792 end if 793 if ( me .eq. num_procs - 1 ) then 794 jend_im = jm - 1 795 jend_im2 = jm - 2 796 end if 797 c 798 print *, ' jsta_i,jend_i,jsta_im,jend_im,jsta_im2,jend_im2= ', 799 * jsta_i,jend_i,jsta_im,jend_im,jsta_im2,jend_im2 800 c neighbors 801 c 802 iup = me + 1 803 idn = me - 1 804 if ( me .eq. 0 ) then 805 idn = MPI_PROC_NULL 806 end if 807 if ( me .eq. num_procs - 1 ) then 808 iup = MPI_PROC_NULL 809 end if 810 C 811 c print *, ' ME, NUM_PROCS = ',me,num_procs 812 813 814 end Page 4 Source Listing MPI_FIRST 2025-03-12 18:22 Entry Points MPI_FIRST.F ENTRY POINTS Name mpi_first_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References GLB_TABLE Common 672 336 SAVE I Local 730 I(4) 4 scalar 730,731,732,733,735 IDIM1 Param 59 I(4) 4 scalar IDIM2 Param 59 I(4) 4 scalar IERR Local 694 I(4) 4 scalar 702,703,711,716 IGSTL Param 54 I(4) 4 scalar 59 IGSTR Param 54 I(4) 4 scalar 59 IM Param 42 I(4) 4 scalar 56,59,678,679,680,681,682,686,687, 692,695,746,774 INPES Param 51 I(4) 4 scalar 56,59,662,663,664,673,674,695,732, 733,746,751,752 IPE Local 749 I(4) 4 scalar 749,751,752,756,757,758,760,761,76 2 IPOSN Local 751 I(4) 4 scalar 751,756,758 IRMND Local 746 I(4) 4 scalar 746,756,758 ITAIL Param 56 I(4) 4 scalar JDIM1 Param 60 I(4) 4 scalar JDIM2 Param 60 I(4) 4 scalar JE_X Local 731 I(4) 4 scalar 731,733 JGSTL Param 55 I(4) 4 scalar 60 JGSTR Param 55 I(4) 4 scalar 60 JM Param 42 I(4) 4 scalar 57,60,678,679,680,681,682,686,687, 692,696,747,778,794,795 JNPES Param 51 I(4) 4 scalar 57,60,662,663,664,673,674,696,709, 710,731,747 JPOSN Local 752 I(4) 4 scalar 752,760,762 JRMND Local 747 I(4) 4 scalar 747,760,762 JS_X Local 731 I(4) 4 scalar 731,732,733 JTAIL Param 57 I(4) 4 scalar LM Param 42 I(4) 4 scalar 687 LNIP Local 695 I(4) 4 scalar 695,756,757 LNJP Local 696 I(4) 4 scalar 696,760,761 LSM Param 42 I(4) 4 scalar MAPPINGS Common 691 5024 SAVE MIN Func 756 scalar 756,760 MOD Func 746 scalar 746,747,751 MPIFCMB5 Common 621 4 SAVE MPIFCMB9 Common 622 4 SAVE MPIPRIV1 Common 626 28 SAVE MPIPRIV2 Common 628 24 SAVE MPIPRIVC Common 631 2 SAVE MPI_2DOUBLE_PRECISION Param 367 I(4) 4 scalar MPI_2INT Param 451 I(4) 4 scalar MPI_2INTEGER Param 365 I(4) 4 scalar Page 5 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_2REAL Param 369 I(4) 4 scalar MPI_ABORT Subr 711 711,716 MPI_ADDRESS_KIND Param 403 I(4) 4 scalar MPI_AINT Param 481 I(4) 4 scalar MPI_ANY_SOURCE Param 333 I(4) 4 scalar MPI_ANY_TAG Param 335 I(4) 4 scalar MPI_APPNUM Param 297 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 603 L(4) 4 scalar MPI_BAND Param 241 I(4) 4 scalar MPI_BOR Param 245 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 329 I(4) 4 scalar MPI_BXOR Param 249 I(4) 4 scalar MPI_BYTE Param 373 I(4) 4 scalar MPI_CART Param 341 I(4) 4 scalar MPI_CHAR Param 411 I(4) 4 scalar MPI_CHARACTER Param 371 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 499 I(4) 4 scalar MPI_COMBINER_DARRAY Param 521 I(4) 4 scalar MPI_COMBINER_DUP Param 497 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 525 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 527 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 523 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 511 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 531 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 509 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 505 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 503 I(4) 4 scalar MPI_COMBINER_INDEXED Param 507 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 513 I(4) 4 scalar MPI_COMBINER_NAMED Param 495 I(4) 4 scalar MPI_COMBINER_RESIZED Param 529 I(4) 4 scalar MPI_COMBINER_STRUCT Param 517 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 515 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 519 I(4) 4 scalar MPI_COMBINER_VECTOR Param 501 I(4) 4 scalar MPI_COMM_DUP_FN Subr 610 scalar MPI_COMM_NULL Param 265 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 611 scalar MPI_COMM_NULL_DELETE_FN Subr 610 scalar MPI_COMM_RANK Subr 703 703 MPI_COMM_SELF Param 261 I(4) 4 scalar MPI_COMM_SIZE Subr 702 702 MPI_COMM_TYPE_SHARED Param 549 I(4) 4 scalar MPI_COMM_WORLD Param 259 I(4) 4 scalar 711,716 MPI_COMPLEX Param 353 I(4) 4 scalar MPI_COMPLEX16 Param 399 I(4) 4 scalar MPI_COMPLEX32 Param 401 I(4) 4 scalar MPI_COMPLEX8 Param 397 I(4) 4 scalar MPI_CONGRUENT Param 213 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 616 scalar Page 6 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COUNT Param 485 I(4) 4 scalar MPI_COUNT_KIND Param 407 I(4) 4 scalar MPI_CXX_BOOL Param 487 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 491 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 489 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 493 I(4) 4 scalar MPI_C_BOOL Param 471 I(4) 4 scalar MPI_C_COMPLEX Param 475 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 477 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 473 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 479 I(4) 4 scalar MPI_DATATYPE_NULL Param 275 I(4) 4 scalar 390,488,490,492,494 MPI_DISPLACEMENT_CURRENT Param 599 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 591 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 593 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 597 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 595 I(4) 4 scalar MPI_DIST_GRAPH Param 343 I(4) 4 scalar MPI_DOUBLE Param 433 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 355 I(4) 4 scalar MPI_DOUBLE_INT Param 445 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 361 I(4) 4 scalar MPI_DUP_FN Subr 607 scalar MPI_ERRHANDLER_NULL Param 279 I(4) 4 scalar MPI_ERROR Param 80 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 207 I(4) 4 scalar MPI_ERRORS_RETURN Param 209 I(4) 4 scalar MPI_ERR_ACCESS Param 199 I(4) 4 scalar MPI_ERR_AMODE Param 185 I(4) 4 scalar MPI_ERR_ARG Param 155 I(4) 4 scalar MPI_ERR_ASSERT Param 161 I(4) 4 scalar MPI_ERR_BAD_FILE Param 123 I(4) 4 scalar MPI_ERR_BASE Param 153 I(4) 4 scalar MPI_ERR_BUFFER Param 95 I(4) 4 scalar MPI_ERR_COMM Param 173 I(4) 4 scalar MPI_ERR_CONVERSION Param 189 I(4) 4 scalar MPI_ERR_COUNT Param 99 I(4) 4 scalar MPI_ERR_DIMS Param 137 I(4) 4 scalar MPI_ERR_DISP Param 121 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 103 I(4) 4 scalar MPI_ERR_FILE Param 133 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 115 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 157 I(4) 4 scalar MPI_ERR_GROUP Param 119 I(4) 4 scalar MPI_ERR_INFO Param 147 I(4) 4 scalar MPI_ERR_INFO_KEY Param 151 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 131 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 117 I(4) 4 scalar MPI_ERR_INTERN Param 149 I(4) 4 scalar MPI_ERR_IN_STATUS Param 135 I(4) 4 scalar MPI_ERR_IO Param 195 I(4) 4 scalar MPI_ERR_KEYVAL Param 141 I(4) 4 scalar MPI_ERR_LASTCODE Param 163 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 145 I(4) 4 scalar Page 7 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NAME Param 139 I(4) 4 scalar MPI_ERR_NOT_SAME Param 167 I(4) 4 scalar MPI_ERR_NO_MEM Param 159 I(4) 4 scalar MPI_ERR_NO_SPACE Param 91 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 175 I(4) 4 scalar MPI_ERR_OP Param 193 I(4) 4 scalar MPI_ERR_OTHER Param 107 I(4) 4 scalar MPI_ERR_PENDING Param 97 I(4) 4 scalar MPI_ERR_PORT Param 179 I(4) 4 scalar MPI_ERR_QUOTA Param 183 I(4) 4 scalar MPI_ERR_RANK Param 105 I(4) 4 scalar MPI_ERR_READ_ONLY Param 143 I(4) 4 scalar MPI_ERR_REQUEST Param 187 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 109 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 113 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 129 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 191 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 181 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 93 I(4) 4 scalar MPI_ERR_ROOT Param 125 I(4) 4 scalar MPI_ERR_SERVICE Param 101 I(4) 4 scalar MPI_ERR_SIZE Param 111 I(4) 4 scalar MPI_ERR_SPAWN Param 171 I(4) 4 scalar MPI_ERR_TAG Param 201 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 205 I(4) 4 scalar MPI_ERR_TRUNCATE Param 165 I(4) 4 scalar MPI_ERR_TYPE Param 169 I(4) 4 scalar MPI_ERR_UNKNOWN Param 203 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 127 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 177 I(4) 4 scalar MPI_ERR_WIN Param 197 I(4) 4 scalar MPI_FILE_NULL Param 269 I(4) 4 scalar MPI_FIRST Subr 2 MPI_FLOAT Param 431 I(4) 4 scalar MPI_FLOAT_INT Param 443 I(4) 4 scalar MPI_GRAPH Param 339 I(4) 4 scalar MPI_GROUP_EMPTY Param 263 I(4) 4 scalar MPI_GROUP_NULL Param 271 I(4) 4 scalar MPI_HOST Param 287 I(4) 4 scalar MPI_IDENT Param 211 I(4) 4 scalar MPI_INFO_ENV Param 283 I(4) 4 scalar MPI_INFO_NULL Param 281 I(4) 4 scalar MPI_INT Param 423 I(4) 4 scalar MPI_INT16_T Param 457 I(4) 4 scalar MPI_INT32_T Param 459 I(4) 4 scalar MPI_INT64_T Param 461 I(4) 4 scalar MPI_INT8_T Param 455 I(4) 4 scalar MPI_INTEGER Param 363 I(4) 4 scalar MPI_INTEGER1 Param 381 I(4) 4 scalar MPI_INTEGER16 Param 389 I(4) 4 scalar MPI_INTEGER2 Param 383 I(4) 4 scalar MPI_INTEGER4 Param 385 I(4) 4 scalar MPI_INTEGER8 Param 387 I(4) 4 scalar Page 8 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INTEGER_KIND Param 409 I(4) 4 scalar MPI_IO Param 289 I(4) 4 scalar MPI_KEYVAL_INVALID Param 327 I(4) 4 scalar MPI_LAND Param 239 I(4) 4 scalar MPI_LASTUSEDCODE Param 295 I(4) 4 scalar MPI_LB Param 377 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 349 I(4) 4 scalar MPI_LOCK_SHARED Param 351 I(4) 4 scalar MPI_LOGICAL Param 357 I(4) 4 scalar MPI_LONG Param 427 I(4) 4 scalar MPI_LONG_DOUBLE Param 435 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 453 I(4) 4 scalar MPI_LONG_INT Param 447 I(4) 4 scalar MPI_LONG_LONG Param 441 I(4) 4 scalar MPI_LONG_LONG_INT Param 437 I(4) 4 scalar MPI_LOR Param 243 I(4) 4 scalar MPI_LXOR Param 247 I(4) 4 scalar MPI_MAX Param 231 I(4) 4 scalar MPI_MAXLOC Param 253 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 321 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 309 I(4) 4 scalar MPI_MAX_INFO_KEY Param 315 I(4) 4 scalar MPI_MAX_INFO_VAL Param 317 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 323 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 313 I(4) 4 scalar MPI_MAX_PORT_NAME Param 311 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 319 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 553 I(4) 4 scalar MPI_MESSAGE_NULL Param 551 I(4) 4 scalar MPI_MIN Param 233 I(4) 4 scalar MPI_MINLOC Param 251 I(4) 4 scalar MPI_MODE_APPEND Param 577 I(4) 4 scalar MPI_MODE_CREATE Param 573 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 569 I(4) 4 scalar MPI_MODE_EXCL Param 575 I(4) 4 scalar MPI_MODE_NOCHECK Param 539 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 545 I(4) 4 scalar MPI_MODE_NOPUT Param 543 I(4) 4 scalar MPI_MODE_NOSTORE Param 541 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 547 I(4) 4 scalar MPI_MODE_RDONLY Param 563 I(4) 4 scalar MPI_MODE_RDWR Param 565 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 579 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 571 I(4) 4 scalar MPI_MODE_WRONLY Param 567 I(4) 4 scalar MPI_NO_OP Param 257 I(4) 4 scalar MPI_NULL_COPY_FN Subr 607 scalar MPI_NULL_DELETE_FN Subr 607 scalar MPI_OFFSET Param 483 I(4) 4 scalar MPI_OFFSET_KIND Param 405 I(4) 4 scalar MPI_OP_NULL Param 273 I(4) 4 scalar MPI_ORDER_C Param 587 I(4) 4 scalar MPI_ORDER_FORTRAN Param 589 I(4) 4 scalar MPI_PACKED Param 379 I(4) 4 scalar Page 9 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_PROC_NULL Param 331 I(4) 4 scalar 805,808 MPI_PROD Param 237 I(4) 4 scalar MPI_REAL Param 359 I(4) 4 scalar MPI_REAL16 Param 395 I(4) 4 scalar MPI_REAL4 Param 391 I(4) 4 scalar MPI_REAL8 Param 393 I(4) 4 scalar MPI_REPLACE Param 255 I(4) 4 scalar MPI_REQUEST_NULL Param 277 I(4) 4 scalar MPI_ROOT Param 337 I(4) 4 scalar MPI_SEEK_CUR Param 583 I(4) 4 scalar MPI_SEEK_END Param 585 I(4) 4 scalar MPI_SEEK_SET Param 581 I(4) 4 scalar MPI_SHORT Param 419 I(4) 4 scalar MPI_SHORT_INT Param 449 I(4) 4 scalar MPI_SIGNED_CHAR Param 413 I(4) 4 scalar MPI_SIMILAR Param 215 I(4) 4 scalar MPI_SOURCE Param 80 I(4) 4 scalar MPI_STATUS_SIZE Param 82 I(4) 4 scalar 84,85 MPI_SUBARRAYS_SUPPORTED Param 601 L(4) 4 scalar MPI_SUBVERSION Param 347 I(4) 4 scalar MPI_SUCCESS Param 89 I(4) 4 scalar MPI_SUM Param 235 I(4) 4 scalar MPI_TAG Param 80 I(4) 4 scalar MPI_TAG_UB Param 285 I(4) 4 scalar MPI_THREAD_FUNNELED Param 557 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 561 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 559 I(4) 4 scalar MPI_THREAD_SINGLE Param 555 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 537 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 535 I(4) 4 scalar MPI_TYPECLASS_REAL Param 533 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 614 scalar MPI_TYPE_NULL_COPY_FN Subr 615 scalar MPI_TYPE_NULL_DELETE_FN Subr 614 scalar MPI_UB Param 375 I(4) 4 scalar MPI_UINT16_T Param 465 I(4) 4 scalar MPI_UINT32_T Param 467 I(4) 4 scalar MPI_UINT64_T Param 469 I(4) 4 scalar MPI_UINT8_T Param 463 I(4) 4 scalar MPI_UNDEFINED Param 325 I(4) 4 scalar MPI_UNEQUAL Param 217 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 293 I(4) 4 scalar MPI_UNSIGNED Param 425 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 415 I(4) 4 scalar MPI_UNSIGNED_LONG Param 429 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 439 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 421 I(4) 4 scalar MPI_VERSION Param 345 I(4) 4 scalar MPI_WCHAR Param 417 I(4) 4 scalar MPI_WIN_BASE Param 299 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 305 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 303 I(4) 4 scalar MPI_WIN_DUP_FN Subr 612 scalar MPI_WIN_FLAVOR_ALLOCATE Param 221 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 219 I(4) 4 scalar Page 10 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_FLAVOR_DYNAMIC Param 223 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 225 I(4) 4 scalar MPI_WIN_MODEL Param 307 I(4) 4 scalar MPI_WIN_NULL Param 267 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 613 scalar MPI_WIN_NULL_DELETE_FN Subr 612 scalar MPI_WIN_SEPARATE Param 227 I(4) 4 scalar MPI_WIN_SIZE Param 301 I(4) 4 scalar MPI_WIN_UNIFIED Param 229 I(4) 4 scalar MPI_WTICK Func 608 R(8) 8 scalar MPI_WTIME Func 608 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 291 I(4) 4 scalar MPPCOM Common 636 1724 SAVE PARA Common 64 24632 SAVE PARA_RANGE Subr 731 731 PMPI_WTICK Func 609 R(8) 8 scalar PMPI_WTIME Func 609 R(8) 8 scalar TEMPCOM Common 677 6603768 SAVE TOPO Common 685 17478548 SAVE TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDN I(4) 4 24628 scalar COM 803,805 IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IQUILT_GROUP I(4) 4 1320 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IUP I(4) 4 24624 scalar COM 802,808 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM Page 11 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Type Bytes Offset Dimen Elements Attributes References JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JEND I(4) 4 4104 1 1024 COM 733,735,776,784 JEND_I I(4) 4 24604 scalar COM 784,787,788,799 JEND_IM I(4) 4 24612 scalar COM 787,794,799 JEND_IM2 I(4) 4 24620 scalar COM 788,795,799 JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JSTA I(4) 4 8 1 1024 COM 732,733,735,775,783 JSTA_I I(4) 4 24600 scalar COM 783,785,786,799 JSTA_IM I(4) 4 24608 scalar COM 785,790,799 JSTA_IM2 I(4) 4 24616 scalar COM 786,791,799 JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM ME I(4) 4 4 scalar COM 703,734,764,775,776,781,783,784,78 9,793,802,803,804,807 MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 912 scalar COM 702,703 MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM Page 12 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Type Bytes Offset Dimen Elements Attributes References MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM Page 13 Source Listing MPI_FIRST 2025-03-12 18:22 Symbol Table MPI_FIRST.F Name Type Bytes Offset Dimen Elements Attributes References MY_E I(4) 4 336 scalar COM MY_IED I(4) 4 24588 scalar COM 774,781 MY_IE_GLB I(4) 4 12 scalar COM MY_IE_GLB_A I(4) 4 12296 1 1024 COM 757,758 MY_IE_LOC I(4) 4 28 scalar COM MY_ISD I(4) 4 24584 scalar COM 773,781 MY_IS_GLB I(4) 4 8 scalar COM MY_IS_GLB_A I(4) 4 8200 1 1024 COM 756,757 MY_IS_LOC I(4) 4 24 scalar COM MY_JED I(4) 4 24596 scalar COM 776,778,781 MY_JE_GLB I(4) 4 20 scalar COM MY_JE_GLB_A I(4) 4 20488 1 1024 COM 761,762,776,784 MY_JE_LOC I(4) 4 36 scalar COM MY_JSD I(4) 4 24592 scalar COM 775,777,781 MY_JS_GLB I(4) 4 16 scalar COM MY_JS_GLB_A I(4) 4 16392 1 1024 COM 760,761,775,783 MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NPES I(4) 4 4 scalar COM 749 NUM_PROCS I(4) 4 0 scalar COM 702,706,709,714,730,731,793,807 TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TTVG R(4) 4 371884 2 92971 COM Page 14 Source Listing MPI_FIRST 2025-03-12 18:22 Subprograms/Common Blocks MPI_FIRST.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References GLB_TABLE Common 672 336 SAVE MAPPINGS Common 691 5024 SAVE MPIFCMB5 Common 621 4 SAVE MPIFCMB9 Common 622 4 SAVE MPIPRIV1 Common 626 28 SAVE MPIPRIV2 Common 628 24 SAVE MPIPRIVC Common 631 2 SAVE MPI_FIRST Subr 2 MPPCOM Common 636 1724 SAVE PARA Common 64 24632 SAVE TEMPCOM Common 677 6603768 SAVE TOPO Common 685 17478548 SAVE 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 Page 15 Source Listing MPI_FIRST 2025-03-12 18:22 MPI_FIRST.F -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__ -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 precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg -init noarrays -init nohuge -init noinfinity Page 16 Source Listing MPI_FIRST 2025-03-12 18:22 MPI_FIRST.F -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_FIRST.lst no -o COMPILER: Intel(R) Fortran 19.1-1655