Page 1 Source Listing EXCH0 2025-03-12 18:22 /tmp/ifortqpqcqO.i 1 # 1 "module_EXCHM.F" 2 MODULE EXCHM 3 CONTAINS 4 SUBROUTINE EXCH0(ARR1,LL1,IHALO,JHALO) 5 C************************************************************************* 6 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 7 C . . . 8 C SUBPROGRAM: EXCHxxx FUNDAMENTAL EXCHANGE ROUTINES 9 C PRGRMMR: BLACK ORG: W/NP2 DATE: 97-06-25 10 C 11 C ABSTRACT: 12 C SUBROUTINE EXCH0 IS USED TO EXCHANGE HALOS BETWEEN PROCESSORS 13 C 14 C CURRENTLY SUPPORTED INTERFACES 15 C 16 C 0,00,01,011,0001111 17 C 1,11,111,1111,11111,111111 18 C 19 C WHERE 0 REFERS TO A 2-D ARRAY AND 1 REFERS TO A 3-D ARRAY 20 C 21 C PROGRAM HISTORY LOG: 22 C 97-05-?? MEYS - ORIGINATOR 23 C 97-06-25 BLACK - CONVERTED FROM SHMEM TO MPI 24 C 98-??-?? TUCCILLO - REMOVED EXPLICIT EXCHANGES OF CORNERS 25 C 98-??-?? TUCCILLO - REWROTE TO USE NON_BLOCKING MPI ROUTINES 26 C 99-??-?? BLACK - ADDED VARIABLE HALO SIZES 27 C 00-03-10 TUCCILLO - CHANGED TO USE MODULE PROCDURES FOR 28 C INCREASED MESSAGE SIZES AND A UNIFORM 29 C INTERFACE FOR ALL CALLS 30 C 01-02-25 TUCCILLO - SOME PERFORMANCE IMPROVEMENTS 31 C 32 C USAGE: CALL EXCH FROM SUBROUTINE GOSSIP 33 C INPUT ARGUMENT LIST: 34 C ARR - THE ARRAY TO BE EXCHANGED 35 C LL - THE VERTICAL DIMENSION OF ARR 36 C IHALO - THE NUMBER OF POINTS IN THE X DIRECTION TO EXCHANGE 37 C IN THE HALO 38 C JHALO - THE NUMBER OF POINTS IN THE Y DIRECTION TO EXCHANGE 39 C IN THE HALO 40 C 41 C OUTPUT ARGUMENT LIST: 42 C NONE 43 C 44 C OUTPUT FILES: 45 C NONE 46 C 47 C SUBPROGRAMS CALLED: 48 C 49 C UNIQUE: NONE 50 C 51 C LIBRARY: NONE 52 C 53 C COMMON BLOCKS: NONE 54 C 55 C ATTRIBUTES: 56 C LANGUAGE: FORTRAN 90 57 C MACHINE : IBM SP Page 2 Source Listing EXCH0 2025-03-12 18:22 module_EXCHM.F 58 C$$$ 59 USE EXCH_BUF_REAL 60 C*********************************************************************** 61 INCLUDE "parmeta" 85 INCLUDE "mpif.h" 647 INCLUDE "mpp.h" 648 C----------------------------------------------------------------------- 707 INTEGER ISTAT(MPI_STATUS_SIZE) 708 INTEGER IHANDLE(4) 709 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 710 C 711 C*********************************************************************** 712 C 713 ITYPE=MPI_REAL 714 C 715 C-------------------------------------------------------------------- 716 C-------------------------------------------------------------------- 717 C*** 718 C*** NORTH/SOUTH 719 C*** 720 C-------------------------------------------------------------------- 721 C-------------------------------------------------------------------- 722 C 723 C-------------------------------------------------------------------- 724 C RECEIVE FROM NORTH 725 C-------------------------------------------------------------------- 726 C 727 IF(MY_NEB(1).GE.0)THEN 728 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 729 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 730 ENDIF 731 C 732 C-------------------------------------------------------------------- 733 C RECEIVE FROM SOUTH 734 C-------------------------------------------------------------------- 735 C 736 IF(MY_NEB(3).GE.0)THEN 737 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 738 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 739 ENDIF 740 C 741 C-------------------------------------------------------------------- 742 C SEND TO NORTH 743 C-------------------------------------------------------------------- 744 C 745 IF(MY_NEB(1).GE.0)THEN 746 IBEG = MYIS-IHALO 747 IEND = MYIE+IHALO 748 IC = 0 749 DO J=0,JHALO-1 750 DO I=IBEG,IEND 751 IC = IC + 1 752 BUF2(IC)=ARR1(I,MYJE-J) 753 ENDDO 754 ENDDO 755 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 756 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 3 Source Listing EXCH0 2025-03-12 18:22 module_EXCHM.F 757 ENDIF 758 C 759 C-------------------------------------------------------------------- 760 C SEND TO SOUTH 761 C-------------------------------------------------------------------- 762 C 763 IF(MY_NEB(3).GE.0)THEN 764 IBEG = MYIS-IHALO 765 IEND = MYIE+IHALO 766 IC = 0 767 DO J=0,JHALO-1 768 DO I=IBEG,IEND 769 IC = IC + 1 770 BUF3(IC)=ARR1(I,MYJS+J) 771 ENDDO 772 ENDDO 773 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 774 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 775 ENDIF 776 C 777 C-------------------------------------------------------------------- 778 C STORE RESULTS FROM SOUTH 779 C-------------------------------------------------------------------- 780 C 781 IF(MY_NEB(3).GE.0)THEN 782 IBEG = MYIS-IHALO 783 IEND = MYIE+IHALO 784 IC = 0 785 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 786 DO J=0,JHALO-1 787 DO I=IBEG,IEND 788 IC = IC + 1 789 ARR1(I,MYJS-J-1)=BUF1(IC) 790 ENDDO 791 ENDDO 792 ENDIF 793 C 794 C-------------------------------------------------------------------- 795 C STORE FROM NORTH 796 C-------------------------------------------------------------------- 797 C 798 IF(MY_NEB(1).GE.0)THEN 799 IBEG = MYIS-IHALO 800 IEND = MYIE+IHALO 801 IC = 0 802 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 803 DO J=0,JHALO-1 804 DO I=IBEG,IEND 805 IC = IC + 1 806 ARR1(I,MYJE+J+1)=BUF0(IC) 807 ENDDO 808 ENDDO 809 ENDIF 810 C 811 IF(MY_NEB(1).GE.0)THEN 812 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 813 ENDIF Page 4 Source Listing EXCH0 2025-03-12 18:22 module_EXCHM.F 814 C 815 IF(MY_NEB(3).GE.0)THEN 816 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 817 ENDIF 818 C 819 C-------------------------------------------------------------------- 820 C-------------------------------------------------------------------- 821 C*** 822 C*** EAST/WEST 823 C*** 824 C-------------------------------------------------------------------- 825 C-------------------------------------------------------------------- 826 C 827 C-------------------------------------------------------------------- 828 C RECEIVE FROM WEST 829 C-------------------------------------------------------------------- 830 C 831 IF(MY_NEB(4).GE.0)THEN 832 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 833 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 834 ENDIF 835 C 836 C-------------------------------------------------------------------- 837 C RECEIVE FROM EAST 838 C-------------------------------------------------------------------- 839 C 840 IF(MY_NEB(2).GE.0)THEN 841 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 842 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 843 ENDIF 844 C 845 C-------------------------------------------------------------------- 846 C SEND TO EAST 847 C-------------------------------------------------------------------- 848 C 849 IF(MY_NEB(2).GE.0)THEN 850 IBEG = MYIE-IHALO+1 851 IEND = MYIE 852 IC = 0 853 DO J=MYJS-JHALO,MYJE+JHALO 854 DO I=IBEG,IEND 855 IC = IC + 1 856 BUF2(IC)=ARR1(I,J) 857 ENDDO 858 ENDDO 859 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 860 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 861 ENDIF 862 C 863 C-------------------------------------------------------------------- 864 C SEND TO WEST 865 C-------------------------------------------------------------------- 866 C 867 IF(MY_NEB(4).GE.0)THEN 868 IBEG = MYIS 869 IEND = MYIS+IHALO-1 870 IC = 0 Page 5 Source Listing EXCH0 2025-03-12 18:22 module_EXCHM.F 871 DO J=MYJS-JHALO,MYJE+JHALO 872 DO I=IBEG,IEND 873 IC = IC + 1 874 BUF3(IC)=ARR1(I,J) 875 ENDDO 876 ENDDO 877 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 878 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 879 ENDIF 880 C 881 C-------------------------------------------------------------------- 882 C STORE FROM WEST 883 C-------------------------------------------------------------------- 884 C 885 IF(MY_NEB(4).GE.0)THEN 886 IBEG = MYIS-IHALO 887 IEND = MYIS-1 888 IC = 0 889 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 890 DO J=MYJS-JHALO,MYJE+JHALO 891 DO I=IBEG,IEND 892 IC = IC + 1 893 ARR1(I,J)=BUF0(IC) 894 ENDDO 895 ENDDO 896 ENDIF 897 C 898 C-------------------------------------------------------------------- 899 C STORE FROM EAST 900 C-------------------------------------------------------------------- 901 C 902 IF(MY_NEB(2).GE.0)THEN 903 IBEG = MYIE+1 904 IEND = MYIE+IHALO 905 IC = 0 906 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 907 DO J=MYJS-JHALO,MYJE+JHALO 908 DO I=IBEG,IEND 909 IC = IC + 1 910 ARR1(I,J)=BUF1(IC) 911 ENDDO 912 ENDDO 913 ENDIF 914 C 915 IF(MY_NEB(4).GE.0)THEN 916 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 917 ENDIF 918 C 919 IF(MY_NEB(2).GE.0)THEN 920 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 921 ENDIF 922 C 923 C-------------------------------------------------------------------- 924 END SUBROUTINE Page 6 Source Listing EXCH0 2025-03-12 18:22 Entry Points module_EXCHM.F ENTRY POINTS Name exchm_mp_exch0_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 4 R(4) 4 2 6319 ARG,INOUT 752,770,789,806,856,874,893,910 BUF0 Local 728 R(4) 4 1 2500000 728,806,832,893 BUF1 Local 737 R(4) 4 1 2500000 737,789,841,910 BUF2 Local 752 R(4) 4 1 2500000 752,755,856,859 BUF3 Local 770 R(4) 4 1 2500000 770,773,874,877 EXCH0 Subr 4 EXCH_BUF_REAL Module 59 59 GLB_TABLE Common 685 336 SAVE I Local 750 I(4) 4 scalar 750,752,768,770,787,789,804,806,85 4,856,872,874,891,893,908,910 IBEG Local 746 I(4) 4 scalar 746,750,764,768,782,787,799,804,85 0,854,868,872,886,891,903,908 IBUFEXCH Param 728 I(4) 4 scalar 728,737,832,841 IC Local 748 I(4) 4 scalar 748,751,752,755,766,769,770,773,78 4,788,789,801,805,806,852,855,856, 859,870,873,874,877,888,892,893,90 5,909,910 IDIM1 Param 81 I(4) 4 scalar 709 IDIM2 Param 81 I(4) 4 scalar 709 IEND Local 747 I(4) 4 scalar 747,750,765,768,783,787,800,804,85 1,854,869,872,887,891,904,908 IERR Local 785 I(4) 4 scalar 785,802,812,816,889,906,916,920 IGSTL Param 76 I(4) 4 scalar 81 IGSTR Param 76 I(4) 4 scalar 81 IHALO Dummy 4 I(4) 4 scalar ARG,INOUT 746,747,764,765,782,783,799,800,85 0,869,886,904 IHANDLE Local 708 I(4) 4 1 4 729,738,756,774,785,802,812,816,83 3,842,860,878,889,906,916,920 IM Param 64 I(4) 4 scalar 78,81,691,692,693,694,695,699,700, 705 INPES Param 73 I(4) 4 scalar 78,81,675,676,677,686,687 IRECV Local 729 I(4) 4 scalar 729,738,833,842 ISEND Local 756 I(4) 4 scalar 756,774,860,878 ISTAT Local 707 I(4) 4 1 5 785,802,812,816,889,906,916,920 ITAIL Param 78 I(4) 4 scalar ITYPE Local 713 I(4) 4 scalar 713,728,737,755,773,832,841,859,87 7 J Local 749 I(4) 4 scalar 749,752,767,770,786,789,803,806,85 3,856,871,874,890,893,907,910 JDIM1 Param 82 I(4) 4 scalar 709 JDIM2 Param 82 I(4) 4 scalar 709 JGSTL Param 77 I(4) 4 scalar 82 JGSTR Param 77 I(4) 4 scalar 82 JHALO Dummy 4 I(4) 4 scalar ARG,INOUT 749,767,786,803,853,871,890,907 Page 7 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References JM Param 64 I(4) 4 scalar 79,82,691,692,693,694,695,699,700, 705 JNPES Param 73 I(4) 4 scalar 79,82,675,676,677,686,687 JTAIL Param 79 I(4) 4 scalar LL1 Dummy 4 I(4) 4 scalar ARG,INOUT LM Param 64 I(4) 4 scalar 700 LSM Param 64 I(4) 4 scalar MAPPINGS Common 704 5024 SAVE MPIFCMB5 Common 635 4 SAVE MPIFCMB9 Common 636 4 SAVE MPIPRIV1 Common 640 28 SAVE MPIPRIV2 Common 642 24 SAVE MPIPRIVC Common 645 2 SAVE MPI_2DOUBLE_PRECISION Param 381 I(4) 4 scalar MPI_2INT Param 465 I(4) 4 scalar MPI_2INTEGER Param 379 I(4) 4 scalar MPI_2REAL Param 383 I(4) 4 scalar MPI_ADDRESS_KIND Param 417 I(4) 4 scalar MPI_AINT Param 495 I(4) 4 scalar MPI_ANY_SOURCE Param 347 I(4) 4 scalar MPI_ANY_TAG Param 349 I(4) 4 scalar MPI_APPNUM Param 311 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 617 L(4) 4 scalar MPI_BAND Param 255 I(4) 4 scalar MPI_BOR Param 259 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 343 I(4) 4 scalar MPI_BXOR Param 263 I(4) 4 scalar MPI_BYTE Param 387 I(4) 4 scalar MPI_CART Param 355 I(4) 4 scalar MPI_CHAR Param 425 I(4) 4 scalar MPI_CHARACTER Param 385 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 513 I(4) 4 scalar MPI_COMBINER_DARRAY Param 535 I(4) 4 scalar MPI_COMBINER_DUP Param 511 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 539 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 541 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 537 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 525 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 545 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 523 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 519 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 517 I(4) 4 scalar MPI_COMBINER_INDEXED Param 521 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 527 I(4) 4 scalar MPI_COMBINER_NAMED Param 509 I(4) 4 scalar MPI_COMBINER_RESIZED Param 543 I(4) 4 scalar MPI_COMBINER_STRUCT Param 531 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 529 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 533 I(4) 4 scalar MPI_COMBINER_VECTOR Param 515 I(4) 4 scalar Page 8 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_DUP_FN Subr 624 scalar MPI_COMM_NULL Param 279 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 625 scalar MPI_COMM_NULL_DELETE_FN Subr 624 scalar MPI_COMM_SELF Param 275 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 563 I(4) 4 scalar MPI_COMM_WORLD Param 273 I(4) 4 scalar MPI_COMPLEX Param 367 I(4) 4 scalar MPI_COMPLEX16 Param 413 I(4) 4 scalar MPI_COMPLEX32 Param 415 I(4) 4 scalar MPI_COMPLEX8 Param 411 I(4) 4 scalar MPI_CONGRUENT Param 227 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 630 scalar MPI_COUNT Param 499 I(4) 4 scalar MPI_COUNT_KIND Param 421 I(4) 4 scalar MPI_CXX_BOOL Param 501 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 505 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 503 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 507 I(4) 4 scalar MPI_C_BOOL Param 485 I(4) 4 scalar MPI_C_COMPLEX Param 489 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 491 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 487 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 493 I(4) 4 scalar MPI_DATATYPE_NULL Param 289 I(4) 4 scalar 404,502,504,506,508 MPI_DISPLACEMENT_CURRENT Param 613 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 605 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 607 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 611 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 609 I(4) 4 scalar MPI_DIST_GRAPH Param 357 I(4) 4 scalar MPI_DOUBLE Param 447 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 369 I(4) 4 scalar MPI_DOUBLE_INT Param 459 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 375 I(4) 4 scalar MPI_DUP_FN Subr 621 scalar MPI_ERRHANDLER_NULL Param 293 I(4) 4 scalar MPI_ERROR Param 94 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 221 I(4) 4 scalar MPI_ERRORS_RETURN Param 223 I(4) 4 scalar MPI_ERR_ACCESS Param 213 I(4) 4 scalar MPI_ERR_AMODE Param 199 I(4) 4 scalar MPI_ERR_ARG Param 169 I(4) 4 scalar MPI_ERR_ASSERT Param 175 I(4) 4 scalar MPI_ERR_BAD_FILE Param 137 I(4) 4 scalar MPI_ERR_BASE Param 167 I(4) 4 scalar MPI_ERR_BUFFER Param 109 I(4) 4 scalar MPI_ERR_COMM Param 187 I(4) 4 scalar MPI_ERR_CONVERSION Param 203 I(4) 4 scalar MPI_ERR_COUNT Param 113 I(4) 4 scalar MPI_ERR_DIMS Param 151 I(4) 4 scalar MPI_ERR_DISP Param 135 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 117 I(4) 4 scalar MPI_ERR_FILE Param 147 I(4) 4 scalar Page 9 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_FILE_EXISTS Param 129 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 171 I(4) 4 scalar MPI_ERR_GROUP Param 133 I(4) 4 scalar MPI_ERR_INFO Param 161 I(4) 4 scalar MPI_ERR_INFO_KEY Param 165 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 145 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 131 I(4) 4 scalar MPI_ERR_INTERN Param 163 I(4) 4 scalar MPI_ERR_IN_STATUS Param 149 I(4) 4 scalar MPI_ERR_IO Param 209 I(4) 4 scalar MPI_ERR_KEYVAL Param 155 I(4) 4 scalar MPI_ERR_LASTCODE Param 177 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 159 I(4) 4 scalar MPI_ERR_NAME Param 153 I(4) 4 scalar MPI_ERR_NOT_SAME Param 181 I(4) 4 scalar MPI_ERR_NO_MEM Param 173 I(4) 4 scalar MPI_ERR_NO_SPACE Param 105 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 189 I(4) 4 scalar MPI_ERR_OP Param 207 I(4) 4 scalar MPI_ERR_OTHER Param 121 I(4) 4 scalar MPI_ERR_PENDING Param 111 I(4) 4 scalar MPI_ERR_PORT Param 193 I(4) 4 scalar MPI_ERR_QUOTA Param 197 I(4) 4 scalar MPI_ERR_RANK Param 119 I(4) 4 scalar MPI_ERR_READ_ONLY Param 157 I(4) 4 scalar MPI_ERR_REQUEST Param 201 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 123 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 127 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 143 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 205 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 195 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 107 I(4) 4 scalar MPI_ERR_ROOT Param 139 I(4) 4 scalar MPI_ERR_SERVICE Param 115 I(4) 4 scalar MPI_ERR_SIZE Param 125 I(4) 4 scalar MPI_ERR_SPAWN Param 185 I(4) 4 scalar MPI_ERR_TAG Param 215 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 219 I(4) 4 scalar MPI_ERR_TRUNCATE Param 179 I(4) 4 scalar MPI_ERR_TYPE Param 183 I(4) 4 scalar MPI_ERR_UNKNOWN Param 217 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 141 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 191 I(4) 4 scalar MPI_ERR_WIN Param 211 I(4) 4 scalar MPI_FILE_NULL Param 283 I(4) 4 scalar MPI_FLOAT Param 445 I(4) 4 scalar MPI_FLOAT_INT Param 457 I(4) 4 scalar MPI_GRAPH Param 353 I(4) 4 scalar MPI_GROUP_EMPTY Param 277 I(4) 4 scalar MPI_GROUP_NULL Param 285 I(4) 4 scalar MPI_HOST Param 301 I(4) 4 scalar MPI_IDENT Param 225 I(4) 4 scalar MPI_INFO_ENV Param 297 I(4) 4 scalar Page 10 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INFO_NULL Param 295 I(4) 4 scalar MPI_INT Param 437 I(4) 4 scalar MPI_INT16_T Param 471 I(4) 4 scalar MPI_INT32_T Param 473 I(4) 4 scalar MPI_INT64_T Param 475 I(4) 4 scalar MPI_INT8_T Param 469 I(4) 4 scalar MPI_INTEGER Param 377 I(4) 4 scalar MPI_INTEGER1 Param 395 I(4) 4 scalar MPI_INTEGER16 Param 403 I(4) 4 scalar MPI_INTEGER2 Param 397 I(4) 4 scalar MPI_INTEGER4 Param 399 I(4) 4 scalar MPI_INTEGER8 Param 401 I(4) 4 scalar MPI_INTEGER_KIND Param 423 I(4) 4 scalar MPI_IO Param 303 I(4) 4 scalar MPI_IRECV Subr 728 728,737,832,841 MPI_ISEND Subr 755 755,773,859,877 MPI_KEYVAL_INVALID Param 341 I(4) 4 scalar MPI_LAND Param 253 I(4) 4 scalar MPI_LASTUSEDCODE Param 309 I(4) 4 scalar MPI_LB Param 391 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 363 I(4) 4 scalar MPI_LOCK_SHARED Param 365 I(4) 4 scalar MPI_LOGICAL Param 371 I(4) 4 scalar MPI_LONG Param 441 I(4) 4 scalar MPI_LONG_DOUBLE Param 449 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 467 I(4) 4 scalar MPI_LONG_INT Param 461 I(4) 4 scalar MPI_LONG_LONG Param 455 I(4) 4 scalar MPI_LONG_LONG_INT Param 451 I(4) 4 scalar MPI_LOR Param 257 I(4) 4 scalar MPI_LXOR Param 261 I(4) 4 scalar MPI_MAX Param 245 I(4) 4 scalar MPI_MAXLOC Param 267 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 335 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 323 I(4) 4 scalar MPI_MAX_INFO_KEY Param 329 I(4) 4 scalar MPI_MAX_INFO_VAL Param 331 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 337 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 327 I(4) 4 scalar MPI_MAX_PORT_NAME Param 325 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 333 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 567 I(4) 4 scalar MPI_MESSAGE_NULL Param 565 I(4) 4 scalar MPI_MIN Param 247 I(4) 4 scalar MPI_MINLOC Param 265 I(4) 4 scalar MPI_MODE_APPEND Param 591 I(4) 4 scalar MPI_MODE_CREATE Param 587 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 583 I(4) 4 scalar MPI_MODE_EXCL Param 589 I(4) 4 scalar MPI_MODE_NOCHECK Param 553 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 559 I(4) 4 scalar MPI_MODE_NOPUT Param 557 I(4) 4 scalar MPI_MODE_NOSTORE Param 555 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 561 I(4) 4 scalar Page 11 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_RDONLY Param 577 I(4) 4 scalar MPI_MODE_RDWR Param 579 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 593 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 585 I(4) 4 scalar MPI_MODE_WRONLY Param 581 I(4) 4 scalar MPI_NO_OP Param 271 I(4) 4 scalar MPI_NULL_COPY_FN Subr 621 scalar MPI_NULL_DELETE_FN Subr 621 scalar MPI_OFFSET Param 497 I(4) 4 scalar MPI_OFFSET_KIND Param 419 I(4) 4 scalar MPI_OP_NULL Param 287 I(4) 4 scalar MPI_ORDER_C Param 601 I(4) 4 scalar MPI_ORDER_FORTRAN Param 603 I(4) 4 scalar MPI_PACKED Param 393 I(4) 4 scalar MPI_PROC_NULL Param 345 I(4) 4 scalar MPI_PROD Param 251 I(4) 4 scalar MPI_REAL Param 373 I(4) 4 scalar 713 MPI_REAL16 Param 409 I(4) 4 scalar MPI_REAL4 Param 405 I(4) 4 scalar MPI_REAL8 Param 407 I(4) 4 scalar MPI_REPLACE Param 269 I(4) 4 scalar MPI_REQUEST_NULL Param 291 I(4) 4 scalar MPI_ROOT Param 351 I(4) 4 scalar MPI_SEEK_CUR Param 597 I(4) 4 scalar MPI_SEEK_END Param 599 I(4) 4 scalar MPI_SEEK_SET Param 595 I(4) 4 scalar MPI_SHORT Param 433 I(4) 4 scalar MPI_SHORT_INT Param 463 I(4) 4 scalar MPI_SIGNED_CHAR Param 427 I(4) 4 scalar MPI_SIMILAR Param 229 I(4) 4 scalar MPI_SOURCE Param 94 I(4) 4 scalar MPI_STATUS_SIZE Param 96 I(4) 4 scalar 98,99,707 MPI_SUBARRAYS_SUPPORTED Param 615 L(4) 4 scalar MPI_SUBVERSION Param 361 I(4) 4 scalar MPI_SUCCESS Param 103 I(4) 4 scalar MPI_SUM Param 249 I(4) 4 scalar MPI_TAG Param 94 I(4) 4 scalar MPI_TAG_UB Param 299 I(4) 4 scalar MPI_THREAD_FUNNELED Param 571 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 575 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 573 I(4) 4 scalar MPI_THREAD_SINGLE Param 569 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 551 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 549 I(4) 4 scalar MPI_TYPECLASS_REAL Param 547 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 628 scalar MPI_TYPE_NULL_COPY_FN Subr 629 scalar MPI_TYPE_NULL_DELETE_FN Subr 628 scalar MPI_UB Param 389 I(4) 4 scalar MPI_UINT16_T Param 479 I(4) 4 scalar MPI_UINT32_T Param 481 I(4) 4 scalar MPI_UINT64_T Param 483 I(4) 4 scalar MPI_UINT8_T Param 477 I(4) 4 scalar MPI_UNDEFINED Param 339 I(4) 4 scalar MPI_UNEQUAL Param 231 I(4) 4 scalar Page 12 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNIVERSE_SIZE Param 307 I(4) 4 scalar MPI_UNSIGNED Param 439 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 429 I(4) 4 scalar MPI_UNSIGNED_LONG Param 443 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 453 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 435 I(4) 4 scalar MPI_VERSION Param 359 I(4) 4 scalar MPI_WAIT Subr 785 785,802,812,816,889,906,916,920 MPI_WCHAR Param 431 I(4) 4 scalar MPI_WIN_BASE Param 313 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 319 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 317 I(4) 4 scalar MPI_WIN_DUP_FN Subr 626 scalar MPI_WIN_FLAVOR_ALLOCATE Param 235 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 233 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 237 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 239 I(4) 4 scalar MPI_WIN_MODEL Param 321 I(4) 4 scalar MPI_WIN_NULL Param 281 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 627 scalar MPI_WIN_NULL_DELETE_FN Subr 626 scalar MPI_WIN_SEPARATE Param 241 I(4) 4 scalar MPI_WIN_SIZE Param 315 I(4) 4 scalar MPI_WIN_UNIFIED Param 243 I(4) 4 scalar MPI_WTICK Func 622 R(8) 8 scalar MPI_WTIME Func 622 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 305 I(4) 4 scalar MPPCOM Common 649 1724 SAVE PMPI_WTICK Func 623 R(8) 8 scalar PMPI_WTIME Func 623 R(8) 8 scalar TEMPCOM Common 690 6603768 SAVE TOPO Common 698 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 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 Page 13 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 729,738,756,774,833,842,860,878 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 747,765,783,800,850,851,903,904 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 746,764,782,799,868,869,886,887 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 Page 14 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MYIS1_P4 I(4) 4 96 scalar COM 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 752,806,853,871,890,907 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 770,789,853,871,890,907 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 Page 15 Source Listing EXCH0 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MYPE I(4) 4 0 scalar COM 755,773,859,877 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 727,728,736,737,745,755,763,773,78 1,798,811,815,831,832,840,841,849, 859,867,877,885,902,915,919 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 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 16 Source Listing EXCH0 2025-03-12 18:22 module_EXCHM.F 925 926 SUBROUTINE EXCH1(ARR1,LL1,IHALO,JHALO) 927 USE EXCH_BUF_REAL 928 INCLUDE "parmeta" 952 INCLUDE "mpif.h" 1514 INCLUDE "mpp.h" 1515 C----------------------------------------------------------------------- 1574 INTEGER ISTAT(MPI_STATUS_SIZE) 1575 INTEGER IHANDLE(4) 1576 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 1577 C 1578 C*********************************************************************** 1579 C 1580 ITYPE=MPI_REAL 1581 C 1582 C-------------------------------------------------------------------- 1583 C-------------------------------------------------------------------- 1584 C*** 1585 C*** NORTH/SOUTH 1586 C*** 1587 C-------------------------------------------------------------------- 1588 C-------------------------------------------------------------------- 1589 C 1590 C-------------------------------------------------------------------- 1591 C RECEIVE FROM NORTH 1592 C-------------------------------------------------------------------- 1593 C 1594 IF(MY_NEB(1).GE.0)THEN 1595 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 1596 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 1597 ENDIF 1598 C 1599 C-------------------------------------------------------------------- 1600 C RECEIVE FROM SOUTH 1601 C-------------------------------------------------------------------- 1602 C 1603 IF(MY_NEB(3).GE.0)THEN 1604 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 1605 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 1606 ENDIF 1607 C 1608 C-------------------------------------------------------------------- 1609 C SEND TO NORTH 1610 C-------------------------------------------------------------------- 1611 C 1612 IF(MY_NEB(1).GE.0)THEN 1613 IBEG = MYIS-IHALO 1614 IEND = MYIE+IHALO 1615 IC = 0 1616 DO K=1,LL1 1617 DO J=0,JHALO-1 1618 DO I=IBEG,IEND 1619 IC = IC + 1 1620 BUF2(IC)=ARR1(I,MYJE-J,K) 1621 ENDDO 1622 ENDDO 1623 ENDDO Page 17 Source Listing EXCH1 2025-03-12 18:22 module_EXCHM.F 1624 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 1625 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 1626 ENDIF 1627 C 1628 C-------------------------------------------------------------------- 1629 C SEND TO SOUTH 1630 C-------------------------------------------------------------------- 1631 C 1632 IF(MY_NEB(3).GE.0)THEN 1633 IBEG = MYIS-IHALO 1634 IEND = MYIE+IHALO 1635 IC = 0 1636 DO K=1,LL1 1637 DO J=0,JHALO-1 1638 DO I=IBEG,IEND 1639 IC = IC + 1 1640 BUF3(IC)=ARR1(I,MYJS+J,K) 1641 ENDDO 1642 ENDDO 1643 ENDDO 1644 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 1645 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 1646 ENDIF 1647 C 1648 C-------------------------------------------------------------------- 1649 C STORE RESULTS FROM SOUTH 1650 C-------------------------------------------------------------------- 1651 C 1652 IF(MY_NEB(3).GE.0)THEN 1653 IBEG = MYIS-IHALO 1654 IEND = MYIE+IHALO 1655 IC = 0 1656 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 1657 DO K=1,LL1 1658 DO J=0,JHALO-1 1659 DO I=IBEG,IEND 1660 IC = IC + 1 1661 ARR1(I,MYJS-J-1,K)=BUF1(IC) 1662 ENDDO 1663 ENDDO 1664 ENDDO 1665 ENDIF 1666 C 1667 C-------------------------------------------------------------------- 1668 C STORE FROM NORTH 1669 C-------------------------------------------------------------------- 1670 C 1671 IF(MY_NEB(1).GE.0)THEN 1672 IBEG = MYIS-IHALO 1673 IEND = MYIE+IHALO 1674 IC = 0 1675 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 1676 DO K=1,LL1 1677 DO J=0,JHALO-1 1678 DO I=IBEG,IEND 1679 IC = IC + 1 1680 ARR1(I,MYJE+J+1,K)=BUF0(IC) Page 18 Source Listing EXCH1 2025-03-12 18:22 module_EXCHM.F 1681 ENDDO 1682 ENDDO 1683 ENDDO 1684 ENDIF 1685 C 1686 IF(MY_NEB(1).GE.0)THEN 1687 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 1688 ENDIF 1689 C 1690 IF(MY_NEB(3).GE.0)THEN 1691 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 1692 ENDIF 1693 C 1694 C-------------------------------------------------------------------- 1695 C-------------------------------------------------------------------- 1696 C*** 1697 C*** EAST/WEST 1698 C*** 1699 C-------------------------------------------------------------------- 1700 C-------------------------------------------------------------------- 1701 C 1702 C-------------------------------------------------------------------- 1703 C RECEIVE FROM WEST 1704 C-------------------------------------------------------------------- 1705 C 1706 IF(MY_NEB(4).GE.0)THEN 1707 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 1708 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 1709 ENDIF 1710 C 1711 C-------------------------------------------------------------------- 1712 C RECEIVE FROM EAST 1713 C-------------------------------------------------------------------- 1714 C 1715 IF(MY_NEB(2).GE.0)THEN 1716 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 1717 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 1718 ENDIF 1719 C 1720 C-------------------------------------------------------------------- 1721 C SEND TO EAST 1722 C-------------------------------------------------------------------- 1723 C 1724 IF(MY_NEB(2).GE.0)THEN 1725 IBEG = MYIE-IHALO+1 1726 IEND = MYIE 1727 IC = 0 1728 DO K=1,LL1 1729 DO J=MYJS-JHALO,MYJE+JHALO 1730 DO I=IBEG,IEND 1731 IC = IC + 1 1732 BUF2(IC)=ARR1(I,J,K) 1733 ENDDO 1734 ENDDO 1735 ENDDO 1736 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 1737 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 19 Source Listing EXCH1 2025-03-12 18:22 module_EXCHM.F 1738 ENDIF 1739 C 1740 C-------------------------------------------------------------------- 1741 C SEND TO WEST 1742 C-------------------------------------------------------------------- 1743 C 1744 IF(MY_NEB(4).GE.0)THEN 1745 IBEG = MYIS 1746 IEND = MYIS+IHALO-1 1747 IC = 0 1748 DO K=1,LL1 1749 DO J=MYJS-JHALO,MYJE+JHALO 1750 DO I=IBEG,IEND 1751 IC = IC + 1 1752 BUF3(IC)=ARR1(I,J,K) 1753 ENDDO 1754 ENDDO 1755 ENDDO 1756 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 1757 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 1758 ENDIF 1759 C 1760 C-------------------------------------------------------------------- 1761 C STORE FROM WEST 1762 C-------------------------------------------------------------------- 1763 C 1764 IF(MY_NEB(4).GE.0)THEN 1765 IBEG = MYIS-IHALO 1766 IEND = MYIS-1 1767 IC = 0 1768 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 1769 DO K=1,LL1 1770 DO J=MYJS-JHALO,MYJE+JHALO 1771 DO I=IBEG,IEND 1772 IC = IC + 1 1773 ARR1(I,J,K)=BUF0(IC) 1774 ENDDO 1775 ENDDO 1776 ENDDO 1777 ENDIF 1778 C 1779 C-------------------------------------------------------------------- 1780 C STORE FROM EAST 1781 C-------------------------------------------------------------------- 1782 C 1783 IF(MY_NEB(2).GE.0)THEN 1784 IBEG = MYIE+1 1785 IEND = MYIE+IHALO 1786 IC = 0 1787 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 1788 DO K=1,LL1 1789 DO J=MYJS-JHALO,MYJE+JHALO 1790 DO I=IBEG,IEND 1791 IC = IC + 1 1792 ARR1(I,J,K)=BUF1(IC) 1793 ENDDO 1794 ENDDO Page 20 Source Listing EXCH1 2025-03-12 18:22 module_EXCHM.F 1795 ENDDO 1796 ENDIF 1797 C 1798 IF(MY_NEB(4).GE.0)THEN 1799 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 1800 ENDIF 1801 C 1802 IF(MY_NEB(2).GE.0)THEN 1803 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 1804 ENDIF 1805 C 1806 C-------------------------------------------------------------------- 1807 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch1_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 926 R(4) 4 3 0 ARG,INOUT 1620,1640,1661,1680,1732,1752,1773 ,1792 BUF0 Local 1595 R(4) 4 1 2500000 1595,1680,1707,1773 BUF1 Local 1604 R(4) 4 1 2500000 1604,1661,1716,1792 BUF2 Local 1620 R(4) 4 1 2500000 1620,1624,1732,1736 BUF3 Local 1640 R(4) 4 1 2500000 1640,1644,1752,1756 EXCH1 Subr 926 EXCH_BUF_REAL Module 927 927 GLB_TABLE Common 1552 336 SAVE I Local 1618 I(4) 4 scalar 1618,1620,1638,1640,1659,1661,1678 ,1680,1730,1732,1750,1752,1771,177 3,1790,1792 IBEG Local 1613 I(4) 4 scalar 1613,1618,1633,1638,1653,1659,1672 ,1678,1725,1730,1745,1750,1765,177 1,1784,1790 IBUFEXCH Param 1595 I(4) 4 scalar 1595,1604,1707,1716 IC Local 1615 I(4) 4 scalar 1615,1619,1620,1624,1635,1639,1640 ,1644,1655,1660,1661,1674,1679,168 0,1727,1731,1732,1736,1747,1751,17 52,1756,1767,1772,1773,1786,1791,1 792 IDIM1 Param 948 I(4) 4 scalar 1576 IDIM2 Param 948 I(4) 4 scalar 1576 IEND Local 1614 I(4) 4 scalar 1614,1618,1634,1638,1654,1659,1673 ,1678,1726,1730,1746,1750,1766,177 1,1785,1790 IERR Local 1656 I(4) 4 scalar 1656,1675,1687,1691,1768,1787,1799 ,1803 IGSTL Param 943 I(4) 4 scalar 948 IGSTR Param 943 I(4) 4 scalar 948 IHALO Dummy 926 I(4) 4 scalar ARG,INOUT 1613,1614,1633,1634,1653,1654,1672 Page 21 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,1673,1725,1746,1765,1785 IHANDLE Local 1575 I(4) 4 1 4 1596,1605,1625,1645,1656,1675,1687 ,1691,1708,1717,1737,1757,1768,178 7,1799,1803 IM Param 931 I(4) 4 scalar 945,948,1558,1559,1560,1561,1562,1 566,1567,1572 INPES Param 940 I(4) 4 scalar 945,948,1542,1543,1544,1553,1554 IRECV Local 1596 I(4) 4 scalar 1596,1605,1708,1717 ISEND Local 1625 I(4) 4 scalar 1625,1645,1737,1757 ISTAT Local 1574 I(4) 4 1 5 1656,1675,1687,1691,1768,1787,1799 ,1803 ITAIL Param 945 I(4) 4 scalar ITYPE Local 1580 I(4) 4 scalar 1580,1595,1604,1624,1644,1707,1716 ,1736,1756 J Local 1617 I(4) 4 scalar 1617,1620,1637,1640,1658,1661,1677 ,1680,1729,1732,1749,1752,1770,177 3,1789,1792 JDIM1 Param 949 I(4) 4 scalar 1576 JDIM2 Param 949 I(4) 4 scalar 1576 JGSTL Param 944 I(4) 4 scalar 949 JGSTR Param 944 I(4) 4 scalar 949 JHALO Dummy 926 I(4) 4 scalar ARG,INOUT 1617,1637,1658,1677,1729,1749,1770 ,1789 JM Param 931 I(4) 4 scalar 946,949,1558,1559,1560,1561,1562,1 566,1567,1572 JNPES Param 940 I(4) 4 scalar 946,949,1542,1543,1544,1553,1554 JTAIL Param 946 I(4) 4 scalar K Local 1616 I(4) 4 scalar 1616,1620,1636,1640,1657,1661,1676 ,1680,1728,1732,1748,1752,1769,177 3,1788,1792 LL1 Dummy 926 I(4) 4 scalar ARG,INOUT 1616,1636,1657,1676,1728,1748,1769 ,1788 LM Param 931 I(4) 4 scalar 1567 LSM Param 931 I(4) 4 scalar MAPPINGS Common 1571 5024 SAVE MPIFCMB5 Common 1502 4 SAVE MPIFCMB9 Common 1503 4 SAVE MPIPRIV1 Common 1507 28 SAVE MPIPRIV2 Common 1509 24 SAVE MPIPRIVC Common 1512 2 SAVE MPI_2DOUBLE_PRECISION Param 1248 I(4) 4 scalar MPI_2INT Param 1332 I(4) 4 scalar MPI_2INTEGER Param 1246 I(4) 4 scalar MPI_2REAL Param 1250 I(4) 4 scalar MPI_ADDRESS_KIND Param 1284 I(4) 4 scalar MPI_AINT Param 1362 I(4) 4 scalar MPI_ANY_SOURCE Param 1214 I(4) 4 scalar MPI_ANY_TAG Param 1216 I(4) 4 scalar MPI_APPNUM Param 1178 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 1484 L(4) 4 scalar MPI_BAND Param 1122 I(4) 4 scalar MPI_BOR Param 1126 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 1210 I(4) 4 scalar MPI_BXOR Param 1130 I(4) 4 scalar Page 22 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BYTE Param 1254 I(4) 4 scalar MPI_CART Param 1222 I(4) 4 scalar MPI_CHAR Param 1292 I(4) 4 scalar MPI_CHARACTER Param 1252 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 1380 I(4) 4 scalar MPI_COMBINER_DARRAY Param 1402 I(4) 4 scalar MPI_COMBINER_DUP Param 1378 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 1406 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 1408 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 1404 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 1392 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 1412 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 1390 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 1386 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 1384 I(4) 4 scalar MPI_COMBINER_INDEXED Param 1388 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 1394 I(4) 4 scalar MPI_COMBINER_NAMED Param 1376 I(4) 4 scalar MPI_COMBINER_RESIZED Param 1410 I(4) 4 scalar MPI_COMBINER_STRUCT Param 1398 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 1396 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 1400 I(4) 4 scalar MPI_COMBINER_VECTOR Param 1382 I(4) 4 scalar MPI_COMM_DUP_FN Subr 1491 scalar MPI_COMM_NULL Param 1146 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 1492 scalar MPI_COMM_NULL_DELETE_FN Subr 1491 scalar MPI_COMM_SELF Param 1142 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 1430 I(4) 4 scalar MPI_COMM_WORLD Param 1140 I(4) 4 scalar MPI_COMPLEX Param 1234 I(4) 4 scalar MPI_COMPLEX16 Param 1280 I(4) 4 scalar MPI_COMPLEX32 Param 1282 I(4) 4 scalar MPI_COMPLEX8 Param 1278 I(4) 4 scalar MPI_CONGRUENT Param 1094 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 1497 scalar MPI_COUNT Param 1366 I(4) 4 scalar MPI_COUNT_KIND Param 1288 I(4) 4 scalar MPI_CXX_BOOL Param 1368 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 1372 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 1370 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 1374 I(4) 4 scalar MPI_C_BOOL Param 1352 I(4) 4 scalar MPI_C_COMPLEX Param 1356 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 1358 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 1354 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 1360 I(4) 4 scalar MPI_DATATYPE_NULL Param 1156 I(4) 4 scalar 1271,1369,1371,1373,1375 MPI_DISPLACEMENT_CURRENT Param 1480 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 1472 I(4) 4 scalar Page 23 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DISTRIBUTE_CYCLIC Param 1474 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 1478 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 1476 I(4) 4 scalar MPI_DIST_GRAPH Param 1224 I(4) 4 scalar MPI_DOUBLE Param 1314 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 1236 I(4) 4 scalar MPI_DOUBLE_INT Param 1326 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 1242 I(4) 4 scalar MPI_DUP_FN Subr 1488 scalar MPI_ERRHANDLER_NULL Param 1160 I(4) 4 scalar MPI_ERROR Param 961 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 1088 I(4) 4 scalar MPI_ERRORS_RETURN Param 1090 I(4) 4 scalar MPI_ERR_ACCESS Param 1080 I(4) 4 scalar MPI_ERR_AMODE Param 1066 I(4) 4 scalar MPI_ERR_ARG Param 1036 I(4) 4 scalar MPI_ERR_ASSERT Param 1042 I(4) 4 scalar MPI_ERR_BAD_FILE Param 1004 I(4) 4 scalar MPI_ERR_BASE Param 1034 I(4) 4 scalar MPI_ERR_BUFFER Param 976 I(4) 4 scalar MPI_ERR_COMM Param 1054 I(4) 4 scalar MPI_ERR_CONVERSION Param 1070 I(4) 4 scalar MPI_ERR_COUNT Param 980 I(4) 4 scalar MPI_ERR_DIMS Param 1018 I(4) 4 scalar MPI_ERR_DISP Param 1002 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 984 I(4) 4 scalar MPI_ERR_FILE Param 1014 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 996 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 1038 I(4) 4 scalar MPI_ERR_GROUP Param 1000 I(4) 4 scalar MPI_ERR_INFO Param 1028 I(4) 4 scalar MPI_ERR_INFO_KEY Param 1032 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 1012 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 998 I(4) 4 scalar MPI_ERR_INTERN Param 1030 I(4) 4 scalar MPI_ERR_IN_STATUS Param 1016 I(4) 4 scalar MPI_ERR_IO Param 1076 I(4) 4 scalar MPI_ERR_KEYVAL Param 1022 I(4) 4 scalar MPI_ERR_LASTCODE Param 1044 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 1026 I(4) 4 scalar MPI_ERR_NAME Param 1020 I(4) 4 scalar MPI_ERR_NOT_SAME Param 1048 I(4) 4 scalar MPI_ERR_NO_MEM Param 1040 I(4) 4 scalar MPI_ERR_NO_SPACE Param 972 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 1056 I(4) 4 scalar MPI_ERR_OP Param 1074 I(4) 4 scalar MPI_ERR_OTHER Param 988 I(4) 4 scalar MPI_ERR_PENDING Param 978 I(4) 4 scalar MPI_ERR_PORT Param 1060 I(4) 4 scalar MPI_ERR_QUOTA Param 1064 I(4) 4 scalar MPI_ERR_RANK Param 986 I(4) 4 scalar MPI_ERR_READ_ONLY Param 1024 I(4) 4 scalar MPI_ERR_REQUEST Param 1068 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 990 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 994 I(4) 4 scalar Page 24 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_RMA_FLAVOR Param 1010 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 1072 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 1062 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 974 I(4) 4 scalar MPI_ERR_ROOT Param 1006 I(4) 4 scalar MPI_ERR_SERVICE Param 982 I(4) 4 scalar MPI_ERR_SIZE Param 992 I(4) 4 scalar MPI_ERR_SPAWN Param 1052 I(4) 4 scalar MPI_ERR_TAG Param 1082 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 1086 I(4) 4 scalar MPI_ERR_TRUNCATE Param 1046 I(4) 4 scalar MPI_ERR_TYPE Param 1050 I(4) 4 scalar MPI_ERR_UNKNOWN Param 1084 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 1008 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 1058 I(4) 4 scalar MPI_ERR_WIN Param 1078 I(4) 4 scalar MPI_FILE_NULL Param 1150 I(4) 4 scalar MPI_FLOAT Param 1312 I(4) 4 scalar MPI_FLOAT_INT Param 1324 I(4) 4 scalar MPI_GRAPH Param 1220 I(4) 4 scalar MPI_GROUP_EMPTY Param 1144 I(4) 4 scalar MPI_GROUP_NULL Param 1152 I(4) 4 scalar MPI_HOST Param 1168 I(4) 4 scalar MPI_IDENT Param 1092 I(4) 4 scalar MPI_INFO_ENV Param 1164 I(4) 4 scalar MPI_INFO_NULL Param 1162 I(4) 4 scalar MPI_INT Param 1304 I(4) 4 scalar MPI_INT16_T Param 1338 I(4) 4 scalar MPI_INT32_T Param 1340 I(4) 4 scalar MPI_INT64_T Param 1342 I(4) 4 scalar MPI_INT8_T Param 1336 I(4) 4 scalar MPI_INTEGER Param 1244 I(4) 4 scalar MPI_INTEGER1 Param 1262 I(4) 4 scalar MPI_INTEGER16 Param 1270 I(4) 4 scalar MPI_INTEGER2 Param 1264 I(4) 4 scalar MPI_INTEGER4 Param 1266 I(4) 4 scalar MPI_INTEGER8 Param 1268 I(4) 4 scalar MPI_INTEGER_KIND Param 1290 I(4) 4 scalar MPI_IO Param 1170 I(4) 4 scalar MPI_IRECV Subr 1595 1595,1604,1707,1716 MPI_ISEND Subr 1624 1624,1644,1736,1756 MPI_KEYVAL_INVALID Param 1208 I(4) 4 scalar MPI_LAND Param 1120 I(4) 4 scalar MPI_LASTUSEDCODE Param 1176 I(4) 4 scalar MPI_LB Param 1258 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 1230 I(4) 4 scalar MPI_LOCK_SHARED Param 1232 I(4) 4 scalar MPI_LOGICAL Param 1238 I(4) 4 scalar MPI_LONG Param 1308 I(4) 4 scalar MPI_LONG_DOUBLE Param 1316 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 1334 I(4) 4 scalar MPI_LONG_INT Param 1328 I(4) 4 scalar MPI_LONG_LONG Param 1322 I(4) 4 scalar Page 25 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_LONG_INT Param 1318 I(4) 4 scalar MPI_LOR Param 1124 I(4) 4 scalar MPI_LXOR Param 1128 I(4) 4 scalar MPI_MAX Param 1112 I(4) 4 scalar MPI_MAXLOC Param 1134 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 1202 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 1190 I(4) 4 scalar MPI_MAX_INFO_KEY Param 1196 I(4) 4 scalar MPI_MAX_INFO_VAL Param 1198 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 1204 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 1194 I(4) 4 scalar MPI_MAX_PORT_NAME Param 1192 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 1200 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 1434 I(4) 4 scalar MPI_MESSAGE_NULL Param 1432 I(4) 4 scalar MPI_MIN Param 1114 I(4) 4 scalar MPI_MINLOC Param 1132 I(4) 4 scalar MPI_MODE_APPEND Param 1458 I(4) 4 scalar MPI_MODE_CREATE Param 1454 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 1450 I(4) 4 scalar MPI_MODE_EXCL Param 1456 I(4) 4 scalar MPI_MODE_NOCHECK Param 1420 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 1426 I(4) 4 scalar MPI_MODE_NOPUT Param 1424 I(4) 4 scalar MPI_MODE_NOSTORE Param 1422 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 1428 I(4) 4 scalar MPI_MODE_RDONLY Param 1444 I(4) 4 scalar MPI_MODE_RDWR Param 1446 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 1460 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 1452 I(4) 4 scalar MPI_MODE_WRONLY Param 1448 I(4) 4 scalar MPI_NO_OP Param 1138 I(4) 4 scalar MPI_NULL_COPY_FN Subr 1488 scalar MPI_NULL_DELETE_FN Subr 1488 scalar MPI_OFFSET Param 1364 I(4) 4 scalar MPI_OFFSET_KIND Param 1286 I(4) 4 scalar MPI_OP_NULL Param 1154 I(4) 4 scalar MPI_ORDER_C Param 1468 I(4) 4 scalar MPI_ORDER_FORTRAN Param 1470 I(4) 4 scalar MPI_PACKED Param 1260 I(4) 4 scalar MPI_PROC_NULL Param 1212 I(4) 4 scalar MPI_PROD Param 1118 I(4) 4 scalar MPI_REAL Param 1240 I(4) 4 scalar 1580 MPI_REAL16 Param 1276 I(4) 4 scalar MPI_REAL4 Param 1272 I(4) 4 scalar MPI_REAL8 Param 1274 I(4) 4 scalar MPI_REPLACE Param 1136 I(4) 4 scalar MPI_REQUEST_NULL Param 1158 I(4) 4 scalar MPI_ROOT Param 1218 I(4) 4 scalar MPI_SEEK_CUR Param 1464 I(4) 4 scalar MPI_SEEK_END Param 1466 I(4) 4 scalar MPI_SEEK_SET Param 1462 I(4) 4 scalar MPI_SHORT Param 1300 I(4) 4 scalar MPI_SHORT_INT Param 1330 I(4) 4 scalar Page 26 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SIGNED_CHAR Param 1294 I(4) 4 scalar MPI_SIMILAR Param 1096 I(4) 4 scalar MPI_SOURCE Param 961 I(4) 4 scalar MPI_STATUS_SIZE Param 963 I(4) 4 scalar 965,966,1574 MPI_SUBARRAYS_SUPPORTED Param 1482 L(4) 4 scalar MPI_SUBVERSION Param 1228 I(4) 4 scalar MPI_SUCCESS Param 970 I(4) 4 scalar MPI_SUM Param 1116 I(4) 4 scalar MPI_TAG Param 961 I(4) 4 scalar MPI_TAG_UB Param 1166 I(4) 4 scalar MPI_THREAD_FUNNELED Param 1438 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 1442 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 1440 I(4) 4 scalar MPI_THREAD_SINGLE Param 1436 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 1418 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 1416 I(4) 4 scalar MPI_TYPECLASS_REAL Param 1414 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 1495 scalar MPI_TYPE_NULL_COPY_FN Subr 1496 scalar MPI_TYPE_NULL_DELETE_FN Subr 1495 scalar MPI_UB Param 1256 I(4) 4 scalar MPI_UINT16_T Param 1346 I(4) 4 scalar MPI_UINT32_T Param 1348 I(4) 4 scalar MPI_UINT64_T Param 1350 I(4) 4 scalar MPI_UINT8_T Param 1344 I(4) 4 scalar MPI_UNDEFINED Param 1206 I(4) 4 scalar MPI_UNEQUAL Param 1098 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 1174 I(4) 4 scalar MPI_UNSIGNED Param 1306 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 1296 I(4) 4 scalar MPI_UNSIGNED_LONG Param 1310 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 1320 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 1302 I(4) 4 scalar MPI_VERSION Param 1226 I(4) 4 scalar MPI_WAIT Subr 1656 1656,1675,1687,1691,1768,1787,1799 ,1803 MPI_WCHAR Param 1298 I(4) 4 scalar MPI_WIN_BASE Param 1180 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 1186 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 1184 I(4) 4 scalar MPI_WIN_DUP_FN Subr 1493 scalar MPI_WIN_FLAVOR_ALLOCATE Param 1102 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 1100 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 1104 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 1106 I(4) 4 scalar MPI_WIN_MODEL Param 1188 I(4) 4 scalar MPI_WIN_NULL Param 1148 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 1494 scalar MPI_WIN_NULL_DELETE_FN Subr 1493 scalar MPI_WIN_SEPARATE Param 1108 I(4) 4 scalar MPI_WIN_SIZE Param 1182 I(4) 4 scalar MPI_WIN_UNIFIED Param 1110 I(4) 4 scalar MPI_WTICK Func 1489 R(8) 8 scalar MPI_WTIME Func 1489 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 1172 I(4) 4 scalar Page 27 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPPCOM Common 1516 1724 SAVE PMPI_WTICK Func 1490 R(8) 8 scalar PMPI_WTIME Func 1490 R(8) 8 scalar TEMPCOM Common 1557 6603768 SAVE TOPO Common 1565 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 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM Page 28 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 912 scalar COM 1596,1605,1625,1645,1708,1717,1737 ,1757 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 1614,1634,1654,1673,1725,1726,1784 ,1785 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 1613,1633,1653,1672,1745,1746,1765 ,1766 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 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 1620,1680,1729,1749,1770,1789 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 Page 29 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 1640,1661,1729,1749,1770,1789 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 1624,1644,1736,1756 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 1594,1595,1603,1604,1612,1624,1632 ,1644,1652,1671,1686,1690,1706,170 7,1715,1716,1724,1736,1744,1756,17 64,1783,1798,1802 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 TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM Page 30 Source Listing EXCH1 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 31 Source Listing EXCH1 2025-03-12 18:22 module_EXCHM.F 1808 1809 SUBROUTINE EXCH01(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 1810 USE EXCH_BUF_REAL 1811 INCLUDE "parmeta" 1835 INCLUDE "mpif.h" 2397 INCLUDE "mpp.h" 2398 C----------------------------------------------------------------------- 2457 INTEGER ISTAT(MPI_STATUS_SIZE) 2458 INTEGER IHANDLE(4) 2459 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 2460 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 2461 C 2462 C*********************************************************************** 2463 C 2464 ITYPE=MPI_REAL 2465 C 2466 C-------------------------------------------------------------------- 2467 C-------------------------------------------------------------------- 2468 C*** 2469 C*** NORTH/SOUTH 2470 C*** 2471 C-------------------------------------------------------------------- 2472 C-------------------------------------------------------------------- 2473 C 2474 C-------------------------------------------------------------------- 2475 C RECEIVE FROM NORTH 2476 C-------------------------------------------------------------------- 2477 C 2478 IF(MY_NEB(1).GE.0)THEN 2479 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 2480 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 2481 ENDIF 2482 C 2483 C-------------------------------------------------------------------- 2484 C RECEIVE FROM SOUTH 2485 C-------------------------------------------------------------------- 2486 C 2487 IF(MY_NEB(3).GE.0)THEN 2488 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 2489 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 2490 ENDIF 2491 C 2492 C-------------------------------------------------------------------- 2493 C SEND TO NORTH 2494 C-------------------------------------------------------------------- 2495 C 2496 IF(MY_NEB(1).GE.0)THEN 2497 IBEG = MYIS-IHALO 2498 IEND = MYIE+IHALO 2499 IC = 0 2500 DO J=0,JHALO-1 2501 DO I=IBEG,IEND 2502 IC = IC + 1 2503 BUF2(IC)=ARR1(I,MYJE-J) 2504 ENDDO 2505 ENDDO 2506 DO K=1,LL2 Page 32 Source Listing EXCH01 2025-03-12 18:22 module_EXCHM.F 2507 DO J=0,JHALO-1 2508 DO I=IBEG,IEND 2509 IC = IC + 1 2510 BUF2(IC)=ARR2(I,MYJE-J,K) 2511 ENDDO 2512 ENDDO 2513 ENDDO 2514 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 2515 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 2516 ENDIF 2517 C 2518 C-------------------------------------------------------------------- 2519 C SEND TO SOUTH 2520 C-------------------------------------------------------------------- 2521 C 2522 IF(MY_NEB(3).GE.0)THEN 2523 IBEG = MYIS-IHALO 2524 IEND = MYIE+IHALO 2525 IC = 0 2526 DO J=0,JHALO-1 2527 DO I=IBEG,IEND 2528 IC = IC + 1 2529 BUF3(IC)=ARR1(I,MYJS+J) 2530 ENDDO 2531 ENDDO 2532 DO K=1,LL2 2533 DO J=0,JHALO-1 2534 DO I=IBEG,IEND 2535 IC = IC + 1 2536 BUF3(IC)=ARR2(I,MYJS+J,K) 2537 ENDDO 2538 ENDDO 2539 ENDDO 2540 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 2541 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 2542 ENDIF 2543 C 2544 C-------------------------------------------------------------------- 2545 C STORE RESULTS FROM SOUTH 2546 C-------------------------------------------------------------------- 2547 C 2548 IF(MY_NEB(3).GE.0)THEN 2549 IBEG = MYIS-IHALO 2550 IEND = MYIE+IHALO 2551 IC = 0 2552 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 2553 DO J=0,JHALO-1 2554 DO I=IBEG,IEND 2555 IC = IC + 1 2556 ARR1(I,MYJS-J-1)=BUF1(IC) 2557 ENDDO 2558 ENDDO 2559 DO K=1,LL2 2560 DO J=0,JHALO-1 2561 DO I=IBEG,IEND 2562 IC = IC + 1 2563 ARR2(I,MYJS-J-1,K)=BUF1(IC) Page 33 Source Listing EXCH01 2025-03-12 18:22 module_EXCHM.F 2564 ENDDO 2565 ENDDO 2566 ENDDO 2567 ENDIF 2568 C 2569 C-------------------------------------------------------------------- 2570 C STORE FROM NORTH 2571 C-------------------------------------------------------------------- 2572 C 2573 IF(MY_NEB(1).GE.0)THEN 2574 IBEG = MYIS-IHALO 2575 IEND = MYIE+IHALO 2576 IC = 0 2577 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 2578 DO J=0,JHALO-1 2579 DO I=IBEG,IEND 2580 IC = IC + 1 2581 ARR1(I,MYJE+J+1)=BUF0(IC) 2582 ENDDO 2583 ENDDO 2584 DO K=1,LL2 2585 DO J=0,JHALO-1 2586 DO I=IBEG,IEND 2587 IC = IC + 1 2588 ARR2(I,MYJE+J+1,K)=BUF0(IC) 2589 ENDDO 2590 ENDDO 2591 ENDDO 2592 ENDIF 2593 C 2594 IF(MY_NEB(1).GE.0)THEN 2595 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 2596 ENDIF 2597 C 2598 IF(MY_NEB(3).GE.0)THEN 2599 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 2600 ENDIF 2601 C 2602 C-------------------------------------------------------------------- 2603 C-------------------------------------------------------------------- 2604 C*** 2605 C*** EAST/WEST 2606 C*** 2607 C-------------------------------------------------------------------- 2608 C-------------------------------------------------------------------- 2609 C 2610 C-------------------------------------------------------------------- 2611 C RECEIVE FROM WEST 2612 C-------------------------------------------------------------------- 2613 C 2614 IF(MY_NEB(4).GE.0)THEN 2615 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 2616 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 2617 ENDIF 2618 C 2619 C-------------------------------------------------------------------- 2620 C RECEIVE FROM EAST Page 34 Source Listing EXCH01 2025-03-12 18:22 module_EXCHM.F 2621 C-------------------------------------------------------------------- 2622 C 2623 IF(MY_NEB(2).GE.0)THEN 2624 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 2625 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 2626 ENDIF 2627 C 2628 C-------------------------------------------------------------------- 2629 C SEND TO EAST 2630 C-------------------------------------------------------------------- 2631 C 2632 IF(MY_NEB(2).GE.0)THEN 2633 IBEG = MYIE-IHALO+1 2634 IEND = MYIE 2635 IC = 0 2636 DO J=MYJS-JHALO,MYJE+JHALO 2637 DO I=IBEG,IEND 2638 IC = IC + 1 2639 BUF2(IC)=ARR1(I,J) 2640 ENDDO 2641 ENDDO 2642 DO K=1,LL2 2643 DO J=MYJS-JHALO,MYJE+JHALO 2644 DO I=IBEG,IEND 2645 IC = IC + 1 2646 BUF2(IC)=ARR2(I,J,K) 2647 ENDDO 2648 ENDDO 2649 ENDDO 2650 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 2651 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 2652 ENDIF 2653 C 2654 C-------------------------------------------------------------------- 2655 C SEND TO WEST 2656 C-------------------------------------------------------------------- 2657 C 2658 IF(MY_NEB(4).GE.0)THEN 2659 IBEG = MYIS 2660 IEND = MYIS+IHALO-1 2661 IC = 0 2662 DO J=MYJS-JHALO,MYJE+JHALO 2663 DO I=IBEG,IEND 2664 IC = IC + 1 2665 BUF3(IC)=ARR1(I,J) 2666 ENDDO 2667 ENDDO 2668 DO K=1,LL2 2669 DO J=MYJS-JHALO,MYJE+JHALO 2670 DO I=IBEG,IEND 2671 IC = IC + 1 2672 BUF3(IC)=ARR2(I,J,K) 2673 ENDDO 2674 ENDDO 2675 ENDDO 2676 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 2677 1, MPI_COMM_COMP,IHANDLE(4),ISEND) Page 35 Source Listing EXCH01 2025-03-12 18:22 module_EXCHM.F 2678 ENDIF 2679 C 2680 C-------------------------------------------------------------------- 2681 C STORE FROM WEST 2682 C-------------------------------------------------------------------- 2683 C 2684 IF(MY_NEB(4).GE.0)THEN 2685 IBEG = MYIS-IHALO 2686 IEND = MYIS-1 2687 IC = 0 2688 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 2689 DO J=MYJS-JHALO,MYJE+JHALO 2690 DO I=IBEG,IEND 2691 IC = IC + 1 2692 ARR1(I,J)=BUF0(IC) 2693 ENDDO 2694 ENDDO 2695 DO K=1,LL2 2696 DO J=MYJS-JHALO,MYJE+JHALO 2697 DO I=IBEG,IEND 2698 IC = IC + 1 2699 ARR2(I,J,K)=BUF0(IC) 2700 ENDDO 2701 ENDDO 2702 ENDDO 2703 ENDIF 2704 C 2705 C-------------------------------------------------------------------- 2706 C STORE FROM EAST 2707 C-------------------------------------------------------------------- 2708 C 2709 IF(MY_NEB(2).GE.0)THEN 2710 IBEG = MYIE+1 2711 IEND = MYIE+IHALO 2712 IC = 0 2713 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 2714 DO J=MYJS-JHALO,MYJE+JHALO 2715 DO I=IBEG,IEND 2716 IC = IC + 1 2717 ARR1(I,J)=BUF1(IC) 2718 ENDDO 2719 ENDDO 2720 DO K=1,LL2 2721 DO J=MYJS-JHALO,MYJE+JHALO 2722 DO I=IBEG,IEND 2723 IC = IC + 1 2724 ARR2(I,J,K)=BUF1(IC) 2725 ENDDO 2726 ENDDO 2727 ENDDO 2728 ENDIF 2729 C 2730 IF(MY_NEB(4).GE.0)THEN 2731 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 2732 ENDIF 2733 C 2734 IF(MY_NEB(2).GE.0)THEN Page 36 Source Listing EXCH01 2025-03-12 18:22 module_EXCHM.F 2735 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 2736 ENDIF 2737 C 2738 C-------------------------------------------------------------------- 2739 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch01_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 1809 R(4) 4 2 6319 ARG,INOUT 2503,2529,2556,2581,2639,2665,2692 ,2717 ARR2 Dummy 1809 R(4) 4 3 0 ARG,INOUT 2510,2536,2563,2588,2646,2672,2699 ,2724 BUF0 Local 2479 R(4) 4 1 2500000 2479,2581,2588,2615,2692,2699 BUF1 Local 2488 R(4) 4 1 2500000 2488,2556,2563,2624,2717,2724 BUF2 Local 2503 R(4) 4 1 2500000 2503,2510,2514,2639,2646,2650 BUF3 Local 2529 R(4) 4 1 2500000 2529,2536,2540,2665,2672,2676 EXCH01 Subr 1809 EXCH_BUF_REAL Module 1810 1810 GLB_TABLE Common 2435 336 SAVE I Local 2501 I(4) 4 scalar 2501,2503,2508,2510,2527,2529,2534 ,2536,2554,2556,2561,2563,2579,258 1,2586,2588,2637,2639,2644,2646,26 63,2665,2670,2672,2690,2692,2697,2 699,2715,2717,2722,2724 IBEG Local 2497 I(4) 4 scalar 2497,2501,2508,2523,2527,2534,2549 ,2554,2561,2574,2579,2586,2633,263 7,2644,2659,2663,2670,2685,2690,26 97,2710,2715,2722 IBUFEXCH Param 2479 I(4) 4 scalar 2479,2488,2615,2624 IC Local 2499 I(4) 4 scalar 2499,2502,2503,2509,2510,2514,2525 ,2528,2529,2535,2536,2540,2551,255 5,2556,2562,2563,2576,2580,2581,25 87,2588,2635,2638,2639,2645,2646,2 650,2661,2664,2665,2671,2672,2676, 2687,2691,2692,2698,2699,2712,2716 ,2717,2723,2724 IDIM1 Param 1831 I(4) 4 scalar 2459,2460 IDIM2 Param 1831 I(4) 4 scalar 2459,2460 IEND Local 2498 I(4) 4 scalar 2498,2501,2508,2524,2527,2534,2550 ,2554,2561,2575,2579,2586,2634,263 7,2644,2660,2663,2670,2686,2690,26 97,2711,2715,2722 IERR Local 2552 I(4) 4 scalar 2552,2577,2595,2599,2688,2713,2731 ,2735 IGSTL Param 1826 I(4) 4 scalar 1831 IGSTR Param 1826 I(4) 4 scalar 1831 IHALO Dummy 1809 I(4) 4 scalar ARG,INOUT 2497,2498,2523,2524,2549,2550,2574 Page 37 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,2575,2633,2660,2685,2711 IHANDLE Local 2458 I(4) 4 1 4 2480,2489,2515,2541,2552,2577,2595 ,2599,2616,2625,2651,2677,2688,271 3,2731,2735 IM Param 1814 I(4) 4 scalar 1828,1831,2441,2442,2443,2444,2445 ,2449,2450,2455 INPES Param 1823 I(4) 4 scalar 1828,1831,2425,2426,2427,2436,2437 IRECV Local 2480 I(4) 4 scalar 2480,2489,2616,2625 ISEND Local 2515 I(4) 4 scalar 2515,2541,2651,2677 ISTAT Local 2457 I(4) 4 1 5 2552,2577,2595,2599,2688,2713,2731 ,2735 ITAIL Param 1828 I(4) 4 scalar ITYPE Local 2464 I(4) 4 scalar 2464,2479,2488,2514,2540,2615,2624 ,2650,2676 J Local 2500 I(4) 4 scalar 2500,2503,2507,2510,2526,2529,2533 ,2536,2553,2556,2560,2563,2578,258 1,2585,2588,2636,2639,2643,2646,26 62,2665,2669,2672,2689,2692,2696,2 699,2714,2717,2721,2724 JDIM1 Param 1832 I(4) 4 scalar 2459,2460 JDIM2 Param 1832 I(4) 4 scalar 2459,2460 JGSTL Param 1827 I(4) 4 scalar 1832 JGSTR Param 1827 I(4) 4 scalar 1832 JHALO Dummy 1809 I(4) 4 scalar ARG,INOUT 2500,2507,2526,2533,2553,2560,2578 ,2585,2636,2643,2662,2669,2689,269 6,2714,2721 JM Param 1814 I(4) 4 scalar 1829,1832,2441,2442,2443,2444,2445 ,2449,2450,2455 JNPES Param 1823 I(4) 4 scalar 1829,1832,2425,2426,2427,2436,2437 JTAIL Param 1829 I(4) 4 scalar K Local 2506 I(4) 4 scalar 2506,2510,2532,2536,2559,2563,2584 ,2588,2642,2646,2668,2672,2695,269 9,2720,2724 LL1 Dummy 1809 I(4) 4 scalar ARG,INOUT LL2 Dummy 1809 I(4) 4 scalar ARG,INOUT 2506,2532,2559,2584,2642,2668,2695 ,2720 LM Param 1814 I(4) 4 scalar 2450 LSM Param 1814 I(4) 4 scalar MAPPINGS Common 2454 5024 SAVE MPIFCMB5 Common 2385 4 SAVE MPIFCMB9 Common 2386 4 SAVE MPIPRIV1 Common 2390 28 SAVE MPIPRIV2 Common 2392 24 SAVE MPIPRIVC Common 2395 2 SAVE MPI_2DOUBLE_PRECISION Param 2131 I(4) 4 scalar MPI_2INT Param 2215 I(4) 4 scalar MPI_2INTEGER Param 2129 I(4) 4 scalar MPI_2REAL Param 2133 I(4) 4 scalar MPI_ADDRESS_KIND Param 2167 I(4) 4 scalar MPI_AINT Param 2245 I(4) 4 scalar MPI_ANY_SOURCE Param 2097 I(4) 4 scalar MPI_ANY_TAG Param 2099 I(4) 4 scalar MPI_APPNUM Param 2061 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 2367 L(4) 4 scalar Page 38 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BAND Param 2005 I(4) 4 scalar MPI_BOR Param 2009 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 2093 I(4) 4 scalar MPI_BXOR Param 2013 I(4) 4 scalar MPI_BYTE Param 2137 I(4) 4 scalar MPI_CART Param 2105 I(4) 4 scalar MPI_CHAR Param 2175 I(4) 4 scalar MPI_CHARACTER Param 2135 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 2263 I(4) 4 scalar MPI_COMBINER_DARRAY Param 2285 I(4) 4 scalar MPI_COMBINER_DUP Param 2261 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 2289 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 2291 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 2287 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 2275 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 2295 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 2273 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 2269 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 2267 I(4) 4 scalar MPI_COMBINER_INDEXED Param 2271 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 2277 I(4) 4 scalar MPI_COMBINER_NAMED Param 2259 I(4) 4 scalar MPI_COMBINER_RESIZED Param 2293 I(4) 4 scalar MPI_COMBINER_STRUCT Param 2281 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 2279 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 2283 I(4) 4 scalar MPI_COMBINER_VECTOR Param 2265 I(4) 4 scalar MPI_COMM_DUP_FN Subr 2374 scalar MPI_COMM_NULL Param 2029 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 2375 scalar MPI_COMM_NULL_DELETE_FN Subr 2374 scalar MPI_COMM_SELF Param 2025 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 2313 I(4) 4 scalar MPI_COMM_WORLD Param 2023 I(4) 4 scalar MPI_COMPLEX Param 2117 I(4) 4 scalar MPI_COMPLEX16 Param 2163 I(4) 4 scalar MPI_COMPLEX32 Param 2165 I(4) 4 scalar MPI_COMPLEX8 Param 2161 I(4) 4 scalar MPI_CONGRUENT Param 1977 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 2380 scalar MPI_COUNT Param 2249 I(4) 4 scalar MPI_COUNT_KIND Param 2171 I(4) 4 scalar MPI_CXX_BOOL Param 2251 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 2255 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 2253 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 2257 I(4) 4 scalar MPI_C_BOOL Param 2235 I(4) 4 scalar MPI_C_COMPLEX Param 2239 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 2241 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 2237 I(4) 4 scalar Page 39 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_C_LONG_DOUBLE_COMPLEX Param 2243 I(4) 4 scalar MPI_DATATYPE_NULL Param 2039 I(4) 4 scalar 2154,2252,2254,2256,2258 MPI_DISPLACEMENT_CURRENT Param 2363 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 2355 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 2357 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 2361 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 2359 I(4) 4 scalar MPI_DIST_GRAPH Param 2107 I(4) 4 scalar MPI_DOUBLE Param 2197 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 2119 I(4) 4 scalar MPI_DOUBLE_INT Param 2209 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 2125 I(4) 4 scalar MPI_DUP_FN Subr 2371 scalar MPI_ERRHANDLER_NULL Param 2043 I(4) 4 scalar MPI_ERROR Param 1844 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 1971 I(4) 4 scalar MPI_ERRORS_RETURN Param 1973 I(4) 4 scalar MPI_ERR_ACCESS Param 1963 I(4) 4 scalar MPI_ERR_AMODE Param 1949 I(4) 4 scalar MPI_ERR_ARG Param 1919 I(4) 4 scalar MPI_ERR_ASSERT Param 1925 I(4) 4 scalar MPI_ERR_BAD_FILE Param 1887 I(4) 4 scalar MPI_ERR_BASE Param 1917 I(4) 4 scalar MPI_ERR_BUFFER Param 1859 I(4) 4 scalar MPI_ERR_COMM Param 1937 I(4) 4 scalar MPI_ERR_CONVERSION Param 1953 I(4) 4 scalar MPI_ERR_COUNT Param 1863 I(4) 4 scalar MPI_ERR_DIMS Param 1901 I(4) 4 scalar MPI_ERR_DISP Param 1885 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 1867 I(4) 4 scalar MPI_ERR_FILE Param 1897 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 1879 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 1921 I(4) 4 scalar MPI_ERR_GROUP Param 1883 I(4) 4 scalar MPI_ERR_INFO Param 1911 I(4) 4 scalar MPI_ERR_INFO_KEY Param 1915 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 1895 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 1881 I(4) 4 scalar MPI_ERR_INTERN Param 1913 I(4) 4 scalar MPI_ERR_IN_STATUS Param 1899 I(4) 4 scalar MPI_ERR_IO Param 1959 I(4) 4 scalar MPI_ERR_KEYVAL Param 1905 I(4) 4 scalar MPI_ERR_LASTCODE Param 1927 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 1909 I(4) 4 scalar MPI_ERR_NAME Param 1903 I(4) 4 scalar MPI_ERR_NOT_SAME Param 1931 I(4) 4 scalar MPI_ERR_NO_MEM Param 1923 I(4) 4 scalar MPI_ERR_NO_SPACE Param 1855 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 1939 I(4) 4 scalar MPI_ERR_OP Param 1957 I(4) 4 scalar MPI_ERR_OTHER Param 1871 I(4) 4 scalar MPI_ERR_PENDING Param 1861 I(4) 4 scalar MPI_ERR_PORT Param 1943 I(4) 4 scalar MPI_ERR_QUOTA Param 1947 I(4) 4 scalar MPI_ERR_RANK Param 1869 I(4) 4 scalar Page 40 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_READ_ONLY Param 1907 I(4) 4 scalar MPI_ERR_REQUEST Param 1951 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 1873 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 1877 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 1893 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 1955 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 1945 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 1857 I(4) 4 scalar MPI_ERR_ROOT Param 1889 I(4) 4 scalar MPI_ERR_SERVICE Param 1865 I(4) 4 scalar MPI_ERR_SIZE Param 1875 I(4) 4 scalar MPI_ERR_SPAWN Param 1935 I(4) 4 scalar MPI_ERR_TAG Param 1965 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 1969 I(4) 4 scalar MPI_ERR_TRUNCATE Param 1929 I(4) 4 scalar MPI_ERR_TYPE Param 1933 I(4) 4 scalar MPI_ERR_UNKNOWN Param 1967 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 1891 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 1941 I(4) 4 scalar MPI_ERR_WIN Param 1961 I(4) 4 scalar MPI_FILE_NULL Param 2033 I(4) 4 scalar MPI_FLOAT Param 2195 I(4) 4 scalar MPI_FLOAT_INT Param 2207 I(4) 4 scalar MPI_GRAPH Param 2103 I(4) 4 scalar MPI_GROUP_EMPTY Param 2027 I(4) 4 scalar MPI_GROUP_NULL Param 2035 I(4) 4 scalar MPI_HOST Param 2051 I(4) 4 scalar MPI_IDENT Param 1975 I(4) 4 scalar MPI_INFO_ENV Param 2047 I(4) 4 scalar MPI_INFO_NULL Param 2045 I(4) 4 scalar MPI_INT Param 2187 I(4) 4 scalar MPI_INT16_T Param 2221 I(4) 4 scalar MPI_INT32_T Param 2223 I(4) 4 scalar MPI_INT64_T Param 2225 I(4) 4 scalar MPI_INT8_T Param 2219 I(4) 4 scalar MPI_INTEGER Param 2127 I(4) 4 scalar MPI_INTEGER1 Param 2145 I(4) 4 scalar MPI_INTEGER16 Param 2153 I(4) 4 scalar MPI_INTEGER2 Param 2147 I(4) 4 scalar MPI_INTEGER4 Param 2149 I(4) 4 scalar MPI_INTEGER8 Param 2151 I(4) 4 scalar MPI_INTEGER_KIND Param 2173 I(4) 4 scalar MPI_IO Param 2053 I(4) 4 scalar MPI_IRECV Subr 2479 2479,2488,2615,2624 MPI_ISEND Subr 2514 2514,2540,2650,2676 MPI_KEYVAL_INVALID Param 2091 I(4) 4 scalar MPI_LAND Param 2003 I(4) 4 scalar MPI_LASTUSEDCODE Param 2059 I(4) 4 scalar MPI_LB Param 2141 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 2113 I(4) 4 scalar MPI_LOCK_SHARED Param 2115 I(4) 4 scalar MPI_LOGICAL Param 2121 I(4) 4 scalar MPI_LONG Param 2191 I(4) 4 scalar Page 41 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_DOUBLE Param 2199 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 2217 I(4) 4 scalar MPI_LONG_INT Param 2211 I(4) 4 scalar MPI_LONG_LONG Param 2205 I(4) 4 scalar MPI_LONG_LONG_INT Param 2201 I(4) 4 scalar MPI_LOR Param 2007 I(4) 4 scalar MPI_LXOR Param 2011 I(4) 4 scalar MPI_MAX Param 1995 I(4) 4 scalar MPI_MAXLOC Param 2017 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 2085 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 2073 I(4) 4 scalar MPI_MAX_INFO_KEY Param 2079 I(4) 4 scalar MPI_MAX_INFO_VAL Param 2081 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 2087 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 2077 I(4) 4 scalar MPI_MAX_PORT_NAME Param 2075 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 2083 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 2317 I(4) 4 scalar MPI_MESSAGE_NULL Param 2315 I(4) 4 scalar MPI_MIN Param 1997 I(4) 4 scalar MPI_MINLOC Param 2015 I(4) 4 scalar MPI_MODE_APPEND Param 2341 I(4) 4 scalar MPI_MODE_CREATE Param 2337 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 2333 I(4) 4 scalar MPI_MODE_EXCL Param 2339 I(4) 4 scalar MPI_MODE_NOCHECK Param 2303 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 2309 I(4) 4 scalar MPI_MODE_NOPUT Param 2307 I(4) 4 scalar MPI_MODE_NOSTORE Param 2305 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 2311 I(4) 4 scalar MPI_MODE_RDONLY Param 2327 I(4) 4 scalar MPI_MODE_RDWR Param 2329 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 2343 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 2335 I(4) 4 scalar MPI_MODE_WRONLY Param 2331 I(4) 4 scalar MPI_NO_OP Param 2021 I(4) 4 scalar MPI_NULL_COPY_FN Subr 2371 scalar MPI_NULL_DELETE_FN Subr 2371 scalar MPI_OFFSET Param 2247 I(4) 4 scalar MPI_OFFSET_KIND Param 2169 I(4) 4 scalar MPI_OP_NULL Param 2037 I(4) 4 scalar MPI_ORDER_C Param 2351 I(4) 4 scalar MPI_ORDER_FORTRAN Param 2353 I(4) 4 scalar MPI_PACKED Param 2143 I(4) 4 scalar MPI_PROC_NULL Param 2095 I(4) 4 scalar MPI_PROD Param 2001 I(4) 4 scalar MPI_REAL Param 2123 I(4) 4 scalar 2464 MPI_REAL16 Param 2159 I(4) 4 scalar MPI_REAL4 Param 2155 I(4) 4 scalar MPI_REAL8 Param 2157 I(4) 4 scalar MPI_REPLACE Param 2019 I(4) 4 scalar MPI_REQUEST_NULL Param 2041 I(4) 4 scalar MPI_ROOT Param 2101 I(4) 4 scalar MPI_SEEK_CUR Param 2347 I(4) 4 scalar Page 42 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SEEK_END Param 2349 I(4) 4 scalar MPI_SEEK_SET Param 2345 I(4) 4 scalar MPI_SHORT Param 2183 I(4) 4 scalar MPI_SHORT_INT Param 2213 I(4) 4 scalar MPI_SIGNED_CHAR Param 2177 I(4) 4 scalar MPI_SIMILAR Param 1979 I(4) 4 scalar MPI_SOURCE Param 1844 I(4) 4 scalar MPI_STATUS_SIZE Param 1846 I(4) 4 scalar 1848,1849,2457 MPI_SUBARRAYS_SUPPORTED Param 2365 L(4) 4 scalar MPI_SUBVERSION Param 2111 I(4) 4 scalar MPI_SUCCESS Param 1853 I(4) 4 scalar MPI_SUM Param 1999 I(4) 4 scalar MPI_TAG Param 1844 I(4) 4 scalar MPI_TAG_UB Param 2049 I(4) 4 scalar MPI_THREAD_FUNNELED Param 2321 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 2325 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 2323 I(4) 4 scalar MPI_THREAD_SINGLE Param 2319 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 2301 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 2299 I(4) 4 scalar MPI_TYPECLASS_REAL Param 2297 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 2378 scalar MPI_TYPE_NULL_COPY_FN Subr 2379 scalar MPI_TYPE_NULL_DELETE_FN Subr 2378 scalar MPI_UB Param 2139 I(4) 4 scalar MPI_UINT16_T Param 2229 I(4) 4 scalar MPI_UINT32_T Param 2231 I(4) 4 scalar MPI_UINT64_T Param 2233 I(4) 4 scalar MPI_UINT8_T Param 2227 I(4) 4 scalar MPI_UNDEFINED Param 2089 I(4) 4 scalar MPI_UNEQUAL Param 1981 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 2057 I(4) 4 scalar MPI_UNSIGNED Param 2189 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 2179 I(4) 4 scalar MPI_UNSIGNED_LONG Param 2193 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 2203 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 2185 I(4) 4 scalar MPI_VERSION Param 2109 I(4) 4 scalar MPI_WAIT Subr 2552 2552,2577,2595,2599,2688,2713,2731 ,2735 MPI_WCHAR Param 2181 I(4) 4 scalar MPI_WIN_BASE Param 2063 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 2069 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 2067 I(4) 4 scalar MPI_WIN_DUP_FN Subr 2376 scalar MPI_WIN_FLAVOR_ALLOCATE Param 1985 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 1983 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 1987 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 1989 I(4) 4 scalar MPI_WIN_MODEL Param 2071 I(4) 4 scalar MPI_WIN_NULL Param 2031 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 2377 scalar MPI_WIN_NULL_DELETE_FN Subr 2376 scalar MPI_WIN_SEPARATE Param 1991 I(4) 4 scalar MPI_WIN_SIZE Param 2065 I(4) 4 scalar Page 43 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_UNIFIED Param 1993 I(4) 4 scalar MPI_WTICK Func 2372 R(8) 8 scalar MPI_WTIME Func 2372 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 2055 I(4) 4 scalar MPPCOM Common 2399 1724 SAVE PMPI_WTICK Func 2373 R(8) 8 scalar PMPI_WTIME Func 2373 R(8) 8 scalar TEMPCOM Common 2440 6603768 SAVE TOPO Common 2448 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 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 Page 44 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM 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 2480,2489,2515,2541,2616,2625,2651 ,2677 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 2498,2524,2550,2575,2633,2634,2710 ,2711 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 2497,2523,2549,2574,2659,2660,2685 ,2686 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 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 2503,2510,2581,2588,2636,2643,2662 ,2669,2689,2696,2714,2721 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 Page 45 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 2529,2536,2556,2563,2636,2643,2662 ,2669,2689,2696,2714,2721 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 2514,2540,2650,2676 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 2478,2479,2487,2488,2496,2514,2522 ,2540,2548,2573,2594,2598,2614,261 5,2623,2624,2632,2650,2658,2676,26 84,2709,2730,2734 MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM Page 46 Source Listing EXCH01 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 47 Source Listing EXCH01 2025-03-12 18:22 module_EXCHM.F 2740 2741 SUBROUTINE EXCH00(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 2742 USE EXCH_BUF_REAL 2743 INCLUDE "parmeta" 2767 INCLUDE "mpif.h" 3329 INCLUDE "mpp.h" 3330 C----------------------------------------------------------------------- 3389 INTEGER ISTAT(MPI_STATUS_SIZE) 3390 INTEGER IHANDLE(4) 3391 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 3392 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2) 3393 C 3394 C*********************************************************************** 3395 C 3396 ITYPE=MPI_REAL 3397 C 3398 C-------------------------------------------------------------------- 3399 C-------------------------------------------------------------------- 3400 C*** 3401 C*** NORTH/SOUTH 3402 C*** 3403 C-------------------------------------------------------------------- 3404 C-------------------------------------------------------------------- 3405 C 3406 C-------------------------------------------------------------------- 3407 C RECEIVE FROM NORTH 3408 C-------------------------------------------------------------------- 3409 C 3410 IF(MY_NEB(1).GE.0)THEN 3411 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 3412 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 3413 ENDIF 3414 C 3415 C-------------------------------------------------------------------- 3416 C RECEIVE FROM SOUTH 3417 C-------------------------------------------------------------------- 3418 C 3419 IF(MY_NEB(3).GE.0)THEN 3420 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 3421 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 3422 ENDIF 3423 C 3424 C-------------------------------------------------------------------- 3425 C SEND TO NORTH 3426 C-------------------------------------------------------------------- 3427 C 3428 IF(MY_NEB(1).GE.0)THEN 3429 IBEG=MYIS-IHALO 3430 IEND=MYIE+IHALO 3431 IC = 0 3432 DO J=0,JHALO-1 3433 DO I=IBEG,IEND 3434 IC = IC + 1 3435 BUF2(IC)=ARR1(I,MYJE-J) 3436 ENDDO 3437 ENDDO 3438 DO J=0,JHALO-1 Page 48 Source Listing EXCH00 2025-03-12 18:22 module_EXCHM.F 3439 DO I=IBEG,IEND 3440 IC = IC + 1 3441 BUF2(IC)=ARR2(I,MYJE-J) 3442 ENDDO 3443 ENDDO 3444 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 3445 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 3446 ENDIF 3447 C 3448 C-------------------------------------------------------------------- 3449 C SEND TO SOUTH 3450 C-------------------------------------------------------------------- 3451 C 3452 IF(MY_NEB(3).GE.0)THEN 3453 IBEG=MYIS-IHALO 3454 IEND=MYIE+IHALO 3455 IC = 0 3456 DO J=0,JHALO-1 3457 DO I=IBEG,IEND 3458 IC = IC + 1 3459 BUF3(IC)=ARR1(I,MYJS+J) 3460 ENDDO 3461 ENDDO 3462 DO J=0,JHALO-1 3463 DO I=IBEG,IEND 3464 IC = IC + 1 3465 BUF3(IC)=ARR2(I,MYJS+J) 3466 ENDDO 3467 ENDDO 3468 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 3469 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 3470 ENDIF 3471 C 3472 C-------------------------------------------------------------------- 3473 C STORE RESULTS FROM SOUTH 3474 C-------------------------------------------------------------------- 3475 C 3476 IF(MY_NEB(3).GE.0)THEN 3477 IBEG=MYIS-IHALO 3478 IEND=MYIE+IHALO 3479 IC = 0 3480 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 3481 DO J=0,JHALO-1 3482 DO I=IBEG,IEND 3483 IC = IC + 1 3484 ARR1(I,MYJS-J-1)=BUF1(IC) 3485 ENDDO 3486 ENDDO 3487 DO J=0,JHALO-1 3488 DO I=IBEG,IEND 3489 IC = IC + 1 3490 ARR2(I,MYJS-J-1)=BUF1(IC) 3491 ENDDO 3492 ENDDO 3493 ENDIF 3494 C 3495 C-------------------------------------------------------------------- Page 49 Source Listing EXCH00 2025-03-12 18:22 module_EXCHM.F 3496 C STORE FROM NORTH 3497 C-------------------------------------------------------------------- 3498 C 3499 IF(MY_NEB(1).GE.0)THEN 3500 IBEG=MYIS-IHALO 3501 IEND=MYIE+IHALO 3502 IC = 0 3503 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 3504 DO J=0,JHALO-1 3505 DO I=IBEG,IEND 3506 IC = IC + 1 3507 ARR1(I,MYJE+J+1)=BUF0(IC) 3508 ENDDO 3509 ENDDO 3510 DO J=0,JHALO-1 3511 DO I=IBEG,IEND 3512 IC = IC + 1 3513 ARR2(I,MYJE+J+1)=BUF0(IC) 3514 ENDDO 3515 ENDDO 3516 ENDIF 3517 C 3518 IF(MY_NEB(1).GE.0)THEN 3519 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 3520 ENDIF 3521 C 3522 IF(MY_NEB(3).GE.0)THEN 3523 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 3524 ENDIF 3525 C 3526 C-------------------------------------------------------------------- 3527 C-------------------------------------------------------------------- 3528 C*** 3529 C*** EAST/WEST 3530 C*** 3531 C-------------------------------------------------------------------- 3532 C-------------------------------------------------------------------- 3533 C 3534 C-------------------------------------------------------------------- 3535 C RECEIVE FROM WEST 3536 C-------------------------------------------------------------------- 3537 C 3538 IF(MY_NEB(4).GE.0)THEN 3539 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 3540 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 3541 ENDIF 3542 C 3543 C-------------------------------------------------------------------- 3544 C RECEIVE FROM EAST 3545 C-------------------------------------------------------------------- 3546 C 3547 IF(MY_NEB(2).GE.0)THEN 3548 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 3549 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 3550 ENDIF 3551 C 3552 C-------------------------------------------------------------------- Page 50 Source Listing EXCH00 2025-03-12 18:22 module_EXCHM.F 3553 C SEND TO EAST 3554 C-------------------------------------------------------------------- 3555 C 3556 IF(MY_NEB(2).GE.0)THEN 3557 IBEG=MYIE-IHALO+1 3558 IEND=MYIE 3559 IC = 0 3560 DO J=MYJS-JHALO,MYJE+JHALO 3561 DO I=IBEG,IEND 3562 IC = IC + 1 3563 BUF2(IC)=ARR1(I,J) 3564 ENDDO 3565 ENDDO 3566 DO J=MYJS-JHALO,MYJE+JHALO 3567 DO I=IBEG,IEND 3568 IC = IC + 1 3569 BUF2(IC)=ARR2(I,J) 3570 ENDDO 3571 ENDDO 3572 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 3573 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 3574 ENDIF 3575 C 3576 C-------------------------------------------------------------------- 3577 C SEND TO WEST 3578 C-------------------------------------------------------------------- 3579 C 3580 IF(MY_NEB(4).GE.0)THEN 3581 IBEG=MYIS 3582 IEND=MYIS+IHALO-1 3583 IC = 0 3584 DO J=MYJS-JHALO,MYJE+JHALO 3585 DO I=IBEG,IEND 3586 IC = IC + 1 3587 BUF3(IC)=ARR1(I,J) 3588 ENDDO 3589 ENDDO 3590 DO J=MYJS-JHALO,MYJE+JHALO 3591 DO I=IBEG,IEND 3592 IC = IC + 1 3593 BUF3(IC)=ARR2(I,J) 3594 ENDDO 3595 ENDDO 3596 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 3597 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 3598 ENDIF 3599 C 3600 C-------------------------------------------------------------------- 3601 C STORE FROM WEST 3602 C-------------------------------------------------------------------- 3603 C 3604 IF(MY_NEB(4).GE.0)THEN 3605 IBEG=MYIS-IHALO 3606 IEND=MYIS-1 3607 IC = 0 3608 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 3609 DO J=MYJS-JHALO,MYJE+JHALO Page 51 Source Listing EXCH00 2025-03-12 18:22 module_EXCHM.F 3610 DO I=IBEG,IEND 3611 IC = IC + 1 3612 ARR1(I,J)=BUF0(IC) 3613 ENDDO 3614 ENDDO 3615 DO J=MYJS-JHALO,MYJE+JHALO 3616 DO I=IBEG,IEND 3617 IC = IC + 1 3618 ARR2(I,J)=BUF0(IC) 3619 ENDDO 3620 ENDDO 3621 ENDIF 3622 C 3623 C-------------------------------------------------------------------- 3624 C STORE FROM EAST 3625 C-------------------------------------------------------------------- 3626 C 3627 IF(MY_NEB(2).GE.0)THEN 3628 IBEG=MYIE+1 3629 IEND=MYIE+IHALO 3630 IC = 0 3631 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 3632 DO J=MYJS-JHALO,MYJE+JHALO 3633 DO I=IBEG,IEND 3634 IC = IC + 1 3635 ARR1(I,J)=BUF1(IC) 3636 ENDDO 3637 ENDDO 3638 DO J=MYJS-JHALO,MYJE+JHALO 3639 DO I=IBEG,IEND 3640 IC = IC + 1 3641 ARR2(I,J)=BUF1(IC) 3642 ENDDO 3643 ENDDO 3644 ENDIF 3645 C 3646 IF(MY_NEB(4).GE.0)THEN 3647 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 3648 ENDIF 3649 C 3650 IF(MY_NEB(2).GE.0)THEN 3651 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 3652 ENDIF 3653 C 3654 C-------------------------------------------------------------------- 3655 END SUBROUTINE Page 52 Source Listing EXCH00 2025-03-12 18:22 Entry Points module_EXCHM.F ENTRY POINTS Name exchm_mp_exch00_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 2741 R(4) 4 2 6319 ARG,INOUT 3435,3459,3484,3507,3563,3587,3612 ,3635 ARR2 Dummy 2741 R(4) 4 2 6319 ARG,INOUT 3441,3465,3490,3513,3569,3593,3618 ,3641 BUF0 Local 3411 R(4) 4 1 2500000 3411,3507,3513,3539,3612,3618 BUF1 Local 3420 R(4) 4 1 2500000 3420,3484,3490,3548,3635,3641 BUF2 Local 3435 R(4) 4 1 2500000 3435,3441,3444,3563,3569,3572 BUF3 Local 3459 R(4) 4 1 2500000 3459,3465,3468,3587,3593,3596 EXCH00 Subr 2741 EXCH_BUF_REAL Module 2742 2742 GLB_TABLE Common 3367 336 SAVE I Local 3433 I(4) 4 scalar 3433,3435,3439,3441,3457,3459,3463 ,3465,3482,3484,3488,3490,3505,350 7,3511,3513,3561,3563,3567,3569,35 85,3587,3591,3593,3610,3612,3616,3 618,3633,3635,3639,3641 IBEG Local 3429 I(4) 4 scalar 3429,3433,3439,3453,3457,3463,3477 ,3482,3488,3500,3505,3511,3557,356 1,3567,3581,3585,3591,3605,3610,36 16,3628,3633,3639 IBUFEXCH Param 3411 I(4) 4 scalar 3411,3420,3539,3548 IC Local 3431 I(4) 4 scalar 3431,3434,3435,3440,3441,3444,3455 ,3458,3459,3464,3465,3468,3479,348 3,3484,3489,3490,3502,3506,3507,35 12,3513,3559,3562,3563,3568,3569,3 572,3583,3586,3587,3592,3593,3596, 3607,3611,3612,3617,3618,3630,3634 ,3635,3640,3641 IDIM1 Param 2763 I(4) 4 scalar 3391,3392 IDIM2 Param 2763 I(4) 4 scalar 3391,3392 IEND Local 3430 I(4) 4 scalar 3430,3433,3439,3454,3457,3463,3478 ,3482,3488,3501,3505,3511,3558,356 1,3567,3582,3585,3591,3606,3610,36 16,3629,3633,3639 IERR Local 3480 I(4) 4 scalar 3480,3503,3519,3523,3608,3631,3647 ,3651 IGSTL Param 2758 I(4) 4 scalar 2763 IGSTR Param 2758 I(4) 4 scalar 2763 IHALO Dummy 2741 I(4) 4 scalar ARG,INOUT 3429,3430,3453,3454,3477,3478,3500 ,3501,3557,3582,3605,3629 IHANDLE Local 3390 I(4) 4 1 4 3412,3421,3445,3469,3480,3503,3519 ,3523,3540,3549,3573,3597,3608,363 1,3647,3651 IM Param 2746 I(4) 4 scalar 2760,2763,3373,3374,3375,3376,3377 Page 53 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,3381,3382,3387 INPES Param 2755 I(4) 4 scalar 2760,2763,3357,3358,3359,3368,3369 IRECV Local 3412 I(4) 4 scalar 3412,3421,3540,3549 ISEND Local 3445 I(4) 4 scalar 3445,3469,3573,3597 ISTAT Local 3389 I(4) 4 1 5 3480,3503,3519,3523,3608,3631,3647 ,3651 ITAIL Param 2760 I(4) 4 scalar ITYPE Local 3396 I(4) 4 scalar 3396,3411,3420,3444,3468,3539,3548 ,3572,3596 J Local 3432 I(4) 4 scalar 3432,3435,3438,3441,3456,3459,3462 ,3465,3481,3484,3487,3490,3504,350 7,3510,3513,3560,3563,3566,3569,35 84,3587,3590,3593,3609,3612,3615,3 618,3632,3635,3638,3641 JDIM1 Param 2764 I(4) 4 scalar 3391,3392 JDIM2 Param 2764 I(4) 4 scalar 3391,3392 JGSTL Param 2759 I(4) 4 scalar 2764 JGSTR Param 2759 I(4) 4 scalar 2764 JHALO Dummy 2741 I(4) 4 scalar ARG,INOUT 3432,3438,3456,3462,3481,3487,3504 ,3510,3560,3566,3584,3590,3609,361 5,3632,3638 JM Param 2746 I(4) 4 scalar 2761,2764,3373,3374,3375,3376,3377 ,3381,3382,3387 JNPES Param 2755 I(4) 4 scalar 2761,2764,3357,3358,3359,3368,3369 JTAIL Param 2761 I(4) 4 scalar LL1 Dummy 2741 I(4) 4 scalar ARG,INOUT LL2 Dummy 2741 I(4) 4 scalar ARG,INOUT LM Param 2746 I(4) 4 scalar 3382 LSM Param 2746 I(4) 4 scalar MAPPINGS Common 3386 5024 SAVE MPIFCMB5 Common 3317 4 SAVE MPIFCMB9 Common 3318 4 SAVE MPIPRIV1 Common 3322 28 SAVE MPIPRIV2 Common 3324 24 SAVE MPIPRIVC Common 3327 2 SAVE MPI_2DOUBLE_PRECISION Param 3063 I(4) 4 scalar MPI_2INT Param 3147 I(4) 4 scalar MPI_2INTEGER Param 3061 I(4) 4 scalar MPI_2REAL Param 3065 I(4) 4 scalar MPI_ADDRESS_KIND Param 3099 I(4) 4 scalar MPI_AINT Param 3177 I(4) 4 scalar MPI_ANY_SOURCE Param 3029 I(4) 4 scalar MPI_ANY_TAG Param 3031 I(4) 4 scalar MPI_APPNUM Param 2993 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 3299 L(4) 4 scalar MPI_BAND Param 2937 I(4) 4 scalar MPI_BOR Param 2941 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 3025 I(4) 4 scalar MPI_BXOR Param 2945 I(4) 4 scalar MPI_BYTE Param 3069 I(4) 4 scalar MPI_CART Param 3037 I(4) 4 scalar MPI_CHAR Param 3107 I(4) 4 scalar MPI_CHARACTER Param 3067 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 3195 I(4) 4 scalar Page 54 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_DARRAY Param 3217 I(4) 4 scalar MPI_COMBINER_DUP Param 3193 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 3221 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 3223 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 3219 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 3207 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 3227 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 3205 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 3201 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 3199 I(4) 4 scalar MPI_COMBINER_INDEXED Param 3203 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 3209 I(4) 4 scalar MPI_COMBINER_NAMED Param 3191 I(4) 4 scalar MPI_COMBINER_RESIZED Param 3225 I(4) 4 scalar MPI_COMBINER_STRUCT Param 3213 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 3211 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 3215 I(4) 4 scalar MPI_COMBINER_VECTOR Param 3197 I(4) 4 scalar MPI_COMM_DUP_FN Subr 3306 scalar MPI_COMM_NULL Param 2961 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 3307 scalar MPI_COMM_NULL_DELETE_FN Subr 3306 scalar MPI_COMM_SELF Param 2957 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 3245 I(4) 4 scalar MPI_COMM_WORLD Param 2955 I(4) 4 scalar MPI_COMPLEX Param 3049 I(4) 4 scalar MPI_COMPLEX16 Param 3095 I(4) 4 scalar MPI_COMPLEX32 Param 3097 I(4) 4 scalar MPI_COMPLEX8 Param 3093 I(4) 4 scalar MPI_CONGRUENT Param 2909 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 3312 scalar MPI_COUNT Param 3181 I(4) 4 scalar MPI_COUNT_KIND Param 3103 I(4) 4 scalar MPI_CXX_BOOL Param 3183 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 3187 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 3185 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 3189 I(4) 4 scalar MPI_C_BOOL Param 3167 I(4) 4 scalar MPI_C_COMPLEX Param 3171 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 3173 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 3169 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 3175 I(4) 4 scalar MPI_DATATYPE_NULL Param 2971 I(4) 4 scalar 3086,3184,3186,3188,3190 MPI_DISPLACEMENT_CURRENT Param 3295 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 3287 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 3289 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 3293 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 3291 I(4) 4 scalar MPI_DIST_GRAPH Param 3039 I(4) 4 scalar MPI_DOUBLE Param 3129 I(4) 4 scalar Page 55 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DOUBLE_COMPLEX Param 3051 I(4) 4 scalar MPI_DOUBLE_INT Param 3141 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 3057 I(4) 4 scalar MPI_DUP_FN Subr 3303 scalar MPI_ERRHANDLER_NULL Param 2975 I(4) 4 scalar MPI_ERROR Param 2776 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 2903 I(4) 4 scalar MPI_ERRORS_RETURN Param 2905 I(4) 4 scalar MPI_ERR_ACCESS Param 2895 I(4) 4 scalar MPI_ERR_AMODE Param 2881 I(4) 4 scalar MPI_ERR_ARG Param 2851 I(4) 4 scalar MPI_ERR_ASSERT Param 2857 I(4) 4 scalar MPI_ERR_BAD_FILE Param 2819 I(4) 4 scalar MPI_ERR_BASE Param 2849 I(4) 4 scalar MPI_ERR_BUFFER Param 2791 I(4) 4 scalar MPI_ERR_COMM Param 2869 I(4) 4 scalar MPI_ERR_CONVERSION Param 2885 I(4) 4 scalar MPI_ERR_COUNT Param 2795 I(4) 4 scalar MPI_ERR_DIMS Param 2833 I(4) 4 scalar MPI_ERR_DISP Param 2817 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 2799 I(4) 4 scalar MPI_ERR_FILE Param 2829 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 2811 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 2853 I(4) 4 scalar MPI_ERR_GROUP Param 2815 I(4) 4 scalar MPI_ERR_INFO Param 2843 I(4) 4 scalar MPI_ERR_INFO_KEY Param 2847 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 2827 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 2813 I(4) 4 scalar MPI_ERR_INTERN Param 2845 I(4) 4 scalar MPI_ERR_IN_STATUS Param 2831 I(4) 4 scalar MPI_ERR_IO Param 2891 I(4) 4 scalar MPI_ERR_KEYVAL Param 2837 I(4) 4 scalar MPI_ERR_LASTCODE Param 2859 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 2841 I(4) 4 scalar MPI_ERR_NAME Param 2835 I(4) 4 scalar MPI_ERR_NOT_SAME Param 2863 I(4) 4 scalar MPI_ERR_NO_MEM Param 2855 I(4) 4 scalar MPI_ERR_NO_SPACE Param 2787 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 2871 I(4) 4 scalar MPI_ERR_OP Param 2889 I(4) 4 scalar MPI_ERR_OTHER Param 2803 I(4) 4 scalar MPI_ERR_PENDING Param 2793 I(4) 4 scalar MPI_ERR_PORT Param 2875 I(4) 4 scalar MPI_ERR_QUOTA Param 2879 I(4) 4 scalar MPI_ERR_RANK Param 2801 I(4) 4 scalar MPI_ERR_READ_ONLY Param 2839 I(4) 4 scalar MPI_ERR_REQUEST Param 2883 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 2805 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 2809 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 2825 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 2887 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 2877 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 2789 I(4) 4 scalar MPI_ERR_ROOT Param 2821 I(4) 4 scalar Page 56 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_SERVICE Param 2797 I(4) 4 scalar MPI_ERR_SIZE Param 2807 I(4) 4 scalar MPI_ERR_SPAWN Param 2867 I(4) 4 scalar MPI_ERR_TAG Param 2897 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 2901 I(4) 4 scalar MPI_ERR_TRUNCATE Param 2861 I(4) 4 scalar MPI_ERR_TYPE Param 2865 I(4) 4 scalar MPI_ERR_UNKNOWN Param 2899 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 2823 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 2873 I(4) 4 scalar MPI_ERR_WIN Param 2893 I(4) 4 scalar MPI_FILE_NULL Param 2965 I(4) 4 scalar MPI_FLOAT Param 3127 I(4) 4 scalar MPI_FLOAT_INT Param 3139 I(4) 4 scalar MPI_GRAPH Param 3035 I(4) 4 scalar MPI_GROUP_EMPTY Param 2959 I(4) 4 scalar MPI_GROUP_NULL Param 2967 I(4) 4 scalar MPI_HOST Param 2983 I(4) 4 scalar MPI_IDENT Param 2907 I(4) 4 scalar MPI_INFO_ENV Param 2979 I(4) 4 scalar MPI_INFO_NULL Param 2977 I(4) 4 scalar MPI_INT Param 3119 I(4) 4 scalar MPI_INT16_T Param 3153 I(4) 4 scalar MPI_INT32_T Param 3155 I(4) 4 scalar MPI_INT64_T Param 3157 I(4) 4 scalar MPI_INT8_T Param 3151 I(4) 4 scalar MPI_INTEGER Param 3059 I(4) 4 scalar MPI_INTEGER1 Param 3077 I(4) 4 scalar MPI_INTEGER16 Param 3085 I(4) 4 scalar MPI_INTEGER2 Param 3079 I(4) 4 scalar MPI_INTEGER4 Param 3081 I(4) 4 scalar MPI_INTEGER8 Param 3083 I(4) 4 scalar MPI_INTEGER_KIND Param 3105 I(4) 4 scalar MPI_IO Param 2985 I(4) 4 scalar MPI_IRECV Subr 3411 3411,3420,3539,3548 MPI_ISEND Subr 3444 3444,3468,3572,3596 MPI_KEYVAL_INVALID Param 3023 I(4) 4 scalar MPI_LAND Param 2935 I(4) 4 scalar MPI_LASTUSEDCODE Param 2991 I(4) 4 scalar MPI_LB Param 3073 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 3045 I(4) 4 scalar MPI_LOCK_SHARED Param 3047 I(4) 4 scalar MPI_LOGICAL Param 3053 I(4) 4 scalar MPI_LONG Param 3123 I(4) 4 scalar MPI_LONG_DOUBLE Param 3131 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 3149 I(4) 4 scalar MPI_LONG_INT Param 3143 I(4) 4 scalar MPI_LONG_LONG Param 3137 I(4) 4 scalar MPI_LONG_LONG_INT Param 3133 I(4) 4 scalar MPI_LOR Param 2939 I(4) 4 scalar MPI_LXOR Param 2943 I(4) 4 scalar MPI_MAX Param 2927 I(4) 4 scalar MPI_MAXLOC Param 2949 I(4) 4 scalar Page 57 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MAX_DATAREP_STRING Param 3017 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 3005 I(4) 4 scalar MPI_MAX_INFO_KEY Param 3011 I(4) 4 scalar MPI_MAX_INFO_VAL Param 3013 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 3019 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 3009 I(4) 4 scalar MPI_MAX_PORT_NAME Param 3007 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 3015 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 3249 I(4) 4 scalar MPI_MESSAGE_NULL Param 3247 I(4) 4 scalar MPI_MIN Param 2929 I(4) 4 scalar MPI_MINLOC Param 2947 I(4) 4 scalar MPI_MODE_APPEND Param 3273 I(4) 4 scalar MPI_MODE_CREATE Param 3269 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 3265 I(4) 4 scalar MPI_MODE_EXCL Param 3271 I(4) 4 scalar MPI_MODE_NOCHECK Param 3235 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 3241 I(4) 4 scalar MPI_MODE_NOPUT Param 3239 I(4) 4 scalar MPI_MODE_NOSTORE Param 3237 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 3243 I(4) 4 scalar MPI_MODE_RDONLY Param 3259 I(4) 4 scalar MPI_MODE_RDWR Param 3261 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 3275 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 3267 I(4) 4 scalar MPI_MODE_WRONLY Param 3263 I(4) 4 scalar MPI_NO_OP Param 2953 I(4) 4 scalar MPI_NULL_COPY_FN Subr 3303 scalar MPI_NULL_DELETE_FN Subr 3303 scalar MPI_OFFSET Param 3179 I(4) 4 scalar MPI_OFFSET_KIND Param 3101 I(4) 4 scalar MPI_OP_NULL Param 2969 I(4) 4 scalar MPI_ORDER_C Param 3283 I(4) 4 scalar MPI_ORDER_FORTRAN Param 3285 I(4) 4 scalar MPI_PACKED Param 3075 I(4) 4 scalar MPI_PROC_NULL Param 3027 I(4) 4 scalar MPI_PROD Param 2933 I(4) 4 scalar MPI_REAL Param 3055 I(4) 4 scalar 3396 MPI_REAL16 Param 3091 I(4) 4 scalar MPI_REAL4 Param 3087 I(4) 4 scalar MPI_REAL8 Param 3089 I(4) 4 scalar MPI_REPLACE Param 2951 I(4) 4 scalar MPI_REQUEST_NULL Param 2973 I(4) 4 scalar MPI_ROOT Param 3033 I(4) 4 scalar MPI_SEEK_CUR Param 3279 I(4) 4 scalar MPI_SEEK_END Param 3281 I(4) 4 scalar MPI_SEEK_SET Param 3277 I(4) 4 scalar MPI_SHORT Param 3115 I(4) 4 scalar MPI_SHORT_INT Param 3145 I(4) 4 scalar MPI_SIGNED_CHAR Param 3109 I(4) 4 scalar MPI_SIMILAR Param 2911 I(4) 4 scalar MPI_SOURCE Param 2776 I(4) 4 scalar MPI_STATUS_SIZE Param 2778 I(4) 4 scalar 2780,2781,3389 MPI_SUBARRAYS_SUPPORTED Param 3297 L(4) 4 scalar Page 58 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SUBVERSION Param 3043 I(4) 4 scalar MPI_SUCCESS Param 2785 I(4) 4 scalar MPI_SUM Param 2931 I(4) 4 scalar MPI_TAG Param 2776 I(4) 4 scalar MPI_TAG_UB Param 2981 I(4) 4 scalar MPI_THREAD_FUNNELED Param 3253 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 3257 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 3255 I(4) 4 scalar MPI_THREAD_SINGLE Param 3251 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 3233 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 3231 I(4) 4 scalar MPI_TYPECLASS_REAL Param 3229 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 3310 scalar MPI_TYPE_NULL_COPY_FN Subr 3311 scalar MPI_TYPE_NULL_DELETE_FN Subr 3310 scalar MPI_UB Param 3071 I(4) 4 scalar MPI_UINT16_T Param 3161 I(4) 4 scalar MPI_UINT32_T Param 3163 I(4) 4 scalar MPI_UINT64_T Param 3165 I(4) 4 scalar MPI_UINT8_T Param 3159 I(4) 4 scalar MPI_UNDEFINED Param 3021 I(4) 4 scalar MPI_UNEQUAL Param 2913 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 2989 I(4) 4 scalar MPI_UNSIGNED Param 3121 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 3111 I(4) 4 scalar MPI_UNSIGNED_LONG Param 3125 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 3135 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 3117 I(4) 4 scalar MPI_VERSION Param 3041 I(4) 4 scalar MPI_WAIT Subr 3480 3480,3503,3519,3523,3608,3631,3647 ,3651 MPI_WCHAR Param 3113 I(4) 4 scalar MPI_WIN_BASE Param 2995 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 3001 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 2999 I(4) 4 scalar MPI_WIN_DUP_FN Subr 3308 scalar MPI_WIN_FLAVOR_ALLOCATE Param 2917 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 2915 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 2919 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 2921 I(4) 4 scalar MPI_WIN_MODEL Param 3003 I(4) 4 scalar MPI_WIN_NULL Param 2963 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 3309 scalar MPI_WIN_NULL_DELETE_FN Subr 3308 scalar MPI_WIN_SEPARATE Param 2923 I(4) 4 scalar MPI_WIN_SIZE Param 2997 I(4) 4 scalar MPI_WIN_UNIFIED Param 2925 I(4) 4 scalar MPI_WTICK Func 3304 R(8) 8 scalar MPI_WTIME Func 3304 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 2987 I(4) 4 scalar MPPCOM Common 3331 1724 SAVE PMPI_WTICK Func 3305 R(8) 8 scalar PMPI_WTIME Func 3305 R(8) 8 scalar TEMPCOM Common 3372 6603768 SAVE TOPO Common 3380 17478548 SAVE Page 59 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F 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 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 3412,3421,3445,3469,3540,3549,3573 ,3597 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 Page 60 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 3430,3454,3478,3501,3557,3558,3628 ,3629 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 3429,3453,3477,3500,3581,3582,3605 ,3606 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 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 3435,3441,3507,3513,3560,3566,3584 ,3590,3609,3615,3632,3638 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 Page 61 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 3459,3465,3484,3490,3560,3566,3584 ,3590,3609,3615,3632,3638 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 3444,3468,3572,3596 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 3410,3411,3419,3420,3428,3444,3452 ,3468,3476,3499,3518,3522,3538,353 9,3547,3548,3556,3572,3580,3596,36 04,3627,3646,3650 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 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 Page 62 Source Listing EXCH00 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 63 Source Listing EXCH00 2025-03-12 18:22 module_EXCHM.F 3656 3657 SUBROUTINE EXCH11(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 3658 USE EXCH_BUF_REAL 3659 INCLUDE "parmeta" 3683 INCLUDE "mpif.h" 4245 INCLUDE "mpp.h" 4246 C----------------------------------------------------------------------- 4305 INTEGER ISTAT(MPI_STATUS_SIZE) 4306 INTEGER IHANDLE(4) 4307 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 4308 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 4309 C 4310 C*********************************************************************** 4311 C 4312 ITYPE=MPI_REAL 4313 C 4314 C-------------------------------------------------------------------- 4315 C-------------------------------------------------------------------- 4316 C*** 4317 C*** NORTH/SOUTH 4318 C*** 4319 C-------------------------------------------------------------------- 4320 C-------------------------------------------------------------------- 4321 C 4322 C-------------------------------------------------------------------- 4323 C RECEIVE FROM NORTH 4324 C-------------------------------------------------------------------- 4325 C 4326 IF(MY_NEB(1).GE.0)THEN 4327 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 4328 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 4329 ENDIF 4330 C 4331 C-------------------------------------------------------------------- 4332 C RECEIVE FROM SOUTH 4333 C-------------------------------------------------------------------- 4334 C 4335 IF(MY_NEB(3).GE.0)THEN 4336 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 4337 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 4338 ENDIF 4339 C 4340 C-------------------------------------------------------------------- 4341 C SEND TO NORTH 4342 C-------------------------------------------------------------------- 4343 C 4344 IF(MY_NEB(1).GE.0)THEN 4345 IBEG = MYIS-IHALO 4346 IEND = MYIE+IHALO 4347 IC = 0 4348 DO K=1,LL1 4349 DO J=0,JHALO-1 4350 DO I=IBEG,IEND 4351 IC = IC + 1 4352 BUF2(IC)=ARR1(I,MYJE-J,K) 4353 ENDDO 4354 ENDDO Page 64 Source Listing EXCH11 2025-03-12 18:22 module_EXCHM.F 4355 ENDDO 4356 DO K=1,LL2 4357 DO J=0,JHALO-1 4358 DO I=IBEG,IEND 4359 IC = IC + 1 4360 BUF2(IC)=ARR2(I,MYJE-J,K) 4361 ENDDO 4362 ENDDO 4363 ENDDO 4364 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 4365 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 4366 ENDIF 4367 C 4368 C-------------------------------------------------------------------- 4369 C SEND TO SOUTH 4370 C-------------------------------------------------------------------- 4371 C 4372 IF(MY_NEB(3).GE.0)THEN 4373 IBEG = MYIS-IHALO 4374 IEND = MYIE+IHALO 4375 IC = 0 4376 DO K=1,LL1 4377 DO J=0,JHALO-1 4378 DO I=IBEG,IEND 4379 IC = IC + 1 4380 BUF3(IC)=ARR1(I,MYJS+J,K) 4381 ENDDO 4382 ENDDO 4383 ENDDO 4384 DO K=1,LL2 4385 DO J=0,JHALO-1 4386 DO I=IBEG,IEND 4387 IC = IC + 1 4388 BUF3(IC)=ARR2(I,MYJS+J,K) 4389 ENDDO 4390 ENDDO 4391 ENDDO 4392 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 4393 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 4394 ENDIF 4395 C 4396 C-------------------------------------------------------------------- 4397 C STORE RESULTS FROM SOUTH 4398 C-------------------------------------------------------------------- 4399 C 4400 IF(MY_NEB(3).GE.0)THEN 4401 IBEG = MYIS-IHALO 4402 IEND = MYIE+IHALO 4403 IC = 0 4404 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 4405 DO K=1,LL1 4406 DO J=0,JHALO-1 4407 DO I=IBEG,IEND 4408 IC = IC + 1 4409 ARR1(I,MYJS-J-1,K)=BUF1(IC) 4410 ENDDO 4411 ENDDO Page 65 Source Listing EXCH11 2025-03-12 18:22 module_EXCHM.F 4412 ENDDO 4413 DO K=1,LL2 4414 DO J=0,JHALO-1 4415 DO I=IBEG,IEND 4416 IC = IC + 1 4417 ARR2(I,MYJS-J-1,K)=BUF1(IC) 4418 ENDDO 4419 ENDDO 4420 ENDDO 4421 ENDIF 4422 C 4423 C-------------------------------------------------------------------- 4424 C STORE FROM NORTH 4425 C-------------------------------------------------------------------- 4426 C 4427 IF(MY_NEB(1).GE.0)THEN 4428 IBEG = MYIS-IHALO 4429 IEND = MYIE+IHALO 4430 IC = 0 4431 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 4432 DO K=1,LL1 4433 DO J=0,JHALO-1 4434 DO I=IBEG,IEND 4435 IC = IC + 1 4436 ARR1(I,MYJE+J+1,K)=BUF0(IC) 4437 ENDDO 4438 ENDDO 4439 ENDDO 4440 DO K=1,LL2 4441 DO J=0,JHALO-1 4442 DO I=IBEG,IEND 4443 IC = IC + 1 4444 ARR2(I,MYJE+J+1,K)=BUF0(IC) 4445 ENDDO 4446 ENDDO 4447 ENDDO 4448 ENDIF 4449 C 4450 IF(MY_NEB(1).GE.0)THEN 4451 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 4452 ENDIF 4453 C 4454 IF(MY_NEB(3).GE.0)THEN 4455 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 4456 ENDIF 4457 C 4458 C-------------------------------------------------------------------- 4459 C-------------------------------------------------------------------- 4460 C*** 4461 C*** EAST/WEST 4462 C*** 4463 C-------------------------------------------------------------------- 4464 C-------------------------------------------------------------------- 4465 C 4466 C-------------------------------------------------------------------- 4467 C RECEIVE FROM WEST 4468 C-------------------------------------------------------------------- Page 66 Source Listing EXCH11 2025-03-12 18:22 module_EXCHM.F 4469 C 4470 IF(MY_NEB(4).GE.0)THEN 4471 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 4472 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 4473 ENDIF 4474 C 4475 C-------------------------------------------------------------------- 4476 C RECEIVE FROM EAST 4477 C-------------------------------------------------------------------- 4478 C 4479 IF(MY_NEB(2).GE.0)THEN 4480 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 4481 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 4482 ENDIF 4483 C 4484 C-------------------------------------------------------------------- 4485 C SEND TO EAST 4486 C-------------------------------------------------------------------- 4487 C 4488 IF(MY_NEB(2).GE.0)THEN 4489 IBEG = MYIE-IHALO+1 4490 IEND = MYIE 4491 IC = 0 4492 DO K=1,LL1 4493 DO J=MYJS-JHALO,MYJE+JHALO 4494 DO I=IBEG,IEND 4495 IC = IC + 1 4496 BUF2(IC)=ARR1(I,J,K) 4497 ENDDO 4498 ENDDO 4499 ENDDO 4500 DO K=1,LL2 4501 DO J=MYJS-JHALO,MYJE+JHALO 4502 DO I=IBEG,IEND 4503 IC = IC + 1 4504 BUF2(IC)=ARR2(I,J,K) 4505 ENDDO 4506 ENDDO 4507 ENDDO 4508 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 4509 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 4510 ENDIF 4511 C 4512 C-------------------------------------------------------------------- 4513 C SEND TO WEST 4514 C-------------------------------------------------------------------- 4515 C 4516 IF(MY_NEB(4).GE.0)THEN 4517 IBEG = MYIS 4518 IEND = MYIS+IHALO-1 4519 IC = 0 4520 DO K=1,LL1 4521 DO J=MYJS-JHALO,MYJE+JHALO 4522 DO I=IBEG,IEND 4523 IC = IC + 1 4524 BUF3(IC)=ARR1(I,J,K) 4525 ENDDO Page 67 Source Listing EXCH11 2025-03-12 18:22 module_EXCHM.F 4526 ENDDO 4527 ENDDO 4528 DO K=1,LL2 4529 DO J=MYJS-JHALO,MYJE+JHALO 4530 DO I=IBEG,IEND 4531 IC = IC + 1 4532 BUF3(IC)=ARR2(I,J,K) 4533 ENDDO 4534 ENDDO 4535 ENDDO 4536 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 4537 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 4538 ENDIF 4539 C 4540 C-------------------------------------------------------------------- 4541 C STORE FROM WEST 4542 C-------------------------------------------------------------------- 4543 C 4544 IF(MY_NEB(4).GE.0)THEN 4545 IBEG = MYIS-IHALO 4546 IEND = MYIS-1 4547 IC = 0 4548 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 4549 DO K=1,LL1 4550 DO J=MYJS-JHALO,MYJE+JHALO 4551 DO I=IBEG,IEND 4552 IC = IC + 1 4553 ARR1(I,J,K)=BUF0(IC) 4554 ENDDO 4555 ENDDO 4556 ENDDO 4557 DO K=1,LL2 4558 DO J=MYJS-JHALO,MYJE+JHALO 4559 DO I=IBEG,IEND 4560 IC = IC + 1 4561 ARR2(I,J,K)=BUF0(IC) 4562 ENDDO 4563 ENDDO 4564 ENDDO 4565 ENDIF 4566 C 4567 C-------------------------------------------------------------------- 4568 C STORE FROM EAST 4569 C-------------------------------------------------------------------- 4570 C 4571 IF(MY_NEB(2).GE.0)THEN 4572 IBEG = MYIE+1 4573 IEND = MYIE+IHALO 4574 IC = 0 4575 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 4576 DO K=1,LL1 4577 DO J=MYJS-JHALO,MYJE+JHALO 4578 DO I=IBEG,IEND 4579 IC = IC + 1 4580 ARR1(I,J,K)=BUF1(IC) 4581 ENDDO 4582 ENDDO Page 68 Source Listing EXCH11 2025-03-12 18:22 module_EXCHM.F 4583 ENDDO 4584 DO K=1,LL2 4585 DO J=MYJS-JHALO,MYJE+JHALO 4586 DO I=IBEG,IEND 4587 IC = IC + 1 4588 ARR2(I,J,K)=BUF1(IC) 4589 ENDDO 4590 ENDDO 4591 ENDDO 4592 ENDIF 4593 C 4594 IF(MY_NEB(4).GE.0)THEN 4595 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 4596 ENDIF 4597 C 4598 IF(MY_NEB(2).GE.0)THEN 4599 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 4600 ENDIF 4601 C 4602 C-------------------------------------------------------------------- 4603 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch11_ Page 69 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 3657 R(4) 4 3 0 ARG,INOUT 4352,4380,4409,4436,4496,4524,4553 ,4580 ARR2 Dummy 3657 R(4) 4 3 0 ARG,INOUT 4360,4388,4417,4444,4504,4532,4561 ,4588 BUF0 Local 4327 R(4) 4 1 2500000 4327,4436,4444,4471,4553,4561 BUF1 Local 4336 R(4) 4 1 2500000 4336,4409,4417,4480,4580,4588 BUF2 Local 4352 R(4) 4 1 2500000 4352,4360,4364,4496,4504,4508 BUF3 Local 4380 R(4) 4 1 2500000 4380,4388,4392,4524,4532,4536 EXCH11 Subr 3657 EXCH_BUF_REAL Module 3658 3658 GLB_TABLE Common 4283 336 SAVE I Local 4350 I(4) 4 scalar 4350,4352,4358,4360,4378,4380,4386 ,4388,4407,4409,4415,4417,4434,443 6,4442,4444,4494,4496,4502,4504,45 22,4524,4530,4532,4551,4553,4559,4 561,4578,4580,4586,4588 IBEG Local 4345 I(4) 4 scalar 4345,4350,4358,4373,4378,4386,4401 ,4407,4415,4428,4434,4442,4489,449 4,4502,4517,4522,4530,4545,4551,45 59,4572,4578,4586 IBUFEXCH Param 4327 I(4) 4 scalar 4327,4336,4471,4480 IC Local 4347 I(4) 4 scalar 4347,4351,4352,4359,4360,4364,4375 ,4379,4380,4387,4388,4392,4403,440 8,4409,4416,4417,4430,4435,4436,44 43,4444,4491,4495,4496,4503,4504,4 508,4519,4523,4524,4531,4532,4536, 4547,4552,4553,4560,4561,4574,4579 ,4580,4587,4588 IDIM1 Param 3679 I(4) 4 scalar 4307,4308 IDIM2 Param 3679 I(4) 4 scalar 4307,4308 IEND Local 4346 I(4) 4 scalar 4346,4350,4358,4374,4378,4386,4402 ,4407,4415,4429,4434,4442,4490,449 4,4502,4518,4522,4530,4546,4551,45 59,4573,4578,4586 IERR Local 4404 I(4) 4 scalar 4404,4431,4451,4455,4548,4575,4595 ,4599 IGSTL Param 3674 I(4) 4 scalar 3679 IGSTR Param 3674 I(4) 4 scalar 3679 IHALO Dummy 3657 I(4) 4 scalar ARG,INOUT 4345,4346,4373,4374,4401,4402,4428 ,4429,4489,4518,4545,4573 IHANDLE Local 4306 I(4) 4 1 4 4328,4337,4365,4393,4404,4431,4451 ,4455,4472,4481,4509,4537,4548,457 5,4595,4599 IM Param 3662 I(4) 4 scalar 3676,3679,4289,4290,4291,4292,4293 ,4297,4298,4303 INPES Param 3671 I(4) 4 scalar 3676,3679,4273,4274,4275,4284,4285 IRECV Local 4328 I(4) 4 scalar 4328,4337,4472,4481 ISEND Local 4365 I(4) 4 scalar 4365,4393,4509,4537 ISTAT Local 4305 I(4) 4 1 5 4404,4431,4451,4455,4548,4575,4595 ,4599 ITAIL Param 3676 I(4) 4 scalar Page 70 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ITYPE Local 4312 I(4) 4 scalar 4312,4327,4336,4364,4392,4471,4480 ,4508,4536 J Local 4349 I(4) 4 scalar 4349,4352,4357,4360,4377,4380,4385 ,4388,4406,4409,4414,4417,4433,443 6,4441,4444,4493,4496,4501,4504,45 21,4524,4529,4532,4550,4553,4558,4 561,4577,4580,4585,4588 JDIM1 Param 3680 I(4) 4 scalar 4307,4308 JDIM2 Param 3680 I(4) 4 scalar 4307,4308 JGSTL Param 3675 I(4) 4 scalar 3680 JGSTR Param 3675 I(4) 4 scalar 3680 JHALO Dummy 3657 I(4) 4 scalar ARG,INOUT 4349,4357,4377,4385,4406,4414,4433 ,4441,4493,4501,4521,4529,4550,455 8,4577,4585 JM Param 3662 I(4) 4 scalar 3677,3680,4289,4290,4291,4292,4293 ,4297,4298,4303 JNPES Param 3671 I(4) 4 scalar 3677,3680,4273,4274,4275,4284,4285 JTAIL Param 3677 I(4) 4 scalar K Local 4348 I(4) 4 scalar 4348,4352,4356,4360,4376,4380,4384 ,4388,4405,4409,4413,4417,4432,443 6,4440,4444,4492,4496,4500,4504,45 20,4524,4528,4532,4549,4553,4557,4 561,4576,4580,4584,4588 LL1 Dummy 3657 I(4) 4 scalar ARG,INOUT 4348,4376,4405,4432,4492,4520,4549 ,4576 LL2 Dummy 3657 I(4) 4 scalar ARG,INOUT 4356,4384,4413,4440,4500,4528,4557 ,4584 LM Param 3662 I(4) 4 scalar 4298 LSM Param 3662 I(4) 4 scalar MAPPINGS Common 4302 5024 SAVE MPIFCMB5 Common 4233 4 SAVE MPIFCMB9 Common 4234 4 SAVE MPIPRIV1 Common 4238 28 SAVE MPIPRIV2 Common 4240 24 SAVE MPIPRIVC Common 4243 2 SAVE MPI_2DOUBLE_PRECISION Param 3979 I(4) 4 scalar MPI_2INT Param 4063 I(4) 4 scalar MPI_2INTEGER Param 3977 I(4) 4 scalar MPI_2REAL Param 3981 I(4) 4 scalar MPI_ADDRESS_KIND Param 4015 I(4) 4 scalar MPI_AINT Param 4093 I(4) 4 scalar MPI_ANY_SOURCE Param 3945 I(4) 4 scalar MPI_ANY_TAG Param 3947 I(4) 4 scalar MPI_APPNUM Param 3909 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 4215 L(4) 4 scalar MPI_BAND Param 3853 I(4) 4 scalar MPI_BOR Param 3857 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 3941 I(4) 4 scalar MPI_BXOR Param 3861 I(4) 4 scalar MPI_BYTE Param 3985 I(4) 4 scalar MPI_CART Param 3953 I(4) 4 scalar MPI_CHAR Param 4023 I(4) 4 scalar MPI_CHARACTER Param 3983 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 4111 I(4) 4 scalar Page 71 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_DARRAY Param 4133 I(4) 4 scalar MPI_COMBINER_DUP Param 4109 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 4137 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 4139 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 4135 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 4123 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 4143 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 4121 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 4117 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 4115 I(4) 4 scalar MPI_COMBINER_INDEXED Param 4119 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 4125 I(4) 4 scalar MPI_COMBINER_NAMED Param 4107 I(4) 4 scalar MPI_COMBINER_RESIZED Param 4141 I(4) 4 scalar MPI_COMBINER_STRUCT Param 4129 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 4127 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 4131 I(4) 4 scalar MPI_COMBINER_VECTOR Param 4113 I(4) 4 scalar MPI_COMM_DUP_FN Subr 4222 scalar MPI_COMM_NULL Param 3877 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 4223 scalar MPI_COMM_NULL_DELETE_FN Subr 4222 scalar MPI_COMM_SELF Param 3873 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 4161 I(4) 4 scalar MPI_COMM_WORLD Param 3871 I(4) 4 scalar MPI_COMPLEX Param 3965 I(4) 4 scalar MPI_COMPLEX16 Param 4011 I(4) 4 scalar MPI_COMPLEX32 Param 4013 I(4) 4 scalar MPI_COMPLEX8 Param 4009 I(4) 4 scalar MPI_CONGRUENT Param 3825 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 4228 scalar MPI_COUNT Param 4097 I(4) 4 scalar MPI_COUNT_KIND Param 4019 I(4) 4 scalar MPI_CXX_BOOL Param 4099 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 4103 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 4101 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 4105 I(4) 4 scalar MPI_C_BOOL Param 4083 I(4) 4 scalar MPI_C_COMPLEX Param 4087 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 4089 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 4085 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 4091 I(4) 4 scalar MPI_DATATYPE_NULL Param 3887 I(4) 4 scalar 4002,4100,4102,4104,4106 MPI_DISPLACEMENT_CURRENT Param 4211 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 4203 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 4205 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 4209 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 4207 I(4) 4 scalar MPI_DIST_GRAPH Param 3955 I(4) 4 scalar MPI_DOUBLE Param 4045 I(4) 4 scalar Page 72 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DOUBLE_COMPLEX Param 3967 I(4) 4 scalar MPI_DOUBLE_INT Param 4057 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 3973 I(4) 4 scalar MPI_DUP_FN Subr 4219 scalar MPI_ERRHANDLER_NULL Param 3891 I(4) 4 scalar MPI_ERROR Param 3692 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 3819 I(4) 4 scalar MPI_ERRORS_RETURN Param 3821 I(4) 4 scalar MPI_ERR_ACCESS Param 3811 I(4) 4 scalar MPI_ERR_AMODE Param 3797 I(4) 4 scalar MPI_ERR_ARG Param 3767 I(4) 4 scalar MPI_ERR_ASSERT Param 3773 I(4) 4 scalar MPI_ERR_BAD_FILE Param 3735 I(4) 4 scalar MPI_ERR_BASE Param 3765 I(4) 4 scalar MPI_ERR_BUFFER Param 3707 I(4) 4 scalar MPI_ERR_COMM Param 3785 I(4) 4 scalar MPI_ERR_CONVERSION Param 3801 I(4) 4 scalar MPI_ERR_COUNT Param 3711 I(4) 4 scalar MPI_ERR_DIMS Param 3749 I(4) 4 scalar MPI_ERR_DISP Param 3733 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 3715 I(4) 4 scalar MPI_ERR_FILE Param 3745 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 3727 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 3769 I(4) 4 scalar MPI_ERR_GROUP Param 3731 I(4) 4 scalar MPI_ERR_INFO Param 3759 I(4) 4 scalar MPI_ERR_INFO_KEY Param 3763 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 3743 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 3729 I(4) 4 scalar MPI_ERR_INTERN Param 3761 I(4) 4 scalar MPI_ERR_IN_STATUS Param 3747 I(4) 4 scalar MPI_ERR_IO Param 3807 I(4) 4 scalar MPI_ERR_KEYVAL Param 3753 I(4) 4 scalar MPI_ERR_LASTCODE Param 3775 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 3757 I(4) 4 scalar MPI_ERR_NAME Param 3751 I(4) 4 scalar MPI_ERR_NOT_SAME Param 3779 I(4) 4 scalar MPI_ERR_NO_MEM Param 3771 I(4) 4 scalar MPI_ERR_NO_SPACE Param 3703 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 3787 I(4) 4 scalar MPI_ERR_OP Param 3805 I(4) 4 scalar MPI_ERR_OTHER Param 3719 I(4) 4 scalar MPI_ERR_PENDING Param 3709 I(4) 4 scalar MPI_ERR_PORT Param 3791 I(4) 4 scalar MPI_ERR_QUOTA Param 3795 I(4) 4 scalar MPI_ERR_RANK Param 3717 I(4) 4 scalar MPI_ERR_READ_ONLY Param 3755 I(4) 4 scalar MPI_ERR_REQUEST Param 3799 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 3721 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 3725 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 3741 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 3803 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 3793 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 3705 I(4) 4 scalar MPI_ERR_ROOT Param 3737 I(4) 4 scalar Page 73 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_SERVICE Param 3713 I(4) 4 scalar MPI_ERR_SIZE Param 3723 I(4) 4 scalar MPI_ERR_SPAWN Param 3783 I(4) 4 scalar MPI_ERR_TAG Param 3813 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 3817 I(4) 4 scalar MPI_ERR_TRUNCATE Param 3777 I(4) 4 scalar MPI_ERR_TYPE Param 3781 I(4) 4 scalar MPI_ERR_UNKNOWN Param 3815 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 3739 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 3789 I(4) 4 scalar MPI_ERR_WIN Param 3809 I(4) 4 scalar MPI_FILE_NULL Param 3881 I(4) 4 scalar MPI_FLOAT Param 4043 I(4) 4 scalar MPI_FLOAT_INT Param 4055 I(4) 4 scalar MPI_GRAPH Param 3951 I(4) 4 scalar MPI_GROUP_EMPTY Param 3875 I(4) 4 scalar MPI_GROUP_NULL Param 3883 I(4) 4 scalar MPI_HOST Param 3899 I(4) 4 scalar MPI_IDENT Param 3823 I(4) 4 scalar MPI_INFO_ENV Param 3895 I(4) 4 scalar MPI_INFO_NULL Param 3893 I(4) 4 scalar MPI_INT Param 4035 I(4) 4 scalar MPI_INT16_T Param 4069 I(4) 4 scalar MPI_INT32_T Param 4071 I(4) 4 scalar MPI_INT64_T Param 4073 I(4) 4 scalar MPI_INT8_T Param 4067 I(4) 4 scalar MPI_INTEGER Param 3975 I(4) 4 scalar MPI_INTEGER1 Param 3993 I(4) 4 scalar MPI_INTEGER16 Param 4001 I(4) 4 scalar MPI_INTEGER2 Param 3995 I(4) 4 scalar MPI_INTEGER4 Param 3997 I(4) 4 scalar MPI_INTEGER8 Param 3999 I(4) 4 scalar MPI_INTEGER_KIND Param 4021 I(4) 4 scalar MPI_IO Param 3901 I(4) 4 scalar MPI_IRECV Subr 4327 4327,4336,4471,4480 MPI_ISEND Subr 4364 4364,4392,4508,4536 MPI_KEYVAL_INVALID Param 3939 I(4) 4 scalar MPI_LAND Param 3851 I(4) 4 scalar MPI_LASTUSEDCODE Param 3907 I(4) 4 scalar MPI_LB Param 3989 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 3961 I(4) 4 scalar MPI_LOCK_SHARED Param 3963 I(4) 4 scalar MPI_LOGICAL Param 3969 I(4) 4 scalar MPI_LONG Param 4039 I(4) 4 scalar MPI_LONG_DOUBLE Param 4047 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 4065 I(4) 4 scalar MPI_LONG_INT Param 4059 I(4) 4 scalar MPI_LONG_LONG Param 4053 I(4) 4 scalar MPI_LONG_LONG_INT Param 4049 I(4) 4 scalar MPI_LOR Param 3855 I(4) 4 scalar MPI_LXOR Param 3859 I(4) 4 scalar MPI_MAX Param 3843 I(4) 4 scalar MPI_MAXLOC Param 3865 I(4) 4 scalar Page 74 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MAX_DATAREP_STRING Param 3933 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 3921 I(4) 4 scalar MPI_MAX_INFO_KEY Param 3927 I(4) 4 scalar MPI_MAX_INFO_VAL Param 3929 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 3935 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 3925 I(4) 4 scalar MPI_MAX_PORT_NAME Param 3923 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 3931 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 4165 I(4) 4 scalar MPI_MESSAGE_NULL Param 4163 I(4) 4 scalar MPI_MIN Param 3845 I(4) 4 scalar MPI_MINLOC Param 3863 I(4) 4 scalar MPI_MODE_APPEND Param 4189 I(4) 4 scalar MPI_MODE_CREATE Param 4185 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 4181 I(4) 4 scalar MPI_MODE_EXCL Param 4187 I(4) 4 scalar MPI_MODE_NOCHECK Param 4151 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 4157 I(4) 4 scalar MPI_MODE_NOPUT Param 4155 I(4) 4 scalar MPI_MODE_NOSTORE Param 4153 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 4159 I(4) 4 scalar MPI_MODE_RDONLY Param 4175 I(4) 4 scalar MPI_MODE_RDWR Param 4177 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 4191 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 4183 I(4) 4 scalar MPI_MODE_WRONLY Param 4179 I(4) 4 scalar MPI_NO_OP Param 3869 I(4) 4 scalar MPI_NULL_COPY_FN Subr 4219 scalar MPI_NULL_DELETE_FN Subr 4219 scalar MPI_OFFSET Param 4095 I(4) 4 scalar MPI_OFFSET_KIND Param 4017 I(4) 4 scalar MPI_OP_NULL Param 3885 I(4) 4 scalar MPI_ORDER_C Param 4199 I(4) 4 scalar MPI_ORDER_FORTRAN Param 4201 I(4) 4 scalar MPI_PACKED Param 3991 I(4) 4 scalar MPI_PROC_NULL Param 3943 I(4) 4 scalar MPI_PROD Param 3849 I(4) 4 scalar MPI_REAL Param 3971 I(4) 4 scalar 4312 MPI_REAL16 Param 4007 I(4) 4 scalar MPI_REAL4 Param 4003 I(4) 4 scalar MPI_REAL8 Param 4005 I(4) 4 scalar MPI_REPLACE Param 3867 I(4) 4 scalar MPI_REQUEST_NULL Param 3889 I(4) 4 scalar MPI_ROOT Param 3949 I(4) 4 scalar MPI_SEEK_CUR Param 4195 I(4) 4 scalar MPI_SEEK_END Param 4197 I(4) 4 scalar MPI_SEEK_SET Param 4193 I(4) 4 scalar MPI_SHORT Param 4031 I(4) 4 scalar MPI_SHORT_INT Param 4061 I(4) 4 scalar MPI_SIGNED_CHAR Param 4025 I(4) 4 scalar MPI_SIMILAR Param 3827 I(4) 4 scalar MPI_SOURCE Param 3692 I(4) 4 scalar MPI_STATUS_SIZE Param 3694 I(4) 4 scalar 3696,3697,4305 MPI_SUBARRAYS_SUPPORTED Param 4213 L(4) 4 scalar Page 75 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SUBVERSION Param 3959 I(4) 4 scalar MPI_SUCCESS Param 3701 I(4) 4 scalar MPI_SUM Param 3847 I(4) 4 scalar MPI_TAG Param 3692 I(4) 4 scalar MPI_TAG_UB Param 3897 I(4) 4 scalar MPI_THREAD_FUNNELED Param 4169 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 4173 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 4171 I(4) 4 scalar MPI_THREAD_SINGLE Param 4167 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 4149 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 4147 I(4) 4 scalar MPI_TYPECLASS_REAL Param 4145 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 4226 scalar MPI_TYPE_NULL_COPY_FN Subr 4227 scalar MPI_TYPE_NULL_DELETE_FN Subr 4226 scalar MPI_UB Param 3987 I(4) 4 scalar MPI_UINT16_T Param 4077 I(4) 4 scalar MPI_UINT32_T Param 4079 I(4) 4 scalar MPI_UINT64_T Param 4081 I(4) 4 scalar MPI_UINT8_T Param 4075 I(4) 4 scalar MPI_UNDEFINED Param 3937 I(4) 4 scalar MPI_UNEQUAL Param 3829 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 3905 I(4) 4 scalar MPI_UNSIGNED Param 4037 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 4027 I(4) 4 scalar MPI_UNSIGNED_LONG Param 4041 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 4051 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 4033 I(4) 4 scalar MPI_VERSION Param 3957 I(4) 4 scalar MPI_WAIT Subr 4404 4404,4431,4451,4455,4548,4575,4595 ,4599 MPI_WCHAR Param 4029 I(4) 4 scalar MPI_WIN_BASE Param 3911 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 3917 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 3915 I(4) 4 scalar MPI_WIN_DUP_FN Subr 4224 scalar MPI_WIN_FLAVOR_ALLOCATE Param 3833 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 3831 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 3835 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 3837 I(4) 4 scalar MPI_WIN_MODEL Param 3919 I(4) 4 scalar MPI_WIN_NULL Param 3879 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 4225 scalar MPI_WIN_NULL_DELETE_FN Subr 4224 scalar MPI_WIN_SEPARATE Param 3839 I(4) 4 scalar MPI_WIN_SIZE Param 3913 I(4) 4 scalar MPI_WIN_UNIFIED Param 3841 I(4) 4 scalar MPI_WTICK Func 4220 R(8) 8 scalar MPI_WTIME Func 4220 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 3903 I(4) 4 scalar MPPCOM Common 4247 1724 SAVE PMPI_WTICK Func 4221 R(8) 8 scalar PMPI_WTIME Func 4221 R(8) 8 scalar TEMPCOM Common 4288 6603768 SAVE TOPO Common 4296 17478548 SAVE Page 76 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F 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 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 4328,4337,4365,4393,4472,4481,4509 ,4537 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 Page 77 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 4346,4374,4402,4429,4489,4490,4572 ,4573 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 4345,4373,4401,4428,4517,4518,4545 ,4546 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 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 4352,4360,4436,4444,4493,4501,4521 ,4529,4550,4558,4577,4585 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 Page 78 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 4380,4388,4409,4417,4493,4501,4521 ,4529,4550,4558,4577,4585 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 4364,4392,4508,4536 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 4326,4327,4335,4336,4344,4364,4372 ,4392,4400,4427,4450,4454,4470,447 1,4479,4480,4488,4508,4516,4536,45 44,4571,4594,4598 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 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 Page 79 Source Listing EXCH11 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 80 Source Listing EXCH11 2025-03-12 18:22 module_EXCHM.F 4604 4605 SUBROUTINE EXCH111(ARR1,LL1,ARR2,LL2,ARR3,LL3,IHALO,JHALO) 4606 USE EXCH_BUF_REAL 4607 INCLUDE "parmeta" 4631 INCLUDE "mpif.h" 5193 INCLUDE "mpp.h" 5194 C----------------------------------------------------------------------- 5253 INTEGER ISTAT(MPI_STATUS_SIZE) 5254 INTEGER IHANDLE(4) 5255 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 5256 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 5257 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 5258 C 5259 C*********************************************************************** 5260 C 5261 ITYPE=MPI_REAL 5262 C 5263 C-------------------------------------------------------------------- 5264 C-------------------------------------------------------------------- 5265 C*** 5266 C*** NORTH/SOUTH 5267 C*** 5268 C-------------------------------------------------------------------- 5269 C-------------------------------------------------------------------- 5270 C 5271 C-------------------------------------------------------------------- 5272 C RECEIVE FROM NORTH 5273 C-------------------------------------------------------------------- 5274 C 5275 IF(MY_NEB(1).GE.0)THEN 5276 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 5277 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 5278 ENDIF 5279 C 5280 C-------------------------------------------------------------------- 5281 C RECEIVE FROM SOUTH 5282 C-------------------------------------------------------------------- 5283 C 5284 IF(MY_NEB(3).GE.0)THEN 5285 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 5286 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 5287 ENDIF 5288 C 5289 C-------------------------------------------------------------------- 5290 C SEND TO NORTH 5291 C-------------------------------------------------------------------- 5292 C 5293 IF(MY_NEB(1).GE.0)THEN 5294 IBEG=MYIS-IHALO 5295 IEND=MYIE+IHALO 5296 IC = 0 5297 DO K=1,LL1 5298 DO J=0,JHALO-1 5299 DO I=IBEG,IEND 5300 IC = IC + 1 5301 BUF2(IC)=ARR1(I,MYJE-J,K) 5302 ENDDO Page 81 Source Listing EXCH111 2025-03-12 18:22 module_EXCHM.F 5303 ENDDO 5304 ENDDO 5305 DO K=1,LL2 5306 DO J=0,JHALO-1 5307 DO I=IBEG,IEND 5308 IC = IC + 1 5309 BUF2(IC)=ARR2(I,MYJE-J,K) 5310 ENDDO 5311 ENDDO 5312 ENDDO 5313 DO K=1,LL3 5314 DO J=0,JHALO-1 5315 DO I=IBEG,IEND 5316 IC = IC + 1 5317 BUF2(IC)=ARR3(I,MYJE-J,K) 5318 ENDDO 5319 ENDDO 5320 ENDDO 5321 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 5322 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 5323 ENDIF 5324 C 5325 C-------------------------------------------------------------------- 5326 C SEND TO SOUTH 5327 C-------------------------------------------------------------------- 5328 C 5329 IF(MY_NEB(3).GE.0)THEN 5330 IBEG=MYIS-IHALO 5331 IEND=MYIE+IHALO 5332 IC = 0 5333 DO K=1,LL1 5334 DO J=0,JHALO-1 5335 DO I=IBEG,IEND 5336 IC = IC + 1 5337 BUF3(IC)=ARR1(I,MYJS+J,K) 5338 ENDDO 5339 ENDDO 5340 ENDDO 5341 DO K=1,LL2 5342 DO J=0,JHALO-1 5343 DO I=IBEG,IEND 5344 IC = IC + 1 5345 BUF3(IC)=ARR2(I,MYJS+J,K) 5346 ENDDO 5347 ENDDO 5348 ENDDO 5349 DO K=1,LL3 5350 DO J=0,JHALO-1 5351 DO I=IBEG,IEND 5352 IC = IC + 1 5353 BUF3(IC)=ARR3(I,MYJS+J,K) 5354 ENDDO 5355 ENDDO 5356 ENDDO 5357 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 5358 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 5359 ENDIF Page 82 Source Listing EXCH111 2025-03-12 18:22 module_EXCHM.F 5360 C 5361 C-------------------------------------------------------------------- 5362 C STORE RESULTS FROM SOUTH 5363 C-------------------------------------------------------------------- 5364 C 5365 IF(MY_NEB(3).GE.0)THEN 5366 IBEG=MYIS-IHALO 5367 IEND=MYIE+IHALO 5368 IC = 0 5369 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 5370 DO K=1,LL1 5371 DO J=0,JHALO-1 5372 DO I=IBEG,IEND 5373 IC = IC + 1 5374 ARR1(I,MYJS-J-1,K)=BUF1(IC) 5375 ENDDO 5376 ENDDO 5377 ENDDO 5378 DO K=1,LL2 5379 DO J=0,JHALO-1 5380 DO I=IBEG,IEND 5381 IC = IC + 1 5382 ARR2(I,MYJS-J-1,K)=BUF1(IC) 5383 ENDDO 5384 ENDDO 5385 ENDDO 5386 DO K=1,LL3 5387 DO J=0,JHALO-1 5388 DO I=IBEG,IEND 5389 IC = IC + 1 5390 ARR3(I,MYJS-J-1,K)=BUF1(IC) 5391 ENDDO 5392 ENDDO 5393 ENDDO 5394 ENDIF 5395 C 5396 C-------------------------------------------------------------------- 5397 C STORE FROM NORTH 5398 C-------------------------------------------------------------------- 5399 C 5400 IF(MY_NEB(1).GE.0)THEN 5401 IBEG=MYIS-IHALO 5402 IEND=MYIE+IHALO 5403 IC = 0 5404 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 5405 DO K=1,LL1 5406 DO J=0,JHALO-1 5407 DO I=IBEG,IEND 5408 IC = IC + 1 5409 ARR1(I,MYJE+J+1,K)=BUF0(IC) 5410 ENDDO 5411 ENDDO 5412 ENDDO 5413 DO K=1,LL2 5414 DO J=0,JHALO-1 5415 DO I=IBEG,IEND 5416 IC = IC + 1 Page 83 Source Listing EXCH111 2025-03-12 18:22 module_EXCHM.F 5417 ARR2(I,MYJE+J+1,K)=BUF0(IC) 5418 ENDDO 5419 ENDDO 5420 ENDDO 5421 DO K=1,LL3 5422 DO J=0,JHALO-1 5423 DO I=IBEG,IEND 5424 IC = IC + 1 5425 ARR3(I,MYJE+J+1,K)=BUF0(IC) 5426 ENDDO 5427 ENDDO 5428 ENDDO 5429 ENDIF 5430 C 5431 IF(MY_NEB(1).GE.0)THEN 5432 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 5433 ENDIF 5434 C 5435 IF(MY_NEB(3).GE.0)THEN 5436 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 5437 ENDIF 5438 C 5439 C-------------------------------------------------------------------- 5440 C-------------------------------------------------------------------- 5441 C*** 5442 C*** EAST/WEST 5443 C*** 5444 C-------------------------------------------------------------------- 5445 C-------------------------------------------------------------------- 5446 C 5447 C-------------------------------------------------------------------- 5448 C RECEIVE FROM WEST 5449 C-------------------------------------------------------------------- 5450 C 5451 IF(MY_NEB(4).GE.0)THEN 5452 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 5453 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 5454 ENDIF 5455 C 5456 C-------------------------------------------------------------------- 5457 C RECEIVE FROM EAST 5458 C-------------------------------------------------------------------- 5459 C 5460 IF(MY_NEB(2).GE.0)THEN 5461 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 5462 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 5463 ENDIF 5464 C 5465 C-------------------------------------------------------------------- 5466 C SEND TO EAST 5467 C-------------------------------------------------------------------- 5468 C 5469 IF(MY_NEB(2).GE.0)THEN 5470 IBEG=MYIE-IHALO+1 5471 IEND=MYIE 5472 IC = 0 5473 DO K=1,LL1 Page 84 Source Listing EXCH111 2025-03-12 18:22 module_EXCHM.F 5474 DO J=MYJS-JHALO,MYJE+JHALO 5475 DO I=IBEG,IEND 5476 IC = IC + 1 5477 BUF2(IC)=ARR1(I,J,K) 5478 ENDDO 5479 ENDDO 5480 ENDDO 5481 DO K=1,LL2 5482 DO J=MYJS-JHALO,MYJE+JHALO 5483 DO I=IBEG,IEND 5484 IC = IC + 1 5485 BUF2(IC)=ARR2(I,J,K) 5486 ENDDO 5487 ENDDO 5488 ENDDO 5489 DO K=1,LL3 5490 DO J=MYJS-JHALO,MYJE+JHALO 5491 DO I=IBEG,IEND 5492 IC = IC + 1 5493 BUF2(IC)=ARR3(I,J,K) 5494 ENDDO 5495 ENDDO 5496 ENDDO 5497 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 5498 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 5499 ENDIF 5500 C 5501 C-------------------------------------------------------------------- 5502 C SEND TO WEST 5503 C-------------------------------------------------------------------- 5504 C 5505 IF(MY_NEB(4).GE.0)THEN 5506 NEBPE=MY_NEB(4) 5507 IBEG=MYIS 5508 IEND=MYIS+IHALO-1 5509 IC = 0 5510 DO K=1,LL1 5511 DO J=MYJS-JHALO,MYJE+JHALO 5512 DO I=IBEG,IEND 5513 IC = IC + 1 5514 BUF3(IC)=ARR1(I,J,K) 5515 ENDDO 5516 ENDDO 5517 ENDDO 5518 DO K=1,LL2 5519 DO J=MYJS-JHALO,MYJE+JHALO 5520 DO I=IBEG,IEND 5521 IC = IC + 1 5522 BUF3(IC)=ARR2(I,J,K) 5523 ENDDO 5524 ENDDO 5525 ENDDO 5526 DO K=1,LL3 5527 DO J=MYJS-JHALO,MYJE+JHALO 5528 DO I=IBEG,IEND 5529 IC = IC + 1 5530 BUF3(IC)=ARR3(I,J,K) Page 85 Source Listing EXCH111 2025-03-12 18:22 module_EXCHM.F 5531 ENDDO 5532 ENDDO 5533 ENDDO 5534 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 5535 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 5536 ENDIF 5537 C 5538 C-------------------------------------------------------------------- 5539 C STORE FROM WEST 5540 C-------------------------------------------------------------------- 5541 C 5542 IF(MY_NEB(4).GE.0)THEN 5543 IBEG=MYIS-IHALO 5544 IEND=MYIS-1 5545 IC = 0 5546 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 5547 DO K=1,LL1 5548 DO J=MYJS-JHALO,MYJE+JHALO 5549 DO I=IBEG,IEND 5550 IC = IC + 1 5551 ARR1(I,J,K)=BUF0(IC) 5552 ENDDO 5553 ENDDO 5554 ENDDO 5555 DO K=1,LL2 5556 DO J=MYJS-JHALO,MYJE+JHALO 5557 DO I=IBEG,IEND 5558 IC = IC + 1 5559 ARR2(I,J,K)=BUF0(IC) 5560 ENDDO 5561 ENDDO 5562 ENDDO 5563 DO K=1,LL3 5564 DO J=MYJS-JHALO,MYJE+JHALO 5565 DO I=IBEG,IEND 5566 IC = IC + 1 5567 ARR3(I,J,K)=BUF0(IC) 5568 ENDDO 5569 ENDDO 5570 ENDDO 5571 ENDIF 5572 C 5573 C-------------------------------------------------------------------- 5574 C STORE FROM EAST 5575 C-------------------------------------------------------------------- 5576 C 5577 IF(MY_NEB(2).GE.0)THEN 5578 IBEG=MYIE+1 5579 IEND=MYIE+IHALO 5580 IC = 0 5581 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 5582 DO K=1,LL1 5583 DO J=MYJS-JHALO,MYJE+JHALO 5584 DO I=IBEG,IEND 5585 IC = IC + 1 5586 ARR1(I,J,K)=BUF1(IC) 5587 ENDDO Page 86 Source Listing EXCH111 2025-03-12 18:22 module_EXCHM.F 5588 ENDDO 5589 ENDDO 5590 DO K=1,LL2 5591 DO J=MYJS-JHALO,MYJE+JHALO 5592 DO I=IBEG,IEND 5593 IC = IC + 1 5594 ARR2(I,J,K)=BUF1(IC) 5595 ENDDO 5596 ENDDO 5597 ENDDO 5598 DO K=1,LL3 5599 DO J=MYJS-JHALO,MYJE+JHALO 5600 DO I=IBEG,IEND 5601 IC = IC + 1 5602 ARR3(I,J,K)=BUF1(IC) 5603 ENDDO 5604 ENDDO 5605 ENDDO 5606 ENDIF 5607 C 5608 IF(MY_NEB(4).GE.0)THEN 5609 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 5610 ENDIF 5611 C 5612 IF(MY_NEB(2).GE.0)THEN 5613 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 5614 ENDIF 5615 C 5616 C-------------------------------------------------------------------- 5617 END SUBROUTINE Page 87 Source Listing EXCH111 2025-03-12 18:22 Entry Points module_EXCHM.F ENTRY POINTS Name exchm_mp_exch111_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 4605 R(4) 4 3 0 ARG,INOUT 5301,5337,5374,5409,5477,5514,5551 ,5586 ARR2 Dummy 4605 R(4) 4 3 0 ARG,INOUT 5309,5345,5382,5417,5485,5522,5559 ,5594 ARR3 Dummy 4605 R(4) 4 3 0 ARG,INOUT 5317,5353,5390,5425,5493,5530,5567 ,5602 BUF0 Local 5276 R(4) 4 1 2500000 5276,5409,5417,5425,5452,5551,5559 ,5567 BUF1 Local 5285 R(4) 4 1 2500000 5285,5374,5382,5390,5461,5586,5594 ,5602 BUF2 Local 5301 R(4) 4 1 2500000 5301,5309,5317,5321,5477,5485,5493 ,5497 BUF3 Local 5337 R(4) 4 1 2500000 5337,5345,5353,5357,5514,5522,5530 ,5534 EXCH111 Subr 4605 EXCH_BUF_REAL Module 4606 4606 GLB_TABLE Common 5231 336 SAVE I Local 5299 I(4) 4 scalar 5299,5301,5307,5309,5315,5317,5335 ,5337,5343,5345,5351,5353,5372,537 4,5380,5382,5388,5390,5407,5409,54 15,5417,5423,5425,5475,5477,5483,5 485,5491,5493,5512,5514,5520,5522, 5528,5530,5549,5551,5557,5559,5565 ,5567,5584,5586,5592,5594,5600,560 2 IBEG Local 5294 I(4) 4 scalar 5294,5299,5307,5315,5330,5335,5343 ,5351,5366,5372,5380,5388,5401,540 7,5415,5423,5470,5475,5483,5491,55 07,5512,5520,5528,5543,5549,5557,5 565,5578,5584,5592,5600 IBUFEXCH Param 5276 I(4) 4 scalar 5276,5285,5452,5461 IC Local 5296 I(4) 4 scalar 5296,5300,5301,5308,5309,5316,5317 ,5321,5332,5336,5337,5344,5345,535 2,5353,5357,5368,5373,5374,5381,53 82,5389,5390,5403,5408,5409,5416,5 417,5424,5425,5472,5476,5477,5484, 5485,5492,5493,5497,5509,5513,5514 ,5521,5522,5529,5530,5534,5545,555 0,5551,5558,5559,5566,5567,5580,55 85,5586,5593,5594,5601,5602 IDIM1 Param 4627 I(4) 4 scalar 5255,5256,5257 IDIM2 Param 4627 I(4) 4 scalar 5255,5256,5257 IEND Local 5295 I(4) 4 scalar 5295,5299,5307,5315,5331,5335,5343 ,5351,5367,5372,5380,5388,5402,540 Page 88 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 7,5415,5423,5471,5475,5483,5491,55 08,5512,5520,5528,5544,5549,5557,5 565,5579,5584,5592,5600 IERR Local 5369 I(4) 4 scalar 5369,5404,5432,5436,5546,5581,5609 ,5613 IGSTL Param 4622 I(4) 4 scalar 4627 IGSTR Param 4622 I(4) 4 scalar 4627 IHALO Dummy 4605 I(4) 4 scalar ARG,INOUT 5294,5295,5330,5331,5366,5367,5401 ,5402,5470,5508,5543,5579 IHANDLE Local 5254 I(4) 4 1 4 5277,5286,5322,5358,5369,5404,5432 ,5436,5453,5462,5498,5535,5546,558 1,5609,5613 IM Param 4610 I(4) 4 scalar 4624,4627,5237,5238,5239,5240,5241 ,5245,5246,5251 INPES Param 4619 I(4) 4 scalar 4624,4627,5221,5222,5223,5232,5233 IRECV Local 5277 I(4) 4 scalar 5277,5286,5453,5462 ISEND Local 5322 I(4) 4 scalar 5322,5358,5498,5535 ISTAT Local 5253 I(4) 4 1 5 5369,5404,5432,5436,5546,5581,5609 ,5613 ITAIL Param 4624 I(4) 4 scalar ITYPE Local 5261 I(4) 4 scalar 5261,5276,5285,5321,5357,5452,5461 ,5497,5534 J Local 5298 I(4) 4 scalar 5298,5301,5306,5309,5314,5317,5334 ,5337,5342,5345,5350,5353,5371,537 4,5379,5382,5387,5390,5406,5409,54 14,5417,5422,5425,5474,5477,5482,5 485,5490,5493,5511,5514,5519,5522, 5527,5530,5548,5551,5556,5559,5564 ,5567,5583,5586,5591,5594,5599,560 2 JDIM1 Param 4628 I(4) 4 scalar 5255,5256,5257 JDIM2 Param 4628 I(4) 4 scalar 5255,5256,5257 JGSTL Param 4623 I(4) 4 scalar 4628 JGSTR Param 4623 I(4) 4 scalar 4628 JHALO Dummy 4605 I(4) 4 scalar ARG,INOUT 5298,5306,5314,5334,5342,5350,5371 ,5379,5387,5406,5414,5422,5474,548 2,5490,5511,5519,5527,5548,5556,55 64,5583,5591,5599 JM Param 4610 I(4) 4 scalar 4625,4628,5237,5238,5239,5240,5241 ,5245,5246,5251 JNPES Param 4619 I(4) 4 scalar 4625,4628,5221,5222,5223,5232,5233 JTAIL Param 4625 I(4) 4 scalar K Local 5297 I(4) 4 scalar 5297,5301,5305,5309,5313,5317,5333 ,5337,5341,5345,5349,5353,5370,537 4,5378,5382,5386,5390,5405,5409,54 13,5417,5421,5425,5473,5477,5481,5 485,5489,5493,5510,5514,5518,5522, 5526,5530,5547,5551,5555,5559,5563 ,5567,5582,5586,5590,5594,5598,560 2 LL1 Dummy 4605 I(4) 4 scalar ARG,INOUT 5297,5333,5370,5405,5473,5510,5547 ,5582 LL2 Dummy 4605 I(4) 4 scalar ARG,INOUT 5305,5341,5378,5413,5481,5518,5555 ,5590 LL3 Dummy 4605 I(4) 4 scalar ARG,INOUT 5313,5349,5386,5421,5489,5526,5563 Page 89 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,5598 LM Param 4610 I(4) 4 scalar 5246 LSM Param 4610 I(4) 4 scalar MAPPINGS Common 5250 5024 SAVE MPIFCMB5 Common 5181 4 SAVE MPIFCMB9 Common 5182 4 SAVE MPIPRIV1 Common 5186 28 SAVE MPIPRIV2 Common 5188 24 SAVE MPIPRIVC Common 5191 2 SAVE MPI_2DOUBLE_PRECISION Param 4927 I(4) 4 scalar MPI_2INT Param 5011 I(4) 4 scalar MPI_2INTEGER Param 4925 I(4) 4 scalar MPI_2REAL Param 4929 I(4) 4 scalar MPI_ADDRESS_KIND Param 4963 I(4) 4 scalar MPI_AINT Param 5041 I(4) 4 scalar MPI_ANY_SOURCE Param 4893 I(4) 4 scalar MPI_ANY_TAG Param 4895 I(4) 4 scalar MPI_APPNUM Param 4857 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 5163 L(4) 4 scalar MPI_BAND Param 4801 I(4) 4 scalar MPI_BOR Param 4805 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 4889 I(4) 4 scalar MPI_BXOR Param 4809 I(4) 4 scalar MPI_BYTE Param 4933 I(4) 4 scalar MPI_CART Param 4901 I(4) 4 scalar MPI_CHAR Param 4971 I(4) 4 scalar MPI_CHARACTER Param 4931 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 5059 I(4) 4 scalar MPI_COMBINER_DARRAY Param 5081 I(4) 4 scalar MPI_COMBINER_DUP Param 5057 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 5085 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 5087 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 5083 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 5071 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 5091 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 5069 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 5065 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 5063 I(4) 4 scalar MPI_COMBINER_INDEXED Param 5067 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 5073 I(4) 4 scalar MPI_COMBINER_NAMED Param 5055 I(4) 4 scalar MPI_COMBINER_RESIZED Param 5089 I(4) 4 scalar MPI_COMBINER_STRUCT Param 5077 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 5075 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 5079 I(4) 4 scalar MPI_COMBINER_VECTOR Param 5061 I(4) 4 scalar MPI_COMM_DUP_FN Subr 5170 scalar MPI_COMM_NULL Param 4825 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 5171 scalar MPI_COMM_NULL_DELETE_FN Subr 5170 scalar Page 90 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_SELF Param 4821 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 5109 I(4) 4 scalar MPI_COMM_WORLD Param 4819 I(4) 4 scalar MPI_COMPLEX Param 4913 I(4) 4 scalar MPI_COMPLEX16 Param 4959 I(4) 4 scalar MPI_COMPLEX32 Param 4961 I(4) 4 scalar MPI_COMPLEX8 Param 4957 I(4) 4 scalar MPI_CONGRUENT Param 4773 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 5176 scalar MPI_COUNT Param 5045 I(4) 4 scalar MPI_COUNT_KIND Param 4967 I(4) 4 scalar MPI_CXX_BOOL Param 5047 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 5051 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 5049 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 5053 I(4) 4 scalar MPI_C_BOOL Param 5031 I(4) 4 scalar MPI_C_COMPLEX Param 5035 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 5037 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 5033 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 5039 I(4) 4 scalar MPI_DATATYPE_NULL Param 4835 I(4) 4 scalar 4950,5048,5050,5052,5054 MPI_DISPLACEMENT_CURRENT Param 5159 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 5151 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 5153 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 5157 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 5155 I(4) 4 scalar MPI_DIST_GRAPH Param 4903 I(4) 4 scalar MPI_DOUBLE Param 4993 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 4915 I(4) 4 scalar MPI_DOUBLE_INT Param 5005 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 4921 I(4) 4 scalar MPI_DUP_FN Subr 5167 scalar MPI_ERRHANDLER_NULL Param 4839 I(4) 4 scalar MPI_ERROR Param 4640 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 4767 I(4) 4 scalar MPI_ERRORS_RETURN Param 4769 I(4) 4 scalar MPI_ERR_ACCESS Param 4759 I(4) 4 scalar MPI_ERR_AMODE Param 4745 I(4) 4 scalar MPI_ERR_ARG Param 4715 I(4) 4 scalar MPI_ERR_ASSERT Param 4721 I(4) 4 scalar MPI_ERR_BAD_FILE Param 4683 I(4) 4 scalar MPI_ERR_BASE Param 4713 I(4) 4 scalar MPI_ERR_BUFFER Param 4655 I(4) 4 scalar MPI_ERR_COMM Param 4733 I(4) 4 scalar MPI_ERR_CONVERSION Param 4749 I(4) 4 scalar MPI_ERR_COUNT Param 4659 I(4) 4 scalar MPI_ERR_DIMS Param 4697 I(4) 4 scalar MPI_ERR_DISP Param 4681 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 4663 I(4) 4 scalar MPI_ERR_FILE Param 4693 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 4675 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 4717 I(4) 4 scalar MPI_ERR_GROUP Param 4679 I(4) 4 scalar MPI_ERR_INFO Param 4707 I(4) 4 scalar Page 91 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO_KEY Param 4711 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 4691 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 4677 I(4) 4 scalar MPI_ERR_INTERN Param 4709 I(4) 4 scalar MPI_ERR_IN_STATUS Param 4695 I(4) 4 scalar MPI_ERR_IO Param 4755 I(4) 4 scalar MPI_ERR_KEYVAL Param 4701 I(4) 4 scalar MPI_ERR_LASTCODE Param 4723 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 4705 I(4) 4 scalar MPI_ERR_NAME Param 4699 I(4) 4 scalar MPI_ERR_NOT_SAME Param 4727 I(4) 4 scalar MPI_ERR_NO_MEM Param 4719 I(4) 4 scalar MPI_ERR_NO_SPACE Param 4651 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 4735 I(4) 4 scalar MPI_ERR_OP Param 4753 I(4) 4 scalar MPI_ERR_OTHER Param 4667 I(4) 4 scalar MPI_ERR_PENDING Param 4657 I(4) 4 scalar MPI_ERR_PORT Param 4739 I(4) 4 scalar MPI_ERR_QUOTA Param 4743 I(4) 4 scalar MPI_ERR_RANK Param 4665 I(4) 4 scalar MPI_ERR_READ_ONLY Param 4703 I(4) 4 scalar MPI_ERR_REQUEST Param 4747 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 4669 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 4673 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 4689 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 4751 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 4741 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 4653 I(4) 4 scalar MPI_ERR_ROOT Param 4685 I(4) 4 scalar MPI_ERR_SERVICE Param 4661 I(4) 4 scalar MPI_ERR_SIZE Param 4671 I(4) 4 scalar MPI_ERR_SPAWN Param 4731 I(4) 4 scalar MPI_ERR_TAG Param 4761 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 4765 I(4) 4 scalar MPI_ERR_TRUNCATE Param 4725 I(4) 4 scalar MPI_ERR_TYPE Param 4729 I(4) 4 scalar MPI_ERR_UNKNOWN Param 4763 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 4687 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 4737 I(4) 4 scalar MPI_ERR_WIN Param 4757 I(4) 4 scalar MPI_FILE_NULL Param 4829 I(4) 4 scalar MPI_FLOAT Param 4991 I(4) 4 scalar MPI_FLOAT_INT Param 5003 I(4) 4 scalar MPI_GRAPH Param 4899 I(4) 4 scalar MPI_GROUP_EMPTY Param 4823 I(4) 4 scalar MPI_GROUP_NULL Param 4831 I(4) 4 scalar MPI_HOST Param 4847 I(4) 4 scalar MPI_IDENT Param 4771 I(4) 4 scalar MPI_INFO_ENV Param 4843 I(4) 4 scalar MPI_INFO_NULL Param 4841 I(4) 4 scalar MPI_INT Param 4983 I(4) 4 scalar MPI_INT16_T Param 5017 I(4) 4 scalar MPI_INT32_T Param 5019 I(4) 4 scalar Page 92 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INT64_T Param 5021 I(4) 4 scalar MPI_INT8_T Param 5015 I(4) 4 scalar MPI_INTEGER Param 4923 I(4) 4 scalar MPI_INTEGER1 Param 4941 I(4) 4 scalar MPI_INTEGER16 Param 4949 I(4) 4 scalar MPI_INTEGER2 Param 4943 I(4) 4 scalar MPI_INTEGER4 Param 4945 I(4) 4 scalar MPI_INTEGER8 Param 4947 I(4) 4 scalar MPI_INTEGER_KIND Param 4969 I(4) 4 scalar MPI_IO Param 4849 I(4) 4 scalar MPI_IRECV Subr 5276 5276,5285,5452,5461 MPI_ISEND Subr 5321 5321,5357,5497,5534 MPI_KEYVAL_INVALID Param 4887 I(4) 4 scalar MPI_LAND Param 4799 I(4) 4 scalar MPI_LASTUSEDCODE Param 4855 I(4) 4 scalar MPI_LB Param 4937 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 4909 I(4) 4 scalar MPI_LOCK_SHARED Param 4911 I(4) 4 scalar MPI_LOGICAL Param 4917 I(4) 4 scalar MPI_LONG Param 4987 I(4) 4 scalar MPI_LONG_DOUBLE Param 4995 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 5013 I(4) 4 scalar MPI_LONG_INT Param 5007 I(4) 4 scalar MPI_LONG_LONG Param 5001 I(4) 4 scalar MPI_LONG_LONG_INT Param 4997 I(4) 4 scalar MPI_LOR Param 4803 I(4) 4 scalar MPI_LXOR Param 4807 I(4) 4 scalar MPI_MAX Param 4791 I(4) 4 scalar MPI_MAXLOC Param 4813 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 4881 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 4869 I(4) 4 scalar MPI_MAX_INFO_KEY Param 4875 I(4) 4 scalar MPI_MAX_INFO_VAL Param 4877 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 4883 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 4873 I(4) 4 scalar MPI_MAX_PORT_NAME Param 4871 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 4879 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 5113 I(4) 4 scalar MPI_MESSAGE_NULL Param 5111 I(4) 4 scalar MPI_MIN Param 4793 I(4) 4 scalar MPI_MINLOC Param 4811 I(4) 4 scalar MPI_MODE_APPEND Param 5137 I(4) 4 scalar MPI_MODE_CREATE Param 5133 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 5129 I(4) 4 scalar MPI_MODE_EXCL Param 5135 I(4) 4 scalar MPI_MODE_NOCHECK Param 5099 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 5105 I(4) 4 scalar MPI_MODE_NOPUT Param 5103 I(4) 4 scalar MPI_MODE_NOSTORE Param 5101 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 5107 I(4) 4 scalar MPI_MODE_RDONLY Param 5123 I(4) 4 scalar MPI_MODE_RDWR Param 5125 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 5139 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 5131 I(4) 4 scalar Page 93 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_WRONLY Param 5127 I(4) 4 scalar MPI_NO_OP Param 4817 I(4) 4 scalar MPI_NULL_COPY_FN Subr 5167 scalar MPI_NULL_DELETE_FN Subr 5167 scalar MPI_OFFSET Param 5043 I(4) 4 scalar MPI_OFFSET_KIND Param 4965 I(4) 4 scalar MPI_OP_NULL Param 4833 I(4) 4 scalar MPI_ORDER_C Param 5147 I(4) 4 scalar MPI_ORDER_FORTRAN Param 5149 I(4) 4 scalar MPI_PACKED Param 4939 I(4) 4 scalar MPI_PROC_NULL Param 4891 I(4) 4 scalar MPI_PROD Param 4797 I(4) 4 scalar MPI_REAL Param 4919 I(4) 4 scalar 5261 MPI_REAL16 Param 4955 I(4) 4 scalar MPI_REAL4 Param 4951 I(4) 4 scalar MPI_REAL8 Param 4953 I(4) 4 scalar MPI_REPLACE Param 4815 I(4) 4 scalar MPI_REQUEST_NULL Param 4837 I(4) 4 scalar MPI_ROOT Param 4897 I(4) 4 scalar MPI_SEEK_CUR Param 5143 I(4) 4 scalar MPI_SEEK_END Param 5145 I(4) 4 scalar MPI_SEEK_SET Param 5141 I(4) 4 scalar MPI_SHORT Param 4979 I(4) 4 scalar MPI_SHORT_INT Param 5009 I(4) 4 scalar MPI_SIGNED_CHAR Param 4973 I(4) 4 scalar MPI_SIMILAR Param 4775 I(4) 4 scalar MPI_SOURCE Param 4640 I(4) 4 scalar MPI_STATUS_SIZE Param 4642 I(4) 4 scalar 4644,4645,5253 MPI_SUBARRAYS_SUPPORTED Param 5161 L(4) 4 scalar MPI_SUBVERSION Param 4907 I(4) 4 scalar MPI_SUCCESS Param 4649 I(4) 4 scalar MPI_SUM Param 4795 I(4) 4 scalar MPI_TAG Param 4640 I(4) 4 scalar MPI_TAG_UB Param 4845 I(4) 4 scalar MPI_THREAD_FUNNELED Param 5117 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 5121 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 5119 I(4) 4 scalar MPI_THREAD_SINGLE Param 5115 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 5097 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 5095 I(4) 4 scalar MPI_TYPECLASS_REAL Param 5093 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 5174 scalar MPI_TYPE_NULL_COPY_FN Subr 5175 scalar MPI_TYPE_NULL_DELETE_FN Subr 5174 scalar MPI_UB Param 4935 I(4) 4 scalar MPI_UINT16_T Param 5025 I(4) 4 scalar MPI_UINT32_T Param 5027 I(4) 4 scalar MPI_UINT64_T Param 5029 I(4) 4 scalar MPI_UINT8_T Param 5023 I(4) 4 scalar MPI_UNDEFINED Param 4885 I(4) 4 scalar MPI_UNEQUAL Param 4777 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 4853 I(4) 4 scalar MPI_UNSIGNED Param 4985 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 4975 I(4) 4 scalar MPI_UNSIGNED_LONG Param 4989 I(4) 4 scalar Page 94 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNSIGNED_LONG_LONG Param 4999 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 4981 I(4) 4 scalar MPI_VERSION Param 4905 I(4) 4 scalar MPI_WAIT Subr 5369 5369,5404,5432,5436,5546,5581,5609 ,5613 MPI_WCHAR Param 4977 I(4) 4 scalar MPI_WIN_BASE Param 4859 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 4865 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 4863 I(4) 4 scalar MPI_WIN_DUP_FN Subr 5172 scalar MPI_WIN_FLAVOR_ALLOCATE Param 4781 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 4779 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 4783 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 4785 I(4) 4 scalar MPI_WIN_MODEL Param 4867 I(4) 4 scalar MPI_WIN_NULL Param 4827 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 5173 scalar MPI_WIN_NULL_DELETE_FN Subr 5172 scalar MPI_WIN_SEPARATE Param 4787 I(4) 4 scalar MPI_WIN_SIZE Param 4861 I(4) 4 scalar MPI_WIN_UNIFIED Param 4789 I(4) 4 scalar MPI_WTICK Func 5168 R(8) 8 scalar MPI_WTIME Func 5168 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 4851 I(4) 4 scalar MPPCOM Common 5195 1724 SAVE NEBPE Local 5506 I(4) 4 scalar 5506 PMPI_WTICK Func 5169 R(8) 8 scalar PMPI_WTIME Func 5169 R(8) 8 scalar TEMPCOM Common 5236 6603768 SAVE TOPO Common 5244 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 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 Page 95 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 5277,5286,5322,5358,5453,5462,5498 ,5535 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 5295,5331,5367,5402,5470,5471,5578 ,5579 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 5294,5330,5366,5401,5507,5508,5543 ,5544 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM Page 96 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM 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 5301,5309,5317,5409,5417,5425,5474 ,5482,5490,5511,5519,5527,5548,555 6,5564,5583,5591,5599 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 5337,5345,5353,5374,5382,5390,5474 ,5482,5490,5511,5519,5527,5548,555 6,5564,5583,5591,5599 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 Page 97 Source Listing EXCH111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 5321,5357,5497,5534 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 5275,5276,5284,5285,5293,5321,5329 ,5357,5365,5400,5431,5435,5451,545 2,5460,5461,5469,5497,5505,5506,55 34,5542,5577,5608,5612 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 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 98 Source Listing EXCH111 2025-03-12 18:22 module_EXCHM.F 5618 5619 SUBROUTINE EXCH1111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 5620 * ARR4,LL4,IHALO,JHALO) 5621 USE EXCH_BUF_REAL 5622 INCLUDE "parmeta" 5646 INCLUDE "mpif.h" 6208 INCLUDE "mpp.h" 6209 C----------------------------------------------------------------------- 6268 INTEGER ISTAT(MPI_STATUS_SIZE) 6269 INTEGER IHANDLE(4) 6270 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 6271 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 6272 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 6273 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 6274 C 6275 C*********************************************************************** 6276 C 6277 ITYPE=MPI_REAL 6278 C 6279 C-------------------------------------------------------------------- 6280 C-------------------------------------------------------------------- 6281 C*** 6282 C*** NORTH/SOUTH 6283 C*** 6284 C-------------------------------------------------------------------- 6285 C-------------------------------------------------------------------- 6286 C 6287 C-------------------------------------------------------------------- 6288 C RECEIVE FROM NORTH 6289 C-------------------------------------------------------------------- 6290 C 6291 IF(MY_NEB(1).GE.0)THEN 6292 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 6293 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 6294 ENDIF 6295 C 6296 C-------------------------------------------------------------------- 6297 C RECEIVE FROM SOUTH 6298 C-------------------------------------------------------------------- 6299 C 6300 IF(MY_NEB(3).GE.0)THEN 6301 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 6302 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 6303 ENDIF 6304 C 6305 C-------------------------------------------------------------------- 6306 C SEND TO NORTH 6307 C-------------------------------------------------------------------- 6308 C 6309 IF(MY_NEB(1).GE.0)THEN 6310 IBEG=MYIS-IHALO 6311 IEND=MYIE+IHALO 6312 IC = 0 6313 DO K=1,LL1 6314 DO J=0,JHALO-1 6315 DO I=IBEG,IEND 6316 IC = IC + 1 Page 99 Source Listing EXCH1111 2025-03-12 18:22 module_EXCHM.F 6317 BUF2(IC)=ARR1(I,MYJE-J,K) 6318 ENDDO 6319 ENDDO 6320 ENDDO 6321 DO K=1,LL2 6322 DO J=0,JHALO-1 6323 DO I=IBEG,IEND 6324 IC = IC + 1 6325 BUF2(IC)=ARR2(I,MYJE-J,K) 6326 ENDDO 6327 ENDDO 6328 ENDDO 6329 DO K=1,LL3 6330 DO J=0,JHALO-1 6331 DO I=IBEG,IEND 6332 IC = IC + 1 6333 BUF2(IC)=ARR3(I,MYJE-J,K) 6334 ENDDO 6335 ENDDO 6336 ENDDO 6337 DO K=1,LL4 6338 DO J=0,JHALO-1 6339 DO I=IBEG,IEND 6340 IC = IC + 1 6341 BUF2(IC)=ARR4(I,MYJE-J,K) 6342 ENDDO 6343 ENDDO 6344 ENDDO 6345 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 6346 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 6347 ENDIF 6348 C 6349 C-------------------------------------------------------------------- 6350 C SEND TO SOUTH 6351 C-------------------------------------------------------------------- 6352 C 6353 IF(MY_NEB(3).GE.0)THEN 6354 IBEG=MYIS-IHALO 6355 IEND=MYIE+IHALO 6356 IC = 0 6357 DO K=1,LL1 6358 DO J=0,JHALO-1 6359 DO I=IBEG,IEND 6360 IC = IC + 1 6361 BUF3(IC)=ARR1(I,MYJS+J,K) 6362 ENDDO 6363 ENDDO 6364 ENDDO 6365 DO K=1,LL2 6366 DO J=0,JHALO-1 6367 DO I=IBEG,IEND 6368 IC = IC + 1 6369 BUF3(IC)=ARR2(I,MYJS+J,K) 6370 ENDDO 6371 ENDDO 6372 ENDDO 6373 DO K=1,LL3 Page 100 Source Listing EXCH1111 2025-03-12 18:22 module_EXCHM.F 6374 DO J=0,JHALO-1 6375 DO I=IBEG,IEND 6376 IC = IC + 1 6377 BUF3(IC)=ARR3(I,MYJS+J,K) 6378 ENDDO 6379 ENDDO 6380 ENDDO 6381 DO K=1,LL4 6382 DO J=0,JHALO-1 6383 DO I=IBEG,IEND 6384 IC = IC + 1 6385 BUF3(IC)=ARR4(I,MYJS+J,K) 6386 ENDDO 6387 ENDDO 6388 ENDDO 6389 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 6390 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 6391 ENDIF 6392 C 6393 C-------------------------------------------------------------------- 6394 C STORE RESULTS FROM SOUTH 6395 C-------------------------------------------------------------------- 6396 C 6397 IF(MY_NEB(3).GE.0)THEN 6398 IBEG=MYIS-IHALO 6399 IEND=MYIE+IHALO 6400 IC = 0 6401 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 6402 DO K=1,LL1 6403 DO J=0,JHALO-1 6404 DO I=IBEG,IEND 6405 IC = IC + 1 6406 ARR1(I,MYJS-J-1,K)=BUF1(IC) 6407 ENDDO 6408 ENDDO 6409 ENDDO 6410 DO K=1,LL2 6411 DO J=0,JHALO-1 6412 DO I=IBEG,IEND 6413 IC = IC + 1 6414 ARR2(I,MYJS-J-1,K)=BUF1(IC) 6415 ENDDO 6416 ENDDO 6417 ENDDO 6418 DO K=1,LL3 6419 DO J=0,JHALO-1 6420 DO I=IBEG,IEND 6421 IC = IC + 1 6422 ARR3(I,MYJS-J-1,K)=BUF1(IC) 6423 ENDDO 6424 ENDDO 6425 ENDDO 6426 DO K=1,LL4 6427 DO J=0,JHALO-1 6428 DO I=IBEG,IEND 6429 IC = IC + 1 6430 ARR4(I,MYJS-J-1,K)=BUF1(IC) Page 101 Source Listing EXCH1111 2025-03-12 18:22 module_EXCHM.F 6431 ENDDO 6432 ENDDO 6433 ENDDO 6434 ENDIF 6435 C 6436 C-------------------------------------------------------------------- 6437 C STORE FROM NORTH 6438 C-------------------------------------------------------------------- 6439 C 6440 IF(MY_NEB(1).GE.0)THEN 6441 IBEG=MYIS-IHALO 6442 IEND=MYIE+IHALO 6443 IC = 0 6444 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 6445 DO K=1,LL1 6446 DO J=0,JHALO-1 6447 DO I=IBEG,IEND 6448 IC = IC + 1 6449 ARR1(I,MYJE+J+1,K)=BUF0(IC) 6450 ENDDO 6451 ENDDO 6452 ENDDO 6453 DO K=1,LL2 6454 DO J=0,JHALO-1 6455 DO I=IBEG,IEND 6456 IC = IC + 1 6457 ARR2(I,MYJE+J+1,K)=BUF0(IC) 6458 ENDDO 6459 ENDDO 6460 ENDDO 6461 DO K=1,LL3 6462 DO J=0,JHALO-1 6463 DO I=IBEG,IEND 6464 IC = IC + 1 6465 ARR3(I,MYJE+J+1,K)=BUF0(IC) 6466 ENDDO 6467 ENDDO 6468 ENDDO 6469 DO K=1,LL4 6470 DO J=0,JHALO-1 6471 DO I=IBEG,IEND 6472 IC = IC + 1 6473 ARR4(I,MYJE+J+1,K)=BUF0(IC) 6474 ENDDO 6475 ENDDO 6476 ENDDO 6477 ENDIF 6478 C 6479 IF(MY_NEB(1).GE.0)THEN 6480 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 6481 ENDIF 6482 C 6483 IF(MY_NEB(3).GE.0)THEN 6484 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 6485 ENDIF 6486 C 6487 C-------------------------------------------------------------------- Page 102 Source Listing EXCH1111 2025-03-12 18:22 module_EXCHM.F 6488 C-------------------------------------------------------------------- 6489 C*** 6490 C*** EAST/WEST 6491 C*** 6492 C-------------------------------------------------------------------- 6493 C-------------------------------------------------------------------- 6494 C 6495 C-------------------------------------------------------------------- 6496 C RECEIVE FROM WEST 6497 C-------------------------------------------------------------------- 6498 C 6499 IF(MY_NEB(4).GE.0)THEN 6500 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 6501 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 6502 ENDIF 6503 C 6504 C-------------------------------------------------------------------- 6505 C RECEIVE FROM EAST 6506 C-------------------------------------------------------------------- 6507 C 6508 IF(MY_NEB(2).GE.0)THEN 6509 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 6510 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 6511 ENDIF 6512 C 6513 C-------------------------------------------------------------------- 6514 C SEND TO EAST 6515 C-------------------------------------------------------------------- 6516 C 6517 IF(MY_NEB(2).GE.0)THEN 6518 NEBPE=MY_NEB(2) 6519 IBEG=MYIE-IHALO+1 6520 IEND=MYIE 6521 IC = 0 6522 DO K=1,LL1 6523 DO J=MYJS-JHALO,MYJE+JHALO 6524 DO I=IBEG,IEND 6525 IC = IC + 1 6526 BUF2(IC)=ARR1(I,J,K) 6527 ENDDO 6528 ENDDO 6529 ENDDO 6530 DO K=1,LL2 6531 DO J=MYJS-JHALO,MYJE+JHALO 6532 DO I=IBEG,IEND 6533 IC = IC + 1 6534 BUF2(IC)=ARR2(I,J,K) 6535 ENDDO 6536 ENDDO 6537 ENDDO 6538 DO K=1,LL3 6539 DO J=MYJS-JHALO,MYJE+JHALO 6540 DO I=IBEG,IEND 6541 IC = IC + 1 6542 BUF2(IC)=ARR3(I,J,K) 6543 ENDDO 6544 ENDDO Page 103 Source Listing EXCH1111 2025-03-12 18:22 module_EXCHM.F 6545 ENDDO 6546 DO K=1,LL4 6547 DO J=MYJS-JHALO,MYJE+JHALO 6548 DO I=IBEG,IEND 6549 IC = IC + 1 6550 BUF2(IC)=ARR4(I,J,K) 6551 ENDDO 6552 ENDDO 6553 ENDDO 6554 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 6555 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 6556 ENDIF 6557 C 6558 C-------------------------------------------------------------------- 6559 C SEND TO WEST 6560 C-------------------------------------------------------------------- 6561 C 6562 IF(MY_NEB(4).GE.0)THEN 6563 IBEG=MYIS 6564 IEND=MYIS+IHALO-1 6565 IC = 0 6566 DO K=1,LL1 6567 DO J=MYJS-JHALO,MYJE+JHALO 6568 DO I=IBEG,IEND 6569 IC = IC + 1 6570 BUF3(IC)=ARR1(I,J,K) 6571 ENDDO 6572 ENDDO 6573 ENDDO 6574 DO K=1,LL2 6575 DO J=MYJS-JHALO,MYJE+JHALO 6576 DO I=IBEG,IEND 6577 IC = IC + 1 6578 BUF3(IC)=ARR2(I,J,K) 6579 ENDDO 6580 ENDDO 6581 ENDDO 6582 DO K=1,LL3 6583 DO J=MYJS-JHALO,MYJE+JHALO 6584 DO I=IBEG,IEND 6585 IC = IC + 1 6586 BUF3(IC)=ARR3(I,J,K) 6587 ENDDO 6588 ENDDO 6589 ENDDO 6590 DO K=1,LL4 6591 DO J=MYJS-JHALO,MYJE+JHALO 6592 DO I=IBEG,IEND 6593 IC = IC + 1 6594 BUF3(IC)=ARR4(I,J,K) 6595 ENDDO 6596 ENDDO 6597 ENDDO 6598 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 6599 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 6600 ENDIF 6601 C Page 104 Source Listing EXCH1111 2025-03-12 18:22 module_EXCHM.F 6602 C-------------------------------------------------------------------- 6603 C STORE FROM WEST 6604 C-------------------------------------------------------------------- 6605 C 6606 IF(MY_NEB(4).GE.0)THEN 6607 IBEG=MYIS-IHALO 6608 IEND=MYIS-1 6609 IC = 0 6610 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 6611 DO K=1,LL1 6612 DO J=MYJS-JHALO,MYJE+JHALO 6613 DO I=IBEG,IEND 6614 IC = IC + 1 6615 ARR1(I,J,K)=BUF0(IC) 6616 ENDDO 6617 ENDDO 6618 ENDDO 6619 DO K=1,LL2 6620 DO J=MYJS-JHALO,MYJE+JHALO 6621 DO I=IBEG,IEND 6622 IC = IC + 1 6623 ARR2(I,J,K)=BUF0(IC) 6624 ENDDO 6625 ENDDO 6626 ENDDO 6627 DO K=1,LL3 6628 DO J=MYJS-JHALO,MYJE+JHALO 6629 DO I=IBEG,IEND 6630 IC = IC + 1 6631 ARR3(I,J,K)=BUF0(IC) 6632 ENDDO 6633 ENDDO 6634 ENDDO 6635 DO K=1,LL4 6636 DO J=MYJS-JHALO,MYJE+JHALO 6637 DO I=IBEG,IEND 6638 IC = IC + 1 6639 ARR4(I,J,K)=BUF0(IC) 6640 ENDDO 6641 ENDDO 6642 ENDDO 6643 ENDIF 6644 C 6645 C-------------------------------------------------------------------- 6646 C STORE FROM EAST 6647 C-------------------------------------------------------------------- 6648 C 6649 IF(MY_NEB(2).GE.0)THEN 6650 IBEG=MYIE+1 6651 IEND=MYIE+IHALO 6652 IC = 0 6653 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 6654 DO K=1,LL1 6655 DO J=MYJS-JHALO,MYJE+JHALO 6656 DO I=IBEG,IEND 6657 IC = IC + 1 6658 ARR1(I,J,K)=BUF1(IC) Page 105 Source Listing EXCH1111 2025-03-12 18:22 module_EXCHM.F 6659 ENDDO 6660 ENDDO 6661 ENDDO 6662 DO K=1,LL2 6663 DO J=MYJS-JHALO,MYJE+JHALO 6664 DO I=IBEG,IEND 6665 IC = IC + 1 6666 ARR2(I,J,K)=BUF1(IC) 6667 ENDDO 6668 ENDDO 6669 ENDDO 6670 DO K=1,LL3 6671 DO J=MYJS-JHALO,MYJE+JHALO 6672 DO I=IBEG,IEND 6673 IC = IC + 1 6674 ARR3(I,J,K)=BUF1(IC) 6675 ENDDO 6676 ENDDO 6677 ENDDO 6678 DO K=1,LL4 6679 DO J=MYJS-JHALO,MYJE+JHALO 6680 DO I=IBEG,IEND 6681 IC = IC + 1 6682 ARR4(I,J,K)=BUF1(IC) 6683 ENDDO 6684 ENDDO 6685 ENDDO 6686 ENDIF 6687 C 6688 IF(MY_NEB(4).GE.0)THEN 6689 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 6690 ENDIF 6691 C 6692 IF(MY_NEB(2).GE.0)THEN 6693 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 6694 ENDIF 6695 C 6696 C-------------------------------------------------------------------- 6697 END SUBROUTINE Page 106 Source Listing EXCH1111 2025-03-12 18:22 Entry Points module_EXCHM.F ENTRY POINTS Name exchm_mp_exch1111_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 5619 R(4) 4 3 0 ARG,INOUT 6317,6361,6406,6449,6526,6570,6615 ,6658 ARR2 Dummy 5619 R(4) 4 3 0 ARG,INOUT 6325,6369,6414,6457,6534,6578,6623 ,6666 ARR3 Dummy 5619 R(4) 4 3 0 ARG,INOUT 6333,6377,6422,6465,6542,6586,6631 ,6674 ARR4 Dummy 5620 R(4) 4 3 0 ARG,INOUT 6341,6385,6430,6473,6550,6594,6639 ,6682 BUF0 Local 6292 R(4) 4 1 2500000 6292,6449,6457,6465,6473,6500,6615 ,6623,6631,6639 BUF1 Local 6301 R(4) 4 1 2500000 6301,6406,6414,6422,6430,6509,6658 ,6666,6674,6682 BUF2 Local 6317 R(4) 4 1 2500000 6317,6325,6333,6341,6345,6526,6534 ,6542,6550,6554 BUF3 Local 6361 R(4) 4 1 2500000 6361,6369,6377,6385,6389,6570,6578 ,6586,6594,6598 EXCH1111 Subr 5619 EXCH_BUF_REAL Module 5621 5621 GLB_TABLE Common 6246 336 SAVE I Local 6315 I(4) 4 scalar 6315,6317,6323,6325,6331,6333,6339 ,6341,6359,6361,6367,6369,6375,637 7,6383,6385,6404,6406,6412,6414,64 20,6422,6428,6430,6447,6449,6455,6 457,6463,6465,6471,6473,6524,6526, 6532,6534,6540,6542,6548,6550,6568 ,6570,6576,6578,6584,6586,6592,659 4,6613,6615,6621,6623,6629,6631,66 37,6639,6656,6658,6664,6666,6672,6 674,6680,6682 IBEG Local 6310 I(4) 4 scalar 6310,6315,6323,6331,6339,6354,6359 ,6367,6375,6383,6398,6404,6412,642 0,6428,6441,6447,6455,6463,6471,65 19,6524,6532,6540,6548,6563,6568,6 576,6584,6592,6607,6613,6621,6629, 6637,6650,6656,6664,6672,6680 IBUFEXCH Param 6292 I(4) 4 scalar 6292,6301,6500,6509 IC Local 6312 I(4) 4 scalar 6312,6316,6317,6324,6325,6332,6333 ,6340,6341,6345,6356,6360,6361,636 8,6369,6376,6377,6384,6385,6389,64 00,6405,6406,6413,6414,6421,6422,6 429,6430,6443,6448,6449,6456,6457, 6464,6465,6472,6473,6521,6525,6526 ,6533,6534,6541,6542,6549,6550,655 4,6565,6569,6570,6577,6578,6585,65 Page 107 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 86,6593,6594,6598,6609,6614,6615,6 622,6623,6630,6631,6638,6639,6652, 6657,6658,6665,6666,6673,6674,6681 ,6682 IDIM1 Param 5642 I(4) 4 scalar 6270,6271,6272,6273 IDIM2 Param 5642 I(4) 4 scalar 6270,6271,6272,6273 IEND Local 6311 I(4) 4 scalar 6311,6315,6323,6331,6339,6355,6359 ,6367,6375,6383,6399,6404,6412,642 0,6428,6442,6447,6455,6463,6471,65 20,6524,6532,6540,6548,6564,6568,6 576,6584,6592,6608,6613,6621,6629, 6637,6651,6656,6664,6672,6680 IERR Local 6401 I(4) 4 scalar 6401,6444,6480,6484,6610,6653,6689 ,6693 IGSTL Param 5637 I(4) 4 scalar 5642 IGSTR Param 5637 I(4) 4 scalar 5642 IHALO Dummy 5620 I(4) 4 scalar ARG,INOUT 6310,6311,6354,6355,6398,6399,6441 ,6442,6519,6564,6607,6651 IHANDLE Local 6269 I(4) 4 1 4 6293,6302,6346,6390,6401,6444,6480 ,6484,6501,6510,6555,6599,6610,665 3,6689,6693 IM Param 5625 I(4) 4 scalar 5639,5642,6252,6253,6254,6255,6256 ,6260,6261,6266 INPES Param 5634 I(4) 4 scalar 5639,5642,6236,6237,6238,6247,6248 IRECV Local 6293 I(4) 4 scalar 6293,6302,6501,6510 ISEND Local 6346 I(4) 4 scalar 6346,6390,6555,6599 ISTAT Local 6268 I(4) 4 1 5 6401,6444,6480,6484,6610,6653,6689 ,6693 ITAIL Param 5639 I(4) 4 scalar ITYPE Local 6277 I(4) 4 scalar 6277,6292,6301,6345,6389,6500,6509 ,6554,6598 J Local 6314 I(4) 4 scalar 6314,6317,6322,6325,6330,6333,6338 ,6341,6358,6361,6366,6369,6374,637 7,6382,6385,6403,6406,6411,6414,64 19,6422,6427,6430,6446,6449,6454,6 457,6462,6465,6470,6473,6523,6526, 6531,6534,6539,6542,6547,6550,6567 ,6570,6575,6578,6583,6586,6591,659 4,6612,6615,6620,6623,6628,6631,66 36,6639,6655,6658,6663,6666,6671,6 674,6679,6682 JDIM1 Param 5643 I(4) 4 scalar 6270,6271,6272,6273 JDIM2 Param 5643 I(4) 4 scalar 6270,6271,6272,6273 JGSTL Param 5638 I(4) 4 scalar 5643 JGSTR Param 5638 I(4) 4 scalar 5643 JHALO Dummy 5620 I(4) 4 scalar ARG,INOUT 6314,6322,6330,6338,6358,6366,6374 ,6382,6403,6411,6419,6427,6446,645 4,6462,6470,6523,6531,6539,6547,65 67,6575,6583,6591,6612,6620,6628,6 636,6655,6663,6671,6679 JM Param 5625 I(4) 4 scalar 5640,5643,6252,6253,6254,6255,6256 ,6260,6261,6266 JNPES Param 5634 I(4) 4 scalar 5640,5643,6236,6237,6238,6247,6248 JTAIL Param 5640 I(4) 4 scalar K Local 6313 I(4) 4 scalar 6313,6317,6321,6325,6329,6333,6337 Page 108 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,6341,6357,6361,6365,6369,6373,637 7,6381,6385,6402,6406,6410,6414,64 18,6422,6426,6430,6445,6449,6453,6 457,6461,6465,6469,6473,6522,6526, 6530,6534,6538,6542,6546,6550,6566 ,6570,6574,6578,6582,6586,6590,659 4,6611,6615,6619,6623,6627,6631,66 35,6639,6654,6658,6662,6666,6670,6 674,6678,6682 LL1 Dummy 5619 I(4) 4 scalar ARG,INOUT 6313,6357,6402,6445,6522,6566,6611 ,6654 LL2 Dummy 5619 I(4) 4 scalar ARG,INOUT 6321,6365,6410,6453,6530,6574,6619 ,6662 LL3 Dummy 5619 I(4) 4 scalar ARG,INOUT 6329,6373,6418,6461,6538,6582,6627 ,6670 LL4 Dummy 5620 I(4) 4 scalar ARG,INOUT 6337,6381,6426,6469,6546,6590,6635 ,6678 LM Param 5625 I(4) 4 scalar 6261 LSM Param 5625 I(4) 4 scalar MAPPINGS Common 6265 5024 SAVE MPIFCMB5 Common 6196 4 SAVE MPIFCMB9 Common 6197 4 SAVE MPIPRIV1 Common 6201 28 SAVE MPIPRIV2 Common 6203 24 SAVE MPIPRIVC Common 6206 2 SAVE MPI_2DOUBLE_PRECISION Param 5942 I(4) 4 scalar MPI_2INT Param 6026 I(4) 4 scalar MPI_2INTEGER Param 5940 I(4) 4 scalar MPI_2REAL Param 5944 I(4) 4 scalar MPI_ADDRESS_KIND Param 5978 I(4) 4 scalar MPI_AINT Param 6056 I(4) 4 scalar MPI_ANY_SOURCE Param 5908 I(4) 4 scalar MPI_ANY_TAG Param 5910 I(4) 4 scalar MPI_APPNUM Param 5872 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 6178 L(4) 4 scalar MPI_BAND Param 5816 I(4) 4 scalar MPI_BOR Param 5820 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 5904 I(4) 4 scalar MPI_BXOR Param 5824 I(4) 4 scalar MPI_BYTE Param 5948 I(4) 4 scalar MPI_CART Param 5916 I(4) 4 scalar MPI_CHAR Param 5986 I(4) 4 scalar MPI_CHARACTER Param 5946 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 6074 I(4) 4 scalar MPI_COMBINER_DARRAY Param 6096 I(4) 4 scalar MPI_COMBINER_DUP Param 6072 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 6100 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 6102 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 6098 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 6086 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 6106 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 6084 I(4) 4 scalar Page 109 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_HVECTOR Param 6080 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 6078 I(4) 4 scalar MPI_COMBINER_INDEXED Param 6082 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 6088 I(4) 4 scalar MPI_COMBINER_NAMED Param 6070 I(4) 4 scalar MPI_COMBINER_RESIZED Param 6104 I(4) 4 scalar MPI_COMBINER_STRUCT Param 6092 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 6090 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 6094 I(4) 4 scalar MPI_COMBINER_VECTOR Param 6076 I(4) 4 scalar MPI_COMM_DUP_FN Subr 6185 scalar MPI_COMM_NULL Param 5840 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 6186 scalar MPI_COMM_NULL_DELETE_FN Subr 6185 scalar MPI_COMM_SELF Param 5836 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 6124 I(4) 4 scalar MPI_COMM_WORLD Param 5834 I(4) 4 scalar MPI_COMPLEX Param 5928 I(4) 4 scalar MPI_COMPLEX16 Param 5974 I(4) 4 scalar MPI_COMPLEX32 Param 5976 I(4) 4 scalar MPI_COMPLEX8 Param 5972 I(4) 4 scalar MPI_CONGRUENT Param 5788 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 6191 scalar MPI_COUNT Param 6060 I(4) 4 scalar MPI_COUNT_KIND Param 5982 I(4) 4 scalar MPI_CXX_BOOL Param 6062 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 6066 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 6064 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 6068 I(4) 4 scalar MPI_C_BOOL Param 6046 I(4) 4 scalar MPI_C_COMPLEX Param 6050 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 6052 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 6048 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 6054 I(4) 4 scalar MPI_DATATYPE_NULL Param 5850 I(4) 4 scalar 5965,6063,6065,6067,6069 MPI_DISPLACEMENT_CURRENT Param 6174 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 6166 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 6168 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 6172 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 6170 I(4) 4 scalar MPI_DIST_GRAPH Param 5918 I(4) 4 scalar MPI_DOUBLE Param 6008 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 5930 I(4) 4 scalar MPI_DOUBLE_INT Param 6020 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 5936 I(4) 4 scalar MPI_DUP_FN Subr 6182 scalar MPI_ERRHANDLER_NULL Param 5854 I(4) 4 scalar MPI_ERROR Param 5655 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 5782 I(4) 4 scalar MPI_ERRORS_RETURN Param 5784 I(4) 4 scalar MPI_ERR_ACCESS Param 5774 I(4) 4 scalar MPI_ERR_AMODE Param 5760 I(4) 4 scalar Page 110 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_ARG Param 5730 I(4) 4 scalar MPI_ERR_ASSERT Param 5736 I(4) 4 scalar MPI_ERR_BAD_FILE Param 5698 I(4) 4 scalar MPI_ERR_BASE Param 5728 I(4) 4 scalar MPI_ERR_BUFFER Param 5670 I(4) 4 scalar MPI_ERR_COMM Param 5748 I(4) 4 scalar MPI_ERR_CONVERSION Param 5764 I(4) 4 scalar MPI_ERR_COUNT Param 5674 I(4) 4 scalar MPI_ERR_DIMS Param 5712 I(4) 4 scalar MPI_ERR_DISP Param 5696 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 5678 I(4) 4 scalar MPI_ERR_FILE Param 5708 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 5690 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 5732 I(4) 4 scalar MPI_ERR_GROUP Param 5694 I(4) 4 scalar MPI_ERR_INFO Param 5722 I(4) 4 scalar MPI_ERR_INFO_KEY Param 5726 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 5706 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 5692 I(4) 4 scalar MPI_ERR_INTERN Param 5724 I(4) 4 scalar MPI_ERR_IN_STATUS Param 5710 I(4) 4 scalar MPI_ERR_IO Param 5770 I(4) 4 scalar MPI_ERR_KEYVAL Param 5716 I(4) 4 scalar MPI_ERR_LASTCODE Param 5738 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 5720 I(4) 4 scalar MPI_ERR_NAME Param 5714 I(4) 4 scalar MPI_ERR_NOT_SAME Param 5742 I(4) 4 scalar MPI_ERR_NO_MEM Param 5734 I(4) 4 scalar MPI_ERR_NO_SPACE Param 5666 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 5750 I(4) 4 scalar MPI_ERR_OP Param 5768 I(4) 4 scalar MPI_ERR_OTHER Param 5682 I(4) 4 scalar MPI_ERR_PENDING Param 5672 I(4) 4 scalar MPI_ERR_PORT Param 5754 I(4) 4 scalar MPI_ERR_QUOTA Param 5758 I(4) 4 scalar MPI_ERR_RANK Param 5680 I(4) 4 scalar MPI_ERR_READ_ONLY Param 5718 I(4) 4 scalar MPI_ERR_REQUEST Param 5762 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 5684 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 5688 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 5704 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 5766 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 5756 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 5668 I(4) 4 scalar MPI_ERR_ROOT Param 5700 I(4) 4 scalar MPI_ERR_SERVICE Param 5676 I(4) 4 scalar MPI_ERR_SIZE Param 5686 I(4) 4 scalar MPI_ERR_SPAWN Param 5746 I(4) 4 scalar MPI_ERR_TAG Param 5776 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 5780 I(4) 4 scalar MPI_ERR_TRUNCATE Param 5740 I(4) 4 scalar MPI_ERR_TYPE Param 5744 I(4) 4 scalar MPI_ERR_UNKNOWN Param 5778 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 5702 I(4) 4 scalar Page 111 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_UNSUPPORTED_OPERAT ION Param 5752 I(4) 4 scalar MPI_ERR_WIN Param 5772 I(4) 4 scalar MPI_FILE_NULL Param 5844 I(4) 4 scalar MPI_FLOAT Param 6006 I(4) 4 scalar MPI_FLOAT_INT Param 6018 I(4) 4 scalar MPI_GRAPH Param 5914 I(4) 4 scalar MPI_GROUP_EMPTY Param 5838 I(4) 4 scalar MPI_GROUP_NULL Param 5846 I(4) 4 scalar MPI_HOST Param 5862 I(4) 4 scalar MPI_IDENT Param 5786 I(4) 4 scalar MPI_INFO_ENV Param 5858 I(4) 4 scalar MPI_INFO_NULL Param 5856 I(4) 4 scalar MPI_INT Param 5998 I(4) 4 scalar MPI_INT16_T Param 6032 I(4) 4 scalar MPI_INT32_T Param 6034 I(4) 4 scalar MPI_INT64_T Param 6036 I(4) 4 scalar MPI_INT8_T Param 6030 I(4) 4 scalar MPI_INTEGER Param 5938 I(4) 4 scalar MPI_INTEGER1 Param 5956 I(4) 4 scalar MPI_INTEGER16 Param 5964 I(4) 4 scalar MPI_INTEGER2 Param 5958 I(4) 4 scalar MPI_INTEGER4 Param 5960 I(4) 4 scalar MPI_INTEGER8 Param 5962 I(4) 4 scalar MPI_INTEGER_KIND Param 5984 I(4) 4 scalar MPI_IO Param 5864 I(4) 4 scalar MPI_IRECV Subr 6292 6292,6301,6500,6509 MPI_ISEND Subr 6345 6345,6389,6554,6598 MPI_KEYVAL_INVALID Param 5902 I(4) 4 scalar MPI_LAND Param 5814 I(4) 4 scalar MPI_LASTUSEDCODE Param 5870 I(4) 4 scalar MPI_LB Param 5952 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 5924 I(4) 4 scalar MPI_LOCK_SHARED Param 5926 I(4) 4 scalar MPI_LOGICAL Param 5932 I(4) 4 scalar MPI_LONG Param 6002 I(4) 4 scalar MPI_LONG_DOUBLE Param 6010 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 6028 I(4) 4 scalar MPI_LONG_INT Param 6022 I(4) 4 scalar MPI_LONG_LONG Param 6016 I(4) 4 scalar MPI_LONG_LONG_INT Param 6012 I(4) 4 scalar MPI_LOR Param 5818 I(4) 4 scalar MPI_LXOR Param 5822 I(4) 4 scalar MPI_MAX Param 5806 I(4) 4 scalar MPI_MAXLOC Param 5828 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 5896 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 5884 I(4) 4 scalar MPI_MAX_INFO_KEY Param 5890 I(4) 4 scalar MPI_MAX_INFO_VAL Param 5892 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 5898 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 5888 I(4) 4 scalar MPI_MAX_PORT_NAME Param 5886 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 5894 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 6128 I(4) 4 scalar Page 112 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MESSAGE_NULL Param 6126 I(4) 4 scalar MPI_MIN Param 5808 I(4) 4 scalar MPI_MINLOC Param 5826 I(4) 4 scalar MPI_MODE_APPEND Param 6152 I(4) 4 scalar MPI_MODE_CREATE Param 6148 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 6144 I(4) 4 scalar MPI_MODE_EXCL Param 6150 I(4) 4 scalar MPI_MODE_NOCHECK Param 6114 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 6120 I(4) 4 scalar MPI_MODE_NOPUT Param 6118 I(4) 4 scalar MPI_MODE_NOSTORE Param 6116 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 6122 I(4) 4 scalar MPI_MODE_RDONLY Param 6138 I(4) 4 scalar MPI_MODE_RDWR Param 6140 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 6154 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 6146 I(4) 4 scalar MPI_MODE_WRONLY Param 6142 I(4) 4 scalar MPI_NO_OP Param 5832 I(4) 4 scalar MPI_NULL_COPY_FN Subr 6182 scalar MPI_NULL_DELETE_FN Subr 6182 scalar MPI_OFFSET Param 6058 I(4) 4 scalar MPI_OFFSET_KIND Param 5980 I(4) 4 scalar MPI_OP_NULL Param 5848 I(4) 4 scalar MPI_ORDER_C Param 6162 I(4) 4 scalar MPI_ORDER_FORTRAN Param 6164 I(4) 4 scalar MPI_PACKED Param 5954 I(4) 4 scalar MPI_PROC_NULL Param 5906 I(4) 4 scalar MPI_PROD Param 5812 I(4) 4 scalar MPI_REAL Param 5934 I(4) 4 scalar 6277 MPI_REAL16 Param 5970 I(4) 4 scalar MPI_REAL4 Param 5966 I(4) 4 scalar MPI_REAL8 Param 5968 I(4) 4 scalar MPI_REPLACE Param 5830 I(4) 4 scalar MPI_REQUEST_NULL Param 5852 I(4) 4 scalar MPI_ROOT Param 5912 I(4) 4 scalar MPI_SEEK_CUR Param 6158 I(4) 4 scalar MPI_SEEK_END Param 6160 I(4) 4 scalar MPI_SEEK_SET Param 6156 I(4) 4 scalar MPI_SHORT Param 5994 I(4) 4 scalar MPI_SHORT_INT Param 6024 I(4) 4 scalar MPI_SIGNED_CHAR Param 5988 I(4) 4 scalar MPI_SIMILAR Param 5790 I(4) 4 scalar MPI_SOURCE Param 5655 I(4) 4 scalar MPI_STATUS_SIZE Param 5657 I(4) 4 scalar 5659,5660,6268 MPI_SUBARRAYS_SUPPORTED Param 6176 L(4) 4 scalar MPI_SUBVERSION Param 5922 I(4) 4 scalar MPI_SUCCESS Param 5664 I(4) 4 scalar MPI_SUM Param 5810 I(4) 4 scalar MPI_TAG Param 5655 I(4) 4 scalar MPI_TAG_UB Param 5860 I(4) 4 scalar MPI_THREAD_FUNNELED Param 6132 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 6136 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 6134 I(4) 4 scalar MPI_THREAD_SINGLE Param 6130 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 6112 I(4) 4 scalar Page 113 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_TYPECLASS_INTEGER Param 6110 I(4) 4 scalar MPI_TYPECLASS_REAL Param 6108 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 6189 scalar MPI_TYPE_NULL_COPY_FN Subr 6190 scalar MPI_TYPE_NULL_DELETE_FN Subr 6189 scalar MPI_UB Param 5950 I(4) 4 scalar MPI_UINT16_T Param 6040 I(4) 4 scalar MPI_UINT32_T Param 6042 I(4) 4 scalar MPI_UINT64_T Param 6044 I(4) 4 scalar MPI_UINT8_T Param 6038 I(4) 4 scalar MPI_UNDEFINED Param 5900 I(4) 4 scalar MPI_UNEQUAL Param 5792 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 5868 I(4) 4 scalar MPI_UNSIGNED Param 6000 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 5990 I(4) 4 scalar MPI_UNSIGNED_LONG Param 6004 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 6014 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 5996 I(4) 4 scalar MPI_VERSION Param 5920 I(4) 4 scalar MPI_WAIT Subr 6401 6401,6444,6480,6484,6610,6653,6689 ,6693 MPI_WCHAR Param 5992 I(4) 4 scalar MPI_WIN_BASE Param 5874 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 5880 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 5878 I(4) 4 scalar MPI_WIN_DUP_FN Subr 6187 scalar MPI_WIN_FLAVOR_ALLOCATE Param 5796 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 5794 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 5798 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 5800 I(4) 4 scalar MPI_WIN_MODEL Param 5882 I(4) 4 scalar MPI_WIN_NULL Param 5842 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 6188 scalar MPI_WIN_NULL_DELETE_FN Subr 6187 scalar MPI_WIN_SEPARATE Param 5802 I(4) 4 scalar MPI_WIN_SIZE Param 5876 I(4) 4 scalar MPI_WIN_UNIFIED Param 5804 I(4) 4 scalar MPI_WTICK Func 6183 R(8) 8 scalar MPI_WTIME Func 6183 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 5866 I(4) 4 scalar MPPCOM Common 6210 1724 SAVE NEBPE Local 6518 I(4) 4 scalar 6518 PMPI_WTICK Func 6184 R(8) 8 scalar PMPI_WTIME Func 6184 R(8) 8 scalar TEMPCOM Common 6251 6603768 SAVE TOPO Common 6259 17478548 SAVE Page 114 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F 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 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 6293,6302,6346,6390,6501,6510,6555 ,6599 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 Page 115 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MYIE I(4) 4 52 scalar COM 6311,6355,6399,6442,6519,6520,6650 ,6651 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 6310,6354,6398,6441,6563,6564,6607 ,6608 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 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 6317,6325,6333,6341,6449,6457,6465 ,6473,6523,6531,6539,6547,6567,657 5,6583,6591,6612,6620,6628,6636,66 55,6663,6671,6679 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 Page 116 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 6361,6369,6377,6385,6406,6414,6422 ,6430,6523,6531,6539,6547,6567,657 5,6583,6591,6612,6620,6628,6636,66 55,6663,6671,6679 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 6345,6389,6554,6598 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 6291,6292,6300,6301,6309,6345,6353 ,6389,6397,6440,6479,6483,6499,650 0,6508,6509,6517,6518,6554,6562,65 98,6606,6649,6688,6692 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 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 Page 117 Source Listing EXCH1111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 118 Source Listing EXCH1111 2025-03-12 18:22 module_EXCHM.F 6698 6699 SUBROUTINE EXCH11111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 6700 * ARR4,LL4,ARR5,LL5,IHALO,JHALO) 6701 USE EXCH_BUF_REAL 6702 INCLUDE "parmeta" 6726 INCLUDE "mpif.h" 7288 INCLUDE "mpp.h" 7289 C----------------------------------------------------------------------- 7348 INTEGER ISTAT(MPI_STATUS_SIZE) 7349 INTEGER IHANDLE(4) 7350 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 7351 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 7352 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 7353 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 7354 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 7355 C 7356 C*********************************************************************** 7357 C 7358 ITYPE=MPI_REAL 7359 C 7360 C-------------------------------------------------------------------- 7361 C-------------------------------------------------------------------- 7362 C*** 7363 C*** NORTH/SOUTH 7364 C*** 7365 C-------------------------------------------------------------------- 7366 C-------------------------------------------------------------------- 7367 C 7368 C-------------------------------------------------------------------- 7369 C RECEIVE FROM NORTH 7370 C-------------------------------------------------------------------- 7371 C 7372 IF(MY_NEB(1).GE.0)THEN 7373 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 7374 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 7375 ENDIF 7376 C 7377 C-------------------------------------------------------------------- 7378 C RECEIVE FROM SOUTH 7379 C-------------------------------------------------------------------- 7380 C 7381 IF(MY_NEB(3).GE.0)THEN 7382 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 7383 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 7384 ENDIF 7385 C 7386 C-------------------------------------------------------------------- 7387 C SEND TO NORTH 7388 C-------------------------------------------------------------------- 7389 C 7390 IF(MY_NEB(1).GE.0)THEN 7391 IBEG=MYIS-IHALO 7392 IEND=MYIE+IHALO 7393 IC = 0 7394 DO K=1,LL1 7395 DO J=0,JHALO-1 7396 DO I=IBEG,IEND Page 119 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7397 IC = IC + 1 7398 BUF2(IC)=ARR1(I,MYJE-J,K) 7399 ENDDO 7400 ENDDO 7401 ENDDO 7402 DO K=1,LL2 7403 DO J=0,JHALO-1 7404 DO I=IBEG,IEND 7405 IC = IC + 1 7406 BUF2(IC)=ARR2(I,MYJE-J,K) 7407 ENDDO 7408 ENDDO 7409 ENDDO 7410 DO K=1,LL3 7411 DO J=0,JHALO-1 7412 DO I=IBEG,IEND 7413 IC = IC + 1 7414 BUF2(IC)=ARR3(I,MYJE-J,K) 7415 ENDDO 7416 ENDDO 7417 ENDDO 7418 DO K=1,LL4 7419 DO J=0,JHALO-1 7420 DO I=IBEG,IEND 7421 IC = IC + 1 7422 BUF2(IC)=ARR4(I,MYJE-J,K) 7423 ENDDO 7424 ENDDO 7425 ENDDO 7426 DO K=1,LL5 7427 DO J=0,JHALO-1 7428 DO I=IBEG,IEND 7429 IC = IC + 1 7430 BUF2(IC)=ARR5(I,MYJE-J,K) 7431 ENDDO 7432 ENDDO 7433 ENDDO 7434 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 7435 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 7436 ENDIF 7437 C 7438 C-------------------------------------------------------------------- 7439 C SEND TO SOUTH 7440 C-------------------------------------------------------------------- 7441 C 7442 IF(MY_NEB(3).GE.0)THEN 7443 IBEG=MYIS-IHALO 7444 IEND=MYIE+IHALO 7445 IC = 0 7446 DO K=1,LL1 7447 DO J=0,JHALO-1 7448 DO I=IBEG,IEND 7449 IC = IC + 1 7450 BUF3(IC)=ARR1(I,MYJS+J,K) 7451 ENDDO 7452 ENDDO 7453 ENDDO Page 120 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7454 DO K=1,LL2 7455 DO J=0,JHALO-1 7456 DO I=IBEG,IEND 7457 IC = IC + 1 7458 BUF3(IC)=ARR2(I,MYJS+J,K) 7459 ENDDO 7460 ENDDO 7461 ENDDO 7462 DO K=1,LL3 7463 DO J=0,JHALO-1 7464 DO I=IBEG,IEND 7465 IC = IC + 1 7466 BUF3(IC)=ARR3(I,MYJS+J,K) 7467 ENDDO 7468 ENDDO 7469 ENDDO 7470 DO K=1,LL4 7471 DO J=0,JHALO-1 7472 DO I=IBEG,IEND 7473 IC = IC + 1 7474 BUF3(IC)=ARR4(I,MYJS+J,K) 7475 ENDDO 7476 ENDDO 7477 ENDDO 7478 DO K=1,LL5 7479 DO J=0,JHALO-1 7480 DO I=IBEG,IEND 7481 IC = IC + 1 7482 BUF3(IC)=ARR5(I,MYJS+J,K) 7483 ENDDO 7484 ENDDO 7485 ENDDO 7486 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 7487 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 7488 ENDIF 7489 C 7490 C-------------------------------------------------------------------- 7491 C STORE RESULTS FROM SOUTH 7492 C-------------------------------------------------------------------- 7493 C 7494 IF(MY_NEB(3).GE.0)THEN 7495 IBEG=MYIS-IHALO 7496 IEND=MYIE+IHALO 7497 IC = 0 7498 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 7499 DO K=1,LL1 7500 DO J=0,JHALO-1 7501 DO I=IBEG,IEND 7502 IC = IC + 1 7503 ARR1(I,MYJS-J-1,K)=BUF1(IC) 7504 ENDDO 7505 ENDDO 7506 ENDDO 7507 DO K=1,LL2 7508 DO J=0,JHALO-1 7509 DO I=IBEG,IEND 7510 IC = IC + 1 Page 121 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7511 ARR2(I,MYJS-J-1,K)=BUF1(IC) 7512 ENDDO 7513 ENDDO 7514 ENDDO 7515 DO K=1,LL3 7516 DO J=0,JHALO-1 7517 DO I=IBEG,IEND 7518 IC = IC + 1 7519 ARR3(I,MYJS-J-1,K)=BUF1(IC) 7520 ENDDO 7521 ENDDO 7522 ENDDO 7523 DO K=1,LL4 7524 DO J=0,JHALO-1 7525 DO I=IBEG,IEND 7526 IC = IC + 1 7527 ARR4(I,MYJS-J-1,K)=BUF1(IC) 7528 ENDDO 7529 ENDDO 7530 ENDDO 7531 DO K=1,LL5 7532 DO J=0,JHALO-1 7533 DO I=IBEG,IEND 7534 IC = IC + 1 7535 ARR5(I,MYJS-J-1,K)=BUF1(IC) 7536 ENDDO 7537 ENDDO 7538 ENDDO 7539 ENDIF 7540 C 7541 C-------------------------------------------------------------------- 7542 C STORE FROM NORTH 7543 C-------------------------------------------------------------------- 7544 C 7545 IF(MY_NEB(1).GE.0)THEN 7546 IBEG=MYIS-IHALO 7547 IEND=MYIE+IHALO 7548 IC = 0 7549 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 7550 DO K=1,LL1 7551 DO J=0,JHALO-1 7552 DO I=IBEG,IEND 7553 IC = IC + 1 7554 ARR1(I,MYJE+J+1,K)=BUF0(IC) 7555 ENDDO 7556 ENDDO 7557 ENDDO 7558 DO K=1,LL2 7559 DO J=0,JHALO-1 7560 DO I=IBEG,IEND 7561 IC = IC + 1 7562 ARR2(I,MYJE+J+1,K)=BUF0(IC) 7563 ENDDO 7564 ENDDO 7565 ENDDO 7566 DO K=1,LL3 7567 DO J=0,JHALO-1 Page 122 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7568 DO I=IBEG,IEND 7569 IC = IC + 1 7570 ARR3(I,MYJE+J+1,K)=BUF0(IC) 7571 ENDDO 7572 ENDDO 7573 ENDDO 7574 DO K=1,LL4 7575 DO J=0,JHALO-1 7576 DO I=IBEG,IEND 7577 IC = IC + 1 7578 ARR4(I,MYJE+J+1,K)=BUF0(IC) 7579 ENDDO 7580 ENDDO 7581 ENDDO 7582 DO K=1,LL5 7583 DO J=0,JHALO-1 7584 DO I=IBEG,IEND 7585 IC = IC + 1 7586 ARR5(I,MYJE+J+1,K)=BUF0(IC) 7587 ENDDO 7588 ENDDO 7589 ENDDO 7590 ENDIF 7591 C 7592 IF(MY_NEB(1).GE.0)THEN 7593 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 7594 ENDIF 7595 C 7596 IF(MY_NEB(3).GE.0)THEN 7597 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 7598 ENDIF 7599 C 7600 C-------------------------------------------------------------------- 7601 C-------------------------------------------------------------------- 7602 C*** 7603 C*** EAST/WEST 7604 C*** 7605 C-------------------------------------------------------------------- 7606 C-------------------------------------------------------------------- 7607 C 7608 C-------------------------------------------------------------------- 7609 C RECEIVE FROM WEST 7610 C-------------------------------------------------------------------- 7611 C 7612 IF(MY_NEB(4).GE.0)THEN 7613 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 7614 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 7615 ENDIF 7616 C 7617 C-------------------------------------------------------------------- 7618 C RECEIVE FROM EAST 7619 C-------------------------------------------------------------------- 7620 C 7621 IF(MY_NEB(2).GE.0)THEN 7622 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 7623 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 7624 ENDIF Page 123 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7625 C 7626 C-------------------------------------------------------------------- 7627 C SEND TO EAST 7628 C-------------------------------------------------------------------- 7629 C 7630 IF(MY_NEB(2).GE.0)THEN 7631 IBEG=MYIE-IHALO+1 7632 IEND=MYIE 7633 IC = 0 7634 DO K=1,LL1 7635 DO J=MYJS-JHALO,MYJE+JHALO 7636 DO I=IBEG,IEND 7637 IC = IC + 1 7638 BUF2(IC)=ARR1(I,J,K) 7639 ENDDO 7640 ENDDO 7641 ENDDO 7642 DO K=1,LL2 7643 DO J=MYJS-JHALO,MYJE+JHALO 7644 DO I=IBEG,IEND 7645 IC = IC + 1 7646 BUF2(IC)=ARR2(I,J,K) 7647 ENDDO 7648 ENDDO 7649 ENDDO 7650 DO K=1,LL3 7651 DO J=MYJS-JHALO,MYJE+JHALO 7652 DO I=IBEG,IEND 7653 IC = IC + 1 7654 BUF2(IC)=ARR3(I,J,K) 7655 ENDDO 7656 ENDDO 7657 ENDDO 7658 DO K=1,LL4 7659 DO J=MYJS-JHALO,MYJE+JHALO 7660 DO I=IBEG,IEND 7661 IC = IC + 1 7662 BUF2(IC)=ARR4(I,J,K) 7663 ENDDO 7664 ENDDO 7665 ENDDO 7666 DO K=1,LL5 7667 DO J=MYJS-JHALO,MYJE+JHALO 7668 DO I=IBEG,IEND 7669 IC = IC + 1 7670 BUF2(IC)=ARR5(I,J,K) 7671 ENDDO 7672 ENDDO 7673 ENDDO 7674 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 7675 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 7676 ENDIF 7677 C 7678 C-------------------------------------------------------------------- 7679 C SEND TO WEST 7680 C-------------------------------------------------------------------- 7681 C Page 124 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7682 IF(MY_NEB(4).GE.0)THEN 7683 IBEG=MYIS 7684 IEND=MYIS+IHALO-1 7685 IC = 0 7686 DO K=1,LL1 7687 DO J=MYJS-JHALO,MYJE+JHALO 7688 DO I=IBEG,IEND 7689 IC = IC + 1 7690 BUF3(IC)=ARR1(I,J,K) 7691 ENDDO 7692 ENDDO 7693 ENDDO 7694 DO K=1,LL2 7695 DO J=MYJS-JHALO,MYJE+JHALO 7696 DO I=IBEG,IEND 7697 IC = IC + 1 7698 BUF3(IC)=ARR2(I,J,K) 7699 ENDDO 7700 ENDDO 7701 ENDDO 7702 DO K=1,LL3 7703 DO J=MYJS-JHALO,MYJE+JHALO 7704 DO I=IBEG,IEND 7705 IC = IC + 1 7706 BUF3(IC)=ARR3(I,J,K) 7707 ENDDO 7708 ENDDO 7709 ENDDO 7710 DO K=1,LL4 7711 DO J=MYJS-JHALO,MYJE+JHALO 7712 DO I=IBEG,IEND 7713 IC = IC + 1 7714 BUF3(IC)=ARR4(I,J,K) 7715 ENDDO 7716 ENDDO 7717 ENDDO 7718 DO K=1,LL5 7719 DO J=MYJS-JHALO,MYJE+JHALO 7720 DO I=IBEG,IEND 7721 IC = IC + 1 7722 BUF3(IC)=ARR5(I,J,K) 7723 ENDDO 7724 ENDDO 7725 ENDDO 7726 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 7727 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 7728 ENDIF 7729 C 7730 C-------------------------------------------------------------------- 7731 C STORE FROM WEST 7732 C-------------------------------------------------------------------- 7733 C 7734 IF(MY_NEB(4).GE.0)THEN 7735 IBEG=MYIS-IHALO 7736 IEND=MYIS-1 7737 IC = 0 7738 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) Page 125 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7739 DO K=1,LL1 7740 DO J=MYJS-JHALO,MYJE+JHALO 7741 DO I=IBEG,IEND 7742 IC = IC + 1 7743 ARR1(I,J,K)=BUF0(IC) 7744 ENDDO 7745 ENDDO 7746 ENDDO 7747 DO K=1,LL2 7748 DO J=MYJS-JHALO,MYJE+JHALO 7749 DO I=IBEG,IEND 7750 IC = IC + 1 7751 ARR2(I,J,K)=BUF0(IC) 7752 ENDDO 7753 ENDDO 7754 ENDDO 7755 DO K=1,LL3 7756 DO J=MYJS-JHALO,MYJE+JHALO 7757 DO I=IBEG,IEND 7758 IC = IC + 1 7759 ARR3(I,J,K)=BUF0(IC) 7760 ENDDO 7761 ENDDO 7762 ENDDO 7763 DO K=1,LL4 7764 DO J=MYJS-JHALO,MYJE+JHALO 7765 DO I=IBEG,IEND 7766 IC = IC + 1 7767 ARR4(I,J,K)=BUF0(IC) 7768 ENDDO 7769 ENDDO 7770 ENDDO 7771 DO K=1,LL5 7772 DO J=MYJS-JHALO,MYJE+JHALO 7773 DO I=IBEG,IEND 7774 IC = IC + 1 7775 ARR5(I,J,K)=BUF0(IC) 7776 ENDDO 7777 ENDDO 7778 ENDDO 7779 ENDIF 7780 C 7781 C-------------------------------------------------------------------- 7782 C STORE FROM EAST 7783 C-------------------------------------------------------------------- 7784 C 7785 IF(MY_NEB(2).GE.0)THEN 7786 IBEG=MYIE+1 7787 IEND=MYIE+IHALO 7788 IC = 0 7789 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 7790 DO K=1,LL1 7791 DO J=MYJS-JHALO,MYJE+JHALO 7792 DO I=IBEG,IEND 7793 IC = IC + 1 7794 ARR1(I,J,K)=BUF1(IC) 7795 ENDDO Page 126 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7796 ENDDO 7797 ENDDO 7798 DO K=1,LL2 7799 DO J=MYJS-JHALO,MYJE+JHALO 7800 DO I=IBEG,IEND 7801 IC = IC + 1 7802 ARR2(I,J,K)=BUF1(IC) 7803 ENDDO 7804 ENDDO 7805 ENDDO 7806 DO K=1,LL3 7807 DO J=MYJS-JHALO,MYJE+JHALO 7808 DO I=IBEG,IEND 7809 IC = IC + 1 7810 ARR3(I,J,K)=BUF1(IC) 7811 ENDDO 7812 ENDDO 7813 ENDDO 7814 DO K=1,LL4 7815 DO J=MYJS-JHALO,MYJE+JHALO 7816 DO I=IBEG,IEND 7817 IC = IC + 1 7818 ARR4(I,J,K)=BUF1(IC) 7819 ENDDO 7820 ENDDO 7821 ENDDO 7822 DO K=1,LL5 7823 DO J=MYJS-JHALO,MYJE+JHALO 7824 DO I=IBEG,IEND 7825 IC = IC + 1 7826 ARR5(I,J,K)=BUF1(IC) 7827 ENDDO 7828 ENDDO 7829 ENDDO 7830 ENDIF 7831 C 7832 IF(MY_NEB(4).GE.0)THEN 7833 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 7834 ENDIF 7835 C 7836 IF(MY_NEB(2).GE.0)THEN 7837 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 7838 ENDIF 7839 C 7840 C-------------------------------------------------------------------- 7841 END SUBROUTINE Page 127 Source Listing EXCH11111 2025-03-12 18:22 Entry Points module_EXCHM.F ENTRY POINTS Name exchm_mp_exch11111_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 6699 R(4) 4 3 0 ARG,INOUT 7398,7450,7503,7554,7638,7690,7743 ,7794 ARR2 Dummy 6699 R(4) 4 3 0 ARG,INOUT 7406,7458,7511,7562,7646,7698,7751 ,7802 ARR3 Dummy 6699 R(4) 4 3 0 ARG,INOUT 7414,7466,7519,7570,7654,7706,7759 ,7810 ARR4 Dummy 6700 R(4) 4 3 0 ARG,INOUT 7422,7474,7527,7578,7662,7714,7767 ,7818 ARR5 Dummy 6700 R(4) 4 3 0 ARG,INOUT 7430,7482,7535,7586,7670,7722,7775 ,7826 BUF0 Local 7373 R(4) 4 1 2500000 7373,7554,7562,7570,7578,7586,7613 ,7743,7751,7759,7767,7775 BUF1 Local 7382 R(4) 4 1 2500000 7382,7503,7511,7519,7527,7535,7622 ,7794,7802,7810,7818,7826 BUF2 Local 7398 R(4) 4 1 2500000 7398,7406,7414,7422,7430,7434,7638 ,7646,7654,7662,7670,7674 BUF3 Local 7450 R(4) 4 1 2500000 7450,7458,7466,7474,7482,7486,7690 ,7698,7706,7714,7722,7726 EXCH11111 Subr 6699 EXCH_BUF_REAL Module 6701 6701 GLB_TABLE Common 7326 336 SAVE I Local 7396 I(4) 4 scalar 7396,7398,7404,7406,7412,7414,7420 ,7422,7428,7430,7448,7450,7456,745 8,7464,7466,7472,7474,7480,7482,75 01,7503,7509,7511,7517,7519,7525,7 527,7533,7535,7552,7554,7560,7562, 7568,7570,7576,7578,7584,7586,7636 ,7638,7644,7646,7652,7654,7660,766 2,7668,7670,7688,7690,7696,7698,77 04,7706,7712,7714,7720,7722,7741,7 743,7749,7751,7757,7759,7765,7767, 7773,7775,7792,7794,7800,7802,7808 ,7810,7816,7818,7824,7826 IBEG Local 7391 I(4) 4 scalar 7391,7396,7404,7412,7420,7428,7443 ,7448,7456,7464,7472,7480,7495,750 1,7509,7517,7525,7533,7546,7552,75 60,7568,7576,7584,7631,7636,7644,7 652,7660,7668,7683,7688,7696,7704, 7712,7720,7735,7741,7749,7757,7765 ,7773,7786,7792,7800,7808,7816,782 4 IBUFEXCH Param 7373 I(4) 4 scalar 7373,7382,7613,7622 IC Local 7393 I(4) 4 scalar 7393,7397,7398,7405,7406,7413,7414 ,7421,7422,7429,7430,7434,7445,744 Page 128 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 9,7450,7457,7458,7465,7466,7473,74 74,7481,7482,7486,7497,7502,7503,7 510,7511,7518,7519,7526,7527,7534, 7535,7548,7553,7554,7561,7562,7569 ,7570,7577,7578,7585,7586,7633,763 7,7638,7645,7646,7653,7654,7661,76 62,7669,7670,7674,7685,7689,7690,7 697,7698,7705,7706,7713,7714,7721, 7722,7726,7737,7742,7743,7750,7751 ,7758,7759,7766,7767,7774,7775,778 8,7793,7794,7801,7802,7809,7810,78 17,7818,7825,7826 IDIM1 Param 6722 I(4) 4 scalar 7350,7351,7352,7353,7354 IDIM2 Param 6722 I(4) 4 scalar 7350,7351,7352,7353,7354 IEND Local 7392 I(4) 4 scalar 7392,7396,7404,7412,7420,7428,7444 ,7448,7456,7464,7472,7480,7496,750 1,7509,7517,7525,7533,7547,7552,75 60,7568,7576,7584,7632,7636,7644,7 652,7660,7668,7684,7688,7696,7704, 7712,7720,7736,7741,7749,7757,7765 ,7773,7787,7792,7800,7808,7816,782 4 IERR Local 7498 I(4) 4 scalar 7498,7549,7593,7597,7738,7789,7833 ,7837 IGSTL Param 6717 I(4) 4 scalar 6722 IGSTR Param 6717 I(4) 4 scalar 6722 IHALO Dummy 6700 I(4) 4 scalar ARG,INOUT 7391,7392,7443,7444,7495,7496,7546 ,7547,7631,7684,7735,7787 IHANDLE Local 7349 I(4) 4 1 4 7374,7383,7435,7487,7498,7549,7593 ,7597,7614,7623,7675,7727,7738,778 9,7833,7837 IM Param 6705 I(4) 4 scalar 6719,6722,7332,7333,7334,7335,7336 ,7340,7341,7346 INPES Param 6714 I(4) 4 scalar 6719,6722,7316,7317,7318,7327,7328 IRECV Local 7374 I(4) 4 scalar 7374,7383,7614,7623 ISEND Local 7435 I(4) 4 scalar 7435,7487,7675,7727 ISTAT Local 7348 I(4) 4 1 5 7498,7549,7593,7597,7738,7789,7833 ,7837 ITAIL Param 6719 I(4) 4 scalar ITYPE Local 7358 I(4) 4 scalar 7358,7373,7382,7434,7486,7613,7622 ,7674,7726 J Local 7395 I(4) 4 scalar 7395,7398,7403,7406,7411,7414,7419 ,7422,7427,7430,7447,7450,7455,745 8,7463,7466,7471,7474,7479,7482,75 00,7503,7508,7511,7516,7519,7524,7 527,7532,7535,7551,7554,7559,7562, 7567,7570,7575,7578,7583,7586,7635 ,7638,7643,7646,7651,7654,7659,766 2,7667,7670,7687,7690,7695,7698,77 03,7706,7711,7714,7719,7722,7740,7 743,7748,7751,7756,7759,7764,7767, 7772,7775,7791,7794,7799,7802,7807 ,7810,7815,7818,7823,7826 JDIM1 Param 6723 I(4) 4 scalar 7350,7351,7352,7353,7354 JDIM2 Param 6723 I(4) 4 scalar 7350,7351,7352,7353,7354 Page 129 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References JGSTL Param 6718 I(4) 4 scalar 6723 JGSTR Param 6718 I(4) 4 scalar 6723 JHALO Dummy 6700 I(4) 4 scalar ARG,INOUT 7395,7403,7411,7419,7427,7447,7455 ,7463,7471,7479,7500,7508,7516,752 4,7532,7551,7559,7567,7575,7583,76 35,7643,7651,7659,7667,7687,7695,7 703,7711,7719,7740,7748,7756,7764, 7772,7791,7799,7807,7815,7823 JM Param 6705 I(4) 4 scalar 6720,6723,7332,7333,7334,7335,7336 ,7340,7341,7346 JNPES Param 6714 I(4) 4 scalar 6720,6723,7316,7317,7318,7327,7328 JTAIL Param 6720 I(4) 4 scalar K Local 7394 I(4) 4 scalar 7394,7398,7402,7406,7410,7414,7418 ,7422,7426,7430,7446,7450,7454,745 8,7462,7466,7470,7474,7478,7482,74 99,7503,7507,7511,7515,7519,7523,7 527,7531,7535,7550,7554,7558,7562, 7566,7570,7574,7578,7582,7586,7634 ,7638,7642,7646,7650,7654,7658,766 2,7666,7670,7686,7690,7694,7698,77 02,7706,7710,7714,7718,7722,7739,7 743,7747,7751,7755,7759,7763,7767, 7771,7775,7790,7794,7798,7802,7806 ,7810,7814,7818,7822,7826 LL1 Dummy 6699 I(4) 4 scalar ARG,INOUT 7394,7446,7499,7550,7634,7686,7739 ,7790 LL2 Dummy 6699 I(4) 4 scalar ARG,INOUT 7402,7454,7507,7558,7642,7694,7747 ,7798 LL3 Dummy 6699 I(4) 4 scalar ARG,INOUT 7410,7462,7515,7566,7650,7702,7755 ,7806 LL4 Dummy 6700 I(4) 4 scalar ARG,INOUT 7418,7470,7523,7574,7658,7710,7763 ,7814 LL5 Dummy 6700 I(4) 4 scalar ARG,INOUT 7426,7478,7531,7582,7666,7718,7771 ,7822 LM Param 6705 I(4) 4 scalar 7341 LSM Param 6705 I(4) 4 scalar MAPPINGS Common 7345 5024 SAVE MPIFCMB5 Common 7276 4 SAVE MPIFCMB9 Common 7277 4 SAVE MPIPRIV1 Common 7281 28 SAVE MPIPRIV2 Common 7283 24 SAVE MPIPRIVC Common 7286 2 SAVE MPI_2DOUBLE_PRECISION Param 7022 I(4) 4 scalar MPI_2INT Param 7106 I(4) 4 scalar MPI_2INTEGER Param 7020 I(4) 4 scalar MPI_2REAL Param 7024 I(4) 4 scalar MPI_ADDRESS_KIND Param 7058 I(4) 4 scalar MPI_AINT Param 7136 I(4) 4 scalar MPI_ANY_SOURCE Param 6988 I(4) 4 scalar MPI_ANY_TAG Param 6990 I(4) 4 scalar MPI_APPNUM Param 6952 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 7258 L(4) 4 scalar MPI_BAND Param 6896 I(4) 4 scalar MPI_BOR Param 6900 I(4) 4 scalar Page 130 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BSEND_OVERHEAD Param 6984 I(4) 4 scalar MPI_BXOR Param 6904 I(4) 4 scalar MPI_BYTE Param 7028 I(4) 4 scalar MPI_CART Param 6996 I(4) 4 scalar MPI_CHAR Param 7066 I(4) 4 scalar MPI_CHARACTER Param 7026 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 7154 I(4) 4 scalar MPI_COMBINER_DARRAY Param 7176 I(4) 4 scalar MPI_COMBINER_DUP Param 7152 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 7180 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 7182 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 7178 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 7166 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 7186 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 7164 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 7160 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 7158 I(4) 4 scalar MPI_COMBINER_INDEXED Param 7162 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 7168 I(4) 4 scalar MPI_COMBINER_NAMED Param 7150 I(4) 4 scalar MPI_COMBINER_RESIZED Param 7184 I(4) 4 scalar MPI_COMBINER_STRUCT Param 7172 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 7170 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 7174 I(4) 4 scalar MPI_COMBINER_VECTOR Param 7156 I(4) 4 scalar MPI_COMM_DUP_FN Subr 7265 scalar MPI_COMM_NULL Param 6920 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 7266 scalar MPI_COMM_NULL_DELETE_FN Subr 7265 scalar MPI_COMM_SELF Param 6916 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 7204 I(4) 4 scalar MPI_COMM_WORLD Param 6914 I(4) 4 scalar MPI_COMPLEX Param 7008 I(4) 4 scalar MPI_COMPLEX16 Param 7054 I(4) 4 scalar MPI_COMPLEX32 Param 7056 I(4) 4 scalar MPI_COMPLEX8 Param 7052 I(4) 4 scalar MPI_CONGRUENT Param 6868 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 7271 scalar MPI_COUNT Param 7140 I(4) 4 scalar MPI_COUNT_KIND Param 7062 I(4) 4 scalar MPI_CXX_BOOL Param 7142 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 7146 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 7144 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 7148 I(4) 4 scalar MPI_C_BOOL Param 7126 I(4) 4 scalar MPI_C_COMPLEX Param 7130 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 7132 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 7128 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 7134 I(4) 4 scalar MPI_DATATYPE_NULL Param 6930 I(4) 4 scalar 7045,7143,7145,7147,7149 Page 131 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DISPLACEMENT_CURRENT Param 7254 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 7246 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 7248 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 7252 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 7250 I(4) 4 scalar MPI_DIST_GRAPH Param 6998 I(4) 4 scalar MPI_DOUBLE Param 7088 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 7010 I(4) 4 scalar MPI_DOUBLE_INT Param 7100 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 7016 I(4) 4 scalar MPI_DUP_FN Subr 7262 scalar MPI_ERRHANDLER_NULL Param 6934 I(4) 4 scalar MPI_ERROR Param 6735 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 6862 I(4) 4 scalar MPI_ERRORS_RETURN Param 6864 I(4) 4 scalar MPI_ERR_ACCESS Param 6854 I(4) 4 scalar MPI_ERR_AMODE Param 6840 I(4) 4 scalar MPI_ERR_ARG Param 6810 I(4) 4 scalar MPI_ERR_ASSERT Param 6816 I(4) 4 scalar MPI_ERR_BAD_FILE Param 6778 I(4) 4 scalar MPI_ERR_BASE Param 6808 I(4) 4 scalar MPI_ERR_BUFFER Param 6750 I(4) 4 scalar MPI_ERR_COMM Param 6828 I(4) 4 scalar MPI_ERR_CONVERSION Param 6844 I(4) 4 scalar MPI_ERR_COUNT Param 6754 I(4) 4 scalar MPI_ERR_DIMS Param 6792 I(4) 4 scalar MPI_ERR_DISP Param 6776 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 6758 I(4) 4 scalar MPI_ERR_FILE Param 6788 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 6770 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 6812 I(4) 4 scalar MPI_ERR_GROUP Param 6774 I(4) 4 scalar MPI_ERR_INFO Param 6802 I(4) 4 scalar MPI_ERR_INFO_KEY Param 6806 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 6786 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 6772 I(4) 4 scalar MPI_ERR_INTERN Param 6804 I(4) 4 scalar MPI_ERR_IN_STATUS Param 6790 I(4) 4 scalar MPI_ERR_IO Param 6850 I(4) 4 scalar MPI_ERR_KEYVAL Param 6796 I(4) 4 scalar MPI_ERR_LASTCODE Param 6818 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 6800 I(4) 4 scalar MPI_ERR_NAME Param 6794 I(4) 4 scalar MPI_ERR_NOT_SAME Param 6822 I(4) 4 scalar MPI_ERR_NO_MEM Param 6814 I(4) 4 scalar MPI_ERR_NO_SPACE Param 6746 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 6830 I(4) 4 scalar MPI_ERR_OP Param 6848 I(4) 4 scalar MPI_ERR_OTHER Param 6762 I(4) 4 scalar MPI_ERR_PENDING Param 6752 I(4) 4 scalar MPI_ERR_PORT Param 6834 I(4) 4 scalar MPI_ERR_QUOTA Param 6838 I(4) 4 scalar MPI_ERR_RANK Param 6760 I(4) 4 scalar MPI_ERR_READ_ONLY Param 6798 I(4) 4 scalar MPI_ERR_REQUEST Param 6842 I(4) 4 scalar Page 132 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_RMA_ATTACH Param 6764 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 6768 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 6784 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 6846 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 6836 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 6748 I(4) 4 scalar MPI_ERR_ROOT Param 6780 I(4) 4 scalar MPI_ERR_SERVICE Param 6756 I(4) 4 scalar MPI_ERR_SIZE Param 6766 I(4) 4 scalar MPI_ERR_SPAWN Param 6826 I(4) 4 scalar MPI_ERR_TAG Param 6856 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 6860 I(4) 4 scalar MPI_ERR_TRUNCATE Param 6820 I(4) 4 scalar MPI_ERR_TYPE Param 6824 I(4) 4 scalar MPI_ERR_UNKNOWN Param 6858 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 6782 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 6832 I(4) 4 scalar MPI_ERR_WIN Param 6852 I(4) 4 scalar MPI_FILE_NULL Param 6924 I(4) 4 scalar MPI_FLOAT Param 7086 I(4) 4 scalar MPI_FLOAT_INT Param 7098 I(4) 4 scalar MPI_GRAPH Param 6994 I(4) 4 scalar MPI_GROUP_EMPTY Param 6918 I(4) 4 scalar MPI_GROUP_NULL Param 6926 I(4) 4 scalar MPI_HOST Param 6942 I(4) 4 scalar MPI_IDENT Param 6866 I(4) 4 scalar MPI_INFO_ENV Param 6938 I(4) 4 scalar MPI_INFO_NULL Param 6936 I(4) 4 scalar MPI_INT Param 7078 I(4) 4 scalar MPI_INT16_T Param 7112 I(4) 4 scalar MPI_INT32_T Param 7114 I(4) 4 scalar MPI_INT64_T Param 7116 I(4) 4 scalar MPI_INT8_T Param 7110 I(4) 4 scalar MPI_INTEGER Param 7018 I(4) 4 scalar MPI_INTEGER1 Param 7036 I(4) 4 scalar MPI_INTEGER16 Param 7044 I(4) 4 scalar MPI_INTEGER2 Param 7038 I(4) 4 scalar MPI_INTEGER4 Param 7040 I(4) 4 scalar MPI_INTEGER8 Param 7042 I(4) 4 scalar MPI_INTEGER_KIND Param 7064 I(4) 4 scalar MPI_IO Param 6944 I(4) 4 scalar MPI_IRECV Subr 7373 7373,7382,7613,7622 MPI_ISEND Subr 7434 7434,7486,7674,7726 MPI_KEYVAL_INVALID Param 6982 I(4) 4 scalar MPI_LAND Param 6894 I(4) 4 scalar MPI_LASTUSEDCODE Param 6950 I(4) 4 scalar MPI_LB Param 7032 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 7004 I(4) 4 scalar MPI_LOCK_SHARED Param 7006 I(4) 4 scalar MPI_LOGICAL Param 7012 I(4) 4 scalar MPI_LONG Param 7082 I(4) 4 scalar MPI_LONG_DOUBLE Param 7090 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 7108 I(4) 4 scalar Page 133 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_INT Param 7102 I(4) 4 scalar MPI_LONG_LONG Param 7096 I(4) 4 scalar MPI_LONG_LONG_INT Param 7092 I(4) 4 scalar MPI_LOR Param 6898 I(4) 4 scalar MPI_LXOR Param 6902 I(4) 4 scalar MPI_MAX Param 6886 I(4) 4 scalar MPI_MAXLOC Param 6908 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 6976 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 6964 I(4) 4 scalar MPI_MAX_INFO_KEY Param 6970 I(4) 4 scalar MPI_MAX_INFO_VAL Param 6972 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 6978 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 6968 I(4) 4 scalar MPI_MAX_PORT_NAME Param 6966 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 6974 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 7208 I(4) 4 scalar MPI_MESSAGE_NULL Param 7206 I(4) 4 scalar MPI_MIN Param 6888 I(4) 4 scalar MPI_MINLOC Param 6906 I(4) 4 scalar MPI_MODE_APPEND Param 7232 I(4) 4 scalar MPI_MODE_CREATE Param 7228 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 7224 I(4) 4 scalar MPI_MODE_EXCL Param 7230 I(4) 4 scalar MPI_MODE_NOCHECK Param 7194 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 7200 I(4) 4 scalar MPI_MODE_NOPUT Param 7198 I(4) 4 scalar MPI_MODE_NOSTORE Param 7196 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 7202 I(4) 4 scalar MPI_MODE_RDONLY Param 7218 I(4) 4 scalar MPI_MODE_RDWR Param 7220 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 7234 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 7226 I(4) 4 scalar MPI_MODE_WRONLY Param 7222 I(4) 4 scalar MPI_NO_OP Param 6912 I(4) 4 scalar MPI_NULL_COPY_FN Subr 7262 scalar MPI_NULL_DELETE_FN Subr 7262 scalar MPI_OFFSET Param 7138 I(4) 4 scalar MPI_OFFSET_KIND Param 7060 I(4) 4 scalar MPI_OP_NULL Param 6928 I(4) 4 scalar MPI_ORDER_C Param 7242 I(4) 4 scalar MPI_ORDER_FORTRAN Param 7244 I(4) 4 scalar MPI_PACKED Param 7034 I(4) 4 scalar MPI_PROC_NULL Param 6986 I(4) 4 scalar MPI_PROD Param 6892 I(4) 4 scalar MPI_REAL Param 7014 I(4) 4 scalar 7358 MPI_REAL16 Param 7050 I(4) 4 scalar MPI_REAL4 Param 7046 I(4) 4 scalar MPI_REAL8 Param 7048 I(4) 4 scalar MPI_REPLACE Param 6910 I(4) 4 scalar MPI_REQUEST_NULL Param 6932 I(4) 4 scalar MPI_ROOT Param 6992 I(4) 4 scalar MPI_SEEK_CUR Param 7238 I(4) 4 scalar MPI_SEEK_END Param 7240 I(4) 4 scalar MPI_SEEK_SET Param 7236 I(4) 4 scalar Page 134 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SHORT Param 7074 I(4) 4 scalar MPI_SHORT_INT Param 7104 I(4) 4 scalar MPI_SIGNED_CHAR Param 7068 I(4) 4 scalar MPI_SIMILAR Param 6870 I(4) 4 scalar MPI_SOURCE Param 6735 I(4) 4 scalar MPI_STATUS_SIZE Param 6737 I(4) 4 scalar 6739,6740,7348 MPI_SUBARRAYS_SUPPORTED Param 7256 L(4) 4 scalar MPI_SUBVERSION Param 7002 I(4) 4 scalar MPI_SUCCESS Param 6744 I(4) 4 scalar MPI_SUM Param 6890 I(4) 4 scalar MPI_TAG Param 6735 I(4) 4 scalar MPI_TAG_UB Param 6940 I(4) 4 scalar MPI_THREAD_FUNNELED Param 7212 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 7216 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 7214 I(4) 4 scalar MPI_THREAD_SINGLE Param 7210 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 7192 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 7190 I(4) 4 scalar MPI_TYPECLASS_REAL Param 7188 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 7269 scalar MPI_TYPE_NULL_COPY_FN Subr 7270 scalar MPI_TYPE_NULL_DELETE_FN Subr 7269 scalar MPI_UB Param 7030 I(4) 4 scalar MPI_UINT16_T Param 7120 I(4) 4 scalar MPI_UINT32_T Param 7122 I(4) 4 scalar MPI_UINT64_T Param 7124 I(4) 4 scalar MPI_UINT8_T Param 7118 I(4) 4 scalar MPI_UNDEFINED Param 6980 I(4) 4 scalar MPI_UNEQUAL Param 6872 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 6948 I(4) 4 scalar MPI_UNSIGNED Param 7080 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 7070 I(4) 4 scalar MPI_UNSIGNED_LONG Param 7084 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 7094 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 7076 I(4) 4 scalar MPI_VERSION Param 7000 I(4) 4 scalar MPI_WAIT Subr 7498 7498,7549,7593,7597,7738,7789,7833 ,7837 MPI_WCHAR Param 7072 I(4) 4 scalar MPI_WIN_BASE Param 6954 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 6960 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 6958 I(4) 4 scalar MPI_WIN_DUP_FN Subr 7267 scalar MPI_WIN_FLAVOR_ALLOCATE Param 6876 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 6874 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 6878 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 6880 I(4) 4 scalar MPI_WIN_MODEL Param 6962 I(4) 4 scalar MPI_WIN_NULL Param 6922 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 7268 scalar MPI_WIN_NULL_DELETE_FN Subr 7267 scalar MPI_WIN_SEPARATE Param 6882 I(4) 4 scalar MPI_WIN_SIZE Param 6956 I(4) 4 scalar MPI_WIN_UNIFIED Param 6884 I(4) 4 scalar MPI_WTICK Func 7263 R(8) 8 scalar Page 135 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WTIME Func 7263 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 6946 I(4) 4 scalar MPPCOM Common 7290 1724 SAVE PMPI_WTICK Func 7264 R(8) 8 scalar PMPI_WTIME Func 7264 R(8) 8 scalar TEMPCOM Common 7331 6603768 SAVE TOPO Common 7339 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 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 Page 136 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 7374,7383,7435,7487,7614,7623,7675 ,7727 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 7392,7444,7496,7547,7631,7632,7786 ,7787 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 7391,7443,7495,7546,7683,7684,7735 ,7736 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 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 7398,7406,7414,7422,7430,7554,7562 ,7570,7578,7586,7635,7643,7651,765 9,7667,7687,7695,7703,7711,7719,77 40,7748,7756,7764,7772,7791,7799,7 807,7815,7823 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 Page 137 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 7450,7458,7466,7474,7482,7503,7511 ,7519,7527,7535,7635,7643,7651,765 9,7667,7687,7695,7703,7711,7719,77 40,7748,7756,7764,7772,7791,7799,7 807,7815,7823 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 7434,7486,7674,7726 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 7372,7373,7381,7382,7390,7434,7442 ,7486,7494,7545,7592,7596,7612,761 Page 138 Source Listing EXCH11111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 3,7621,7622,7630,7674,7682,7726,77 34,7785,7832,7836 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 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 139 Source Listing EXCH11111 2025-03-12 18:22 module_EXCHM.F 7842 7843 SUBROUTINE EXCH111111(ARR1,LL1,ARR2,LL2,ARR3,LL3,ARR4,LL4 7844 1, ARR5,LL5,ARR6,LL6,IHALO,JHALO) 7845 USE EXCH_BUF_REAL 7846 INCLUDE "parmeta" 7870 INCLUDE "mpif.h" 8432 INCLUDE "mpp.h" 8433 C----------------------------------------------------------------------- 8492 INTEGER ISTAT(MPI_STATUS_SIZE) 8493 INTEGER IHANDLE(4) 8494 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 8495 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 8496 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 8497 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 8498 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 8499 REAL ARR6(IDIM1:IDIM2,JDIM1:JDIM2,*) 8500 C 8501 C*********************************************************************** 8502 C 8503 ITYPE=MPI_REAL 8504 C 8505 C-------------------------------------------------------------------- 8506 C-------------------------------------------------------------------- 8507 C*** 8508 C*** NORTH/SOUTH 8509 C*** 8510 C-------------------------------------------------------------------- 8511 C-------------------------------------------------------------------- 8512 C 8513 C-------------------------------------------------------------------- 8514 C RECEIVE FROM NORTH 8515 C-------------------------------------------------------------------- 8516 C 8517 IF(MY_NEB(1).GE.0)THEN 8518 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 8519 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 8520 ENDIF 8521 C 8522 C-------------------------------------------------------------------- 8523 C RECEIVE FROM SOUTH 8524 C-------------------------------------------------------------------- 8525 C 8526 IF(MY_NEB(3).GE.0)THEN 8527 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 8528 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 8529 ENDIF 8530 C 8531 C-------------------------------------------------------------------- 8532 C SEND TO NORTH 8533 C-------------------------------------------------------------------- 8534 C 8535 IF(MY_NEB(1).GE.0)THEN 8536 IBEG=MYIS-IHALO 8537 IEND=MYIE+IHALO 8538 IC = 0 8539 DO K=1,LL1 8540 DO J=0,JHALO-1 Page 140 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8541 DO I=IBEG,IEND 8542 IC = IC + 1 8543 BUF2(IC)=ARR1(I,MYJE-J,K) 8544 ENDDO 8545 ENDDO 8546 ENDDO 8547 DO K=1,LL2 8548 DO J=0,JHALO-1 8549 DO I=IBEG,IEND 8550 IC = IC + 1 8551 BUF2(IC)=ARR2(I,MYJE-J,K) 8552 ENDDO 8553 ENDDO 8554 ENDDO 8555 DO K=1,LL3 8556 DO J=0,JHALO-1 8557 DO I=IBEG,IEND 8558 IC = IC + 1 8559 BUF2(IC)=ARR3(I,MYJE-J,K) 8560 ENDDO 8561 ENDDO 8562 ENDDO 8563 DO K=1,LL4 8564 DO J=0,JHALO-1 8565 DO I=IBEG,IEND 8566 IC = IC + 1 8567 BUF2(IC)=ARR4(I,MYJE-J,K) 8568 ENDDO 8569 ENDDO 8570 ENDDO 8571 DO K=1,LL5 8572 DO J=0,JHALO-1 8573 DO I=IBEG,IEND 8574 IC = IC + 1 8575 BUF2(IC)=ARR5(I,MYJE-J,K) 8576 ENDDO 8577 ENDDO 8578 ENDDO 8579 DO K=1,LL6 8580 DO J=0,JHALO-1 8581 DO I=IBEG,IEND 8582 IC = IC + 1 8583 BUF2(IC)=ARR6(I,MYJE-J,K) 8584 ENDDO 8585 ENDDO 8586 ENDDO 8587 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 8588 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 8589 ENDIF 8590 C 8591 C-------------------------------------------------------------------- 8592 C SEND TO SOUTH 8593 C-------------------------------------------------------------------- 8594 C 8595 IF(MY_NEB(3).GE.0)THEN 8596 IBEG=MYIS-IHALO 8597 IEND=MYIE+IHALO Page 141 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8598 IC = 0 8599 DO K=1,LL1 8600 DO J=0,JHALO-1 8601 DO I=IBEG,IEND 8602 IC = IC + 1 8603 BUF3(IC)=ARR1(I,MYJS+J,K) 8604 ENDDO 8605 ENDDO 8606 ENDDO 8607 DO K=1,LL2 8608 DO J=0,JHALO-1 8609 DO I=IBEG,IEND 8610 IC = IC + 1 8611 BUF3(IC)=ARR2(I,MYJS+J,K) 8612 ENDDO 8613 ENDDO 8614 ENDDO 8615 DO K=1,LL3 8616 DO J=0,JHALO-1 8617 DO I=IBEG,IEND 8618 IC = IC + 1 8619 BUF3(IC)=ARR3(I,MYJS+J,K) 8620 ENDDO 8621 ENDDO 8622 ENDDO 8623 DO K=1,LL4 8624 DO J=0,JHALO-1 8625 DO I=IBEG,IEND 8626 IC = IC + 1 8627 BUF3(IC)=ARR4(I,MYJS+J,K) 8628 ENDDO 8629 ENDDO 8630 ENDDO 8631 DO K=1,LL5 8632 DO J=0,JHALO-1 8633 DO I=IBEG,IEND 8634 IC = IC + 1 8635 BUF3(IC)=ARR5(I,MYJS+J,K) 8636 ENDDO 8637 ENDDO 8638 ENDDO 8639 DO K=1,LL6 8640 DO J=0,JHALO-1 8641 DO I=IBEG,IEND 8642 IC = IC + 1 8643 BUF3(IC)=ARR6(I,MYJS+J,K) 8644 ENDDO 8645 ENDDO 8646 ENDDO 8647 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 8648 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 8649 ENDIF 8650 C 8651 C-------------------------------------------------------------------- 8652 C STORE RESULTS FROM SOUTH 8653 C-------------------------------------------------------------------- 8654 C Page 142 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8655 IF(MY_NEB(3).GE.0)THEN 8656 IBEG=MYIS-IHALO 8657 IEND=MYIE+IHALO 8658 IC = 0 8659 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 8660 DO K=1,LL1 8661 DO J=0,JHALO-1 8662 DO I=IBEG,IEND 8663 IC = IC + 1 8664 ARR1(I,MYJS-J-1,K)=BUF1(IC) 8665 ENDDO 8666 ENDDO 8667 ENDDO 8668 DO K=1,LL2 8669 DO J=0,JHALO-1 8670 DO I=IBEG,IEND 8671 IC = IC + 1 8672 ARR2(I,MYJS-J-1,K)=BUF1(IC) 8673 ENDDO 8674 ENDDO 8675 ENDDO 8676 DO K=1,LL3 8677 DO J=0,JHALO-1 8678 DO I=IBEG,IEND 8679 IC = IC + 1 8680 ARR3(I,MYJS-J-1,K)=BUF1(IC) 8681 ENDDO 8682 ENDDO 8683 ENDDO 8684 DO K=1,LL4 8685 DO J=0,JHALO-1 8686 DO I=IBEG,IEND 8687 IC = IC + 1 8688 ARR4(I,MYJS-J-1,K)=BUF1(IC) 8689 ENDDO 8690 ENDDO 8691 ENDDO 8692 DO K=1,LL5 8693 DO J=0,JHALO-1 8694 DO I=IBEG,IEND 8695 IC = IC + 1 8696 ARR5(I,MYJS-J-1,K)=BUF1(IC) 8697 ENDDO 8698 ENDDO 8699 ENDDO 8700 DO K=1,LL6 8701 DO J=0,JHALO-1 8702 DO I=IBEG,IEND 8703 IC = IC + 1 8704 ARR6(I,MYJS-J-1,K)=BUF1(IC) 8705 ENDDO 8706 ENDDO 8707 ENDDO 8708 ENDIF 8709 C 8710 C-------------------------------------------------------------------- 8711 C STORE FROM NORTH Page 143 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8712 C-------------------------------------------------------------------- 8713 C 8714 IF(MY_NEB(1).GE.0)THEN 8715 IBEG=MYIS-IHALO 8716 IEND=MYIE+IHALO 8717 IC = 0 8718 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 8719 DO K=1,LL1 8720 DO J=0,JHALO-1 8721 DO I=IBEG,IEND 8722 IC = IC + 1 8723 ARR1(I,MYJE+J+1,K)=BUF0(IC) 8724 ENDDO 8725 ENDDO 8726 ENDDO 8727 DO K=1,LL2 8728 DO J=0,JHALO-1 8729 DO I=IBEG,IEND 8730 IC = IC + 1 8731 ARR2(I,MYJE+J+1,K)=BUF0(IC) 8732 ENDDO 8733 ENDDO 8734 ENDDO 8735 DO K=1,LL3 8736 DO J=0,JHALO-1 8737 DO I=IBEG,IEND 8738 IC = IC + 1 8739 ARR3(I,MYJE+J+1,K)=BUF0(IC) 8740 ENDDO 8741 ENDDO 8742 ENDDO 8743 DO K=1,LL4 8744 DO J=0,JHALO-1 8745 DO I=IBEG,IEND 8746 IC = IC + 1 8747 ARR4(I,MYJE+J+1,K)=BUF0(IC) 8748 ENDDO 8749 ENDDO 8750 ENDDO 8751 DO K=1,LL5 8752 DO J=0,JHALO-1 8753 DO I=IBEG,IEND 8754 IC = IC + 1 8755 ARR5(I,MYJE+J+1,K)=BUF0(IC) 8756 ENDDO 8757 ENDDO 8758 ENDDO 8759 DO K=1,LL6 8760 DO J=0,JHALO-1 8761 DO I=IBEG,IEND 8762 IC = IC + 1 8763 ARR6(I,MYJE+J+1,K)=BUF0(IC) 8764 ENDDO 8765 ENDDO 8766 ENDDO 8767 ENDIF 8768 C Page 144 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8769 IF(MY_NEB(1).GE.0)THEN 8770 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 8771 ENDIF 8772 C 8773 IF(MY_NEB(3).GE.0)THEN 8774 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 8775 ENDIF 8776 C 8777 C-------------------------------------------------------------------- 8778 C-------------------------------------------------------------------- 8779 C*** 8780 C*** EAST/WEST 8781 C*** 8782 C-------------------------------------------------------------------- 8783 C-------------------------------------------------------------------- 8784 C 8785 C-------------------------------------------------------------------- 8786 C RECEIVE FROM WEST 8787 C-------------------------------------------------------------------- 8788 C 8789 IF(MY_NEB(4).GE.0)THEN 8790 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 8791 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 8792 ENDIF 8793 C 8794 C-------------------------------------------------------------------- 8795 C RECEIVE FROM EAST 8796 C-------------------------------------------------------------------- 8797 C 8798 IF(MY_NEB(2).GE.0)THEN 8799 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 8800 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 8801 ENDIF 8802 C 8803 C-------------------------------------------------------------------- 8804 C SEND TO EAST 8805 C-------------------------------------------------------------------- 8806 C 8807 IF(MY_NEB(2).GE.0)THEN 8808 IBEG=MYIE-IHALO+1 8809 IEND=MYIE 8810 IC = 0 8811 DO K=1,LL1 8812 DO J=MYJS-JHALO,MYJE+JHALO 8813 DO I=IBEG,IEND 8814 IC = IC + 1 8815 BUF2(IC)=ARR1(I,J,K) 8816 ENDDO 8817 ENDDO 8818 ENDDO 8819 DO K=1,LL2 8820 DO J=MYJS-JHALO,MYJE+JHALO 8821 DO I=IBEG,IEND 8822 IC = IC + 1 8823 BUF2(IC)=ARR2(I,J,K) 8824 ENDDO 8825 ENDDO Page 145 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8826 ENDDO 8827 DO K=1,LL3 8828 DO J=MYJS-JHALO,MYJE+JHALO 8829 DO I=IBEG,IEND 8830 IC = IC + 1 8831 BUF2(IC)=ARR3(I,J,K) 8832 ENDDO 8833 ENDDO 8834 ENDDO 8835 DO K=1,LL4 8836 DO J=MYJS-JHALO,MYJE+JHALO 8837 DO I=IBEG,IEND 8838 IC = IC + 1 8839 BUF2(IC)=ARR4(I,J,K) 8840 ENDDO 8841 ENDDO 8842 ENDDO 8843 DO K=1,LL5 8844 DO J=MYJS-JHALO,MYJE+JHALO 8845 DO I=IBEG,IEND 8846 IC = IC + 1 8847 BUF2(IC)=ARR5(I,J,K) 8848 ENDDO 8849 ENDDO 8850 ENDDO 8851 DO K=1,LL6 8852 DO J=MYJS-JHALO,MYJE+JHALO 8853 DO I=IBEG,IEND 8854 IC = IC + 1 8855 BUF2(IC)=ARR6(I,J,K) 8856 ENDDO 8857 ENDDO 8858 ENDDO 8859 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 8860 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 8861 ENDIF 8862 C 8863 C-------------------------------------------------------------------- 8864 C SEND TO WEST 8865 C-------------------------------------------------------------------- 8866 C 8867 IF(MY_NEB(4).GE.0)THEN 8868 IBEG=MYIS 8869 IEND=MYIS+IHALO-1 8870 IC = 0 8871 DO K=1,LL1 8872 DO J=MYJS-JHALO,MYJE+JHALO 8873 DO I=IBEG,IEND 8874 IC = IC + 1 8875 BUF3(IC)=ARR1(I,J,K) 8876 ENDDO 8877 ENDDO 8878 ENDDO 8879 DO K=1,LL2 8880 DO J=MYJS-JHALO,MYJE+JHALO 8881 DO I=IBEG,IEND 8882 IC = IC + 1 Page 146 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8883 BUF3(IC)=ARR2(I,J,K) 8884 ENDDO 8885 ENDDO 8886 ENDDO 8887 DO K=1,LL3 8888 DO J=MYJS-JHALO,MYJE+JHALO 8889 DO I=IBEG,IEND 8890 IC = IC + 1 8891 BUF3(IC)=ARR3(I,J,K) 8892 ENDDO 8893 ENDDO 8894 ENDDO 8895 DO K=1,LL4 8896 DO J=MYJS-JHALO,MYJE+JHALO 8897 DO I=IBEG,IEND 8898 IC = IC + 1 8899 BUF3(IC)=ARR4(I,J,K) 8900 ENDDO 8901 ENDDO 8902 ENDDO 8903 DO K=1,LL5 8904 DO J=MYJS-JHALO,MYJE+JHALO 8905 DO I=IBEG,IEND 8906 IC = IC + 1 8907 BUF3(IC)=ARR5(I,J,K) 8908 ENDDO 8909 ENDDO 8910 ENDDO 8911 DO K=1,LL6 8912 DO J=MYJS-JHALO,MYJE+JHALO 8913 DO I=IBEG,IEND 8914 IC = IC + 1 8915 BUF3(IC)=ARR6(I,J,K) 8916 ENDDO 8917 ENDDO 8918 ENDDO 8919 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 8920 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 8921 ENDIF 8922 C 8923 C-------------------------------------------------------------------- 8924 C STORE FROM WEST 8925 C-------------------------------------------------------------------- 8926 C 8927 IF(MY_NEB(4).GE.0)THEN 8928 IBEG=MYIS-IHALO 8929 IEND=MYIS-1 8930 IC = 0 8931 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 8932 DO K=1,LL1 8933 DO J=MYJS-JHALO,MYJE+JHALO 8934 DO I=IBEG,IEND 8935 IC = IC + 1 8936 ARR1(I,J,K)=BUF0(IC) 8937 ENDDO 8938 ENDDO 8939 ENDDO Page 147 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8940 DO K=1,LL2 8941 DO J=MYJS-JHALO,MYJE+JHALO 8942 DO I=IBEG,IEND 8943 IC = IC + 1 8944 ARR2(I,J,K)=BUF0(IC) 8945 ENDDO 8946 ENDDO 8947 ENDDO 8948 DO K=1,LL3 8949 DO J=MYJS-JHALO,MYJE+JHALO 8950 DO I=IBEG,IEND 8951 IC = IC + 1 8952 ARR3(I,J,K)=BUF0(IC) 8953 ENDDO 8954 ENDDO 8955 ENDDO 8956 DO K=1,LL4 8957 DO J=MYJS-JHALO,MYJE+JHALO 8958 DO I=IBEG,IEND 8959 IC = IC + 1 8960 ARR4(I,J,K)=BUF0(IC) 8961 ENDDO 8962 ENDDO 8963 ENDDO 8964 DO K=1,LL5 8965 DO J=MYJS-JHALO,MYJE+JHALO 8966 DO I=IBEG,IEND 8967 IC = IC + 1 8968 ARR5(I,J,K)=BUF0(IC) 8969 ENDDO 8970 ENDDO 8971 ENDDO 8972 DO K=1,LL6 8973 DO J=MYJS-JHALO,MYJE+JHALO 8974 DO I=IBEG,IEND 8975 IC = IC + 1 8976 ARR6(I,J,K)=BUF0(IC) 8977 ENDDO 8978 ENDDO 8979 ENDDO 8980 ENDIF 8981 C 8982 C-------------------------------------------------------------------- 8983 C STORE FROM EAST 8984 C-------------------------------------------------------------------- 8985 C 8986 IF(MY_NEB(2).GE.0)THEN 8987 IBEG=MYIE+1 8988 IEND=MYIE+IHALO 8989 IC = 0 8990 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 8991 DO K=1,LL1 8992 DO J=MYJS-JHALO,MYJE+JHALO 8993 DO I=IBEG,IEND 8994 IC = IC + 1 8995 ARR1(I,J,K)=BUF1(IC) 8996 ENDDO Page 148 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 8997 ENDDO 8998 ENDDO 8999 DO K=1,LL2 9000 DO J=MYJS-JHALO,MYJE+JHALO 9001 DO I=IBEG,IEND 9002 IC = IC + 1 9003 ARR2(I,J,K)=BUF1(IC) 9004 ENDDO 9005 ENDDO 9006 ENDDO 9007 DO K=1,LL3 9008 DO J=MYJS-JHALO,MYJE+JHALO 9009 DO I=IBEG,IEND 9010 IC = IC + 1 9011 ARR3(I,J,K)=BUF1(IC) 9012 ENDDO 9013 ENDDO 9014 ENDDO 9015 DO K=1,LL4 9016 DO J=MYJS-JHALO,MYJE+JHALO 9017 DO I=IBEG,IEND 9018 IC = IC + 1 9019 ARR4(I,J,K)=BUF1(IC) 9020 ENDDO 9021 ENDDO 9022 ENDDO 9023 DO K=1,LL5 9024 DO J=MYJS-JHALO,MYJE+JHALO 9025 DO I=IBEG,IEND 9026 IC = IC + 1 9027 ARR5(I,J,K)=BUF1(IC) 9028 ENDDO 9029 ENDDO 9030 ENDDO 9031 DO K=1,LL6 9032 DO J=MYJS-JHALO,MYJE+JHALO 9033 DO I=IBEG,IEND 9034 IC = IC + 1 9035 ARR6(I,J,K)=BUF1(IC) 9036 ENDDO 9037 ENDDO 9038 ENDDO 9039 ENDIF 9040 C 9041 IF(MY_NEB(4).GE.0)THEN 9042 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 9043 ENDIF 9044 C 9045 IF(MY_NEB(2).GE.0)THEN 9046 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 9047 ENDIF 9048 C 9049 C-------------------------------------------------------------------- 9050 END SUBROUTINE Page 149 Source Listing EXCH111111 2025-03-12 18:22 Entry Points module_EXCHM.F ENTRY POINTS Name exchm_mp_exch111111_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 7843 R(4) 4 3 0 ARG,INOUT 8543,8603,8664,8723,8815,8875,8936 ,8995 ARR2 Dummy 7843 R(4) 4 3 0 ARG,INOUT 8551,8611,8672,8731,8823,8883,8944 ,9003 ARR3 Dummy 7843 R(4) 4 3 0 ARG,INOUT 8559,8619,8680,8739,8831,8891,8952 ,9011 ARR4 Dummy 7843 R(4) 4 3 0 ARG,INOUT 8567,8627,8688,8747,8839,8899,8960 ,9019 ARR5 Dummy 7844 R(4) 4 3 0 ARG,INOUT 8575,8635,8696,8755,8847,8907,8968 ,9027 ARR6 Dummy 7844 R(4) 4 3 0 ARG,INOUT 8583,8643,8704,8763,8855,8915,8976 ,9035 BUF0 Local 8518 R(4) 4 1 2500000 8518,8723,8731,8739,8747,8755,8763 ,8790,8936,8944,8952,8960,8968,897 6 BUF1 Local 8527 R(4) 4 1 2500000 8527,8664,8672,8680,8688,8696,8704 ,8799,8995,9003,9011,9019,9027,903 5 BUF2 Local 8543 R(4) 4 1 2500000 8543,8551,8559,8567,8575,8583,8587 ,8815,8823,8831,8839,8847,8855,885 9 BUF3 Local 8603 R(4) 4 1 2500000 8603,8611,8619,8627,8635,8643,8647 ,8875,8883,8891,8899,8907,8915,891 9 EXCH111111 Subr 7843 EXCH_BUF_REAL Module 7845 7845 GLB_TABLE Common 8470 336 SAVE I Local 8541 I(4) 4 scalar 8541,8543,8549,8551,8557,8559,8565 ,8567,8573,8575,8581,8583,8601,860 3,8609,8611,8617,8619,8625,8627,86 33,8635,8641,8643,8662,8664,8670,8 672,8678,8680,8686,8688,8694,8696, 8702,8704,8721,8723,8729,8731,8737 ,8739,8745,8747,8753,8755,8761,876 3,8813,8815,8821,8823,8829,8831,88 37,8839,8845,8847,8853,8855,8873,8 875,8881,8883,8889,8891,8897,8899, 8905,8907,8913,8915,8934,8936,8942 ,8944,8950,8952,8958,8960,8966,896 8,8974,8976,8993,8995,9001,9003,90 09,9011,9017,9019,9025,9027,9033,9 035 IBEG Local 8536 I(4) 4 scalar 8536,8541,8549,8557,8565,8573,8581 ,8596,8601,8609,8617,8625,8633,864 Page 150 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 1,8656,8662,8670,8678,8686,8694,87 02,8715,8721,8729,8737,8745,8753,8 761,8808,8813,8821,8829,8837,8845, 8853,8868,8873,8881,8889,8897,8905 ,8913,8928,8934,8942,8950,8958,896 6,8974,8987,8993,9001,9009,9017,90 25,9033 IBUFEXCH Param 8518 I(4) 4 scalar 8518,8527,8790,8799 IC Local 8538 I(4) 4 scalar 8538,8542,8543,8550,8551,8558,8559 ,8566,8567,8574,8575,8582,8583,858 7,8598,8602,8603,8610,8611,8618,86 19,8626,8627,8634,8635,8642,8643,8 647,8658,8663,8664,8671,8672,8679, 8680,8687,8688,8695,8696,8703,8704 ,8717,8722,8723,8730,8731,8738,873 9,8746,8747,8754,8755,8762,8763,88 10,8814,8815,8822,8823,8830,8831,8 838,8839,8846,8847,8854,8855,8859, 8870,8874,8875,8882,8883,8890,8891 ,8898,8899,8906,8907,8914,8915,891 9,8930,8935,8936,8943,8944,8951,89 52,8959,8960,8967,8968,8975,8976,8 989,8994,8995,9002,9003,9010,9011, 9018,9019,9026,9027,9034,9035 IDIM1 Param 7866 I(4) 4 scalar 8494,8495,8496,8497,8498,8499 IDIM2 Param 7866 I(4) 4 scalar 8494,8495,8496,8497,8498,8499 IEND Local 8537 I(4) 4 scalar 8537,8541,8549,8557,8565,8573,8581 ,8597,8601,8609,8617,8625,8633,864 1,8657,8662,8670,8678,8686,8694,87 02,8716,8721,8729,8737,8745,8753,8 761,8809,8813,8821,8829,8837,8845, 8853,8869,8873,8881,8889,8897,8905 ,8913,8929,8934,8942,8950,8958,896 6,8974,8988,8993,9001,9009,9017,90 25,9033 IERR Local 8659 I(4) 4 scalar 8659,8718,8770,8774,8931,8990,9042 ,9046 IGSTL Param 7861 I(4) 4 scalar 7866 IGSTR Param 7861 I(4) 4 scalar 7866 IHALO Dummy 7844 I(4) 4 scalar ARG,INOUT 8536,8537,8596,8597,8656,8657,8715 ,8716,8808,8869,8928,8988 IHANDLE Local 8493 I(4) 4 1 4 8519,8528,8588,8648,8659,8718,8770 ,8774,8791,8800,8860,8920,8931,899 0,9042,9046 IM Param 7849 I(4) 4 scalar 7863,7866,8476,8477,8478,8479,8480 ,8484,8485,8490 INPES Param 7858 I(4) 4 scalar 7863,7866,8460,8461,8462,8471,8472 IRECV Local 8519 I(4) 4 scalar 8519,8528,8791,8800 ISEND Local 8588 I(4) 4 scalar 8588,8648,8860,8920 ISTAT Local 8492 I(4) 4 1 5 8659,8718,8770,8774,8931,8990,9042 ,9046 ITAIL Param 7863 I(4) 4 scalar ITYPE Local 8503 I(4) 4 scalar 8503,8518,8527,8587,8647,8790,8799 ,8859,8919 J Local 8540 I(4) 4 scalar 8540,8543,8548,8551,8556,8559,8564 Page 151 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,8567,8572,8575,8580,8583,8600,860 3,8608,8611,8616,8619,8624,8627,86 32,8635,8640,8643,8661,8664,8669,8 672,8677,8680,8685,8688,8693,8696, 8701,8704,8720,8723,8728,8731,8736 ,8739,8744,8747,8752,8755,8760,876 3,8812,8815,8820,8823,8828,8831,88 36,8839,8844,8847,8852,8855,8872,8 875,8880,8883,8888,8891,8896,8899, 8904,8907,8912,8915,8933,8936,8941 ,8944,8949,8952,8957,8960,8965,896 8,8973,8976,8992,8995,9000,9003,90 08,9011,9016,9019,9024,9027,9032,9 035 JDIM1 Param 7867 I(4) 4 scalar 8494,8495,8496,8497,8498,8499 JDIM2 Param 7867 I(4) 4 scalar 8494,8495,8496,8497,8498,8499 JGSTL Param 7862 I(4) 4 scalar 7867 JGSTR Param 7862 I(4) 4 scalar 7867 JHALO Dummy 7844 I(4) 4 scalar ARG,INOUT 8540,8548,8556,8564,8572,8580,8600 ,8608,8616,8624,8632,8640,8661,866 9,8677,8685,8693,8701,8720,8728,87 36,8744,8752,8760,8812,8820,8828,8 836,8844,8852,8872,8880,8888,8896, 8904,8912,8933,8941,8949,8957,8965 ,8973,8992,9000,9008,9016,9024,903 2 JM Param 7849 I(4) 4 scalar 7864,7867,8476,8477,8478,8479,8480 ,8484,8485,8490 JNPES Param 7858 I(4) 4 scalar 7864,7867,8460,8461,8462,8471,8472 JTAIL Param 7864 I(4) 4 scalar K Local 8539 I(4) 4 scalar 8539,8543,8547,8551,8555,8559,8563 ,8567,8571,8575,8579,8583,8599,860 3,8607,8611,8615,8619,8623,8627,86 31,8635,8639,8643,8660,8664,8668,8 672,8676,8680,8684,8688,8692,8696, 8700,8704,8719,8723,8727,8731,8735 ,8739,8743,8747,8751,8755,8759,876 3,8811,8815,8819,8823,8827,8831,88 35,8839,8843,8847,8851,8855,8871,8 875,8879,8883,8887,8891,8895,8899, 8903,8907,8911,8915,8932,8936,8940 ,8944,8948,8952,8956,8960,8964,896 8,8972,8976,8991,8995,8999,9003,90 07,9011,9015,9019,9023,9027,9031,9 035 LL1 Dummy 7843 I(4) 4 scalar ARG,INOUT 8539,8599,8660,8719,8811,8871,8932 ,8991 LL2 Dummy 7843 I(4) 4 scalar ARG,INOUT 8547,8607,8668,8727,8819,8879,8940 ,8999 LL3 Dummy 7843 I(4) 4 scalar ARG,INOUT 8555,8615,8676,8735,8827,8887,8948 ,9007 LL4 Dummy 7843 I(4) 4 scalar ARG,INOUT 8563,8623,8684,8743,8835,8895,8956 ,9015 LL5 Dummy 7844 I(4) 4 scalar ARG,INOUT 8571,8631,8692,8751,8843,8903,8964 ,9023 Page 152 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References LL6 Dummy 7844 I(4) 4 scalar ARG,INOUT 8579,8639,8700,8759,8851,8911,8972 ,9031 LM Param 7849 I(4) 4 scalar 8485 LSM Param 7849 I(4) 4 scalar MAPPINGS Common 8489 5024 SAVE MPIFCMB5 Common 8420 4 SAVE MPIFCMB9 Common 8421 4 SAVE MPIPRIV1 Common 8425 28 SAVE MPIPRIV2 Common 8427 24 SAVE MPIPRIVC Common 8430 2 SAVE MPI_2DOUBLE_PRECISION Param 8166 I(4) 4 scalar MPI_2INT Param 8250 I(4) 4 scalar MPI_2INTEGER Param 8164 I(4) 4 scalar MPI_2REAL Param 8168 I(4) 4 scalar MPI_ADDRESS_KIND Param 8202 I(4) 4 scalar MPI_AINT Param 8280 I(4) 4 scalar MPI_ANY_SOURCE Param 8132 I(4) 4 scalar MPI_ANY_TAG Param 8134 I(4) 4 scalar MPI_APPNUM Param 8096 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 8402 L(4) 4 scalar MPI_BAND Param 8040 I(4) 4 scalar MPI_BOR Param 8044 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 8128 I(4) 4 scalar MPI_BXOR Param 8048 I(4) 4 scalar MPI_BYTE Param 8172 I(4) 4 scalar MPI_CART Param 8140 I(4) 4 scalar MPI_CHAR Param 8210 I(4) 4 scalar MPI_CHARACTER Param 8170 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 8298 I(4) 4 scalar MPI_COMBINER_DARRAY Param 8320 I(4) 4 scalar MPI_COMBINER_DUP Param 8296 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 8324 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 8326 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 8322 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 8310 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 8330 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 8308 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 8304 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 8302 I(4) 4 scalar MPI_COMBINER_INDEXED Param 8306 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 8312 I(4) 4 scalar MPI_COMBINER_NAMED Param 8294 I(4) 4 scalar MPI_COMBINER_RESIZED Param 8328 I(4) 4 scalar MPI_COMBINER_STRUCT Param 8316 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 8314 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 8318 I(4) 4 scalar MPI_COMBINER_VECTOR Param 8300 I(4) 4 scalar MPI_COMM_DUP_FN Subr 8409 scalar MPI_COMM_NULL Param 8064 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 8410 scalar Page 153 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_NULL_DELETE_FN Subr 8409 scalar MPI_COMM_SELF Param 8060 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 8348 I(4) 4 scalar MPI_COMM_WORLD Param 8058 I(4) 4 scalar MPI_COMPLEX Param 8152 I(4) 4 scalar MPI_COMPLEX16 Param 8198 I(4) 4 scalar MPI_COMPLEX32 Param 8200 I(4) 4 scalar MPI_COMPLEX8 Param 8196 I(4) 4 scalar MPI_CONGRUENT Param 8012 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 8415 scalar MPI_COUNT Param 8284 I(4) 4 scalar MPI_COUNT_KIND Param 8206 I(4) 4 scalar MPI_CXX_BOOL Param 8286 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 8290 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 8288 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 8292 I(4) 4 scalar MPI_C_BOOL Param 8270 I(4) 4 scalar MPI_C_COMPLEX Param 8274 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 8276 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 8272 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 8278 I(4) 4 scalar MPI_DATATYPE_NULL Param 8074 I(4) 4 scalar 8189,8287,8289,8291,8293 MPI_DISPLACEMENT_CURRENT Param 8398 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 8390 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 8392 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 8396 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 8394 I(4) 4 scalar MPI_DIST_GRAPH Param 8142 I(4) 4 scalar MPI_DOUBLE Param 8232 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 8154 I(4) 4 scalar MPI_DOUBLE_INT Param 8244 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 8160 I(4) 4 scalar MPI_DUP_FN Subr 8406 scalar MPI_ERRHANDLER_NULL Param 8078 I(4) 4 scalar MPI_ERROR Param 7879 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 8006 I(4) 4 scalar MPI_ERRORS_RETURN Param 8008 I(4) 4 scalar MPI_ERR_ACCESS Param 7998 I(4) 4 scalar MPI_ERR_AMODE Param 7984 I(4) 4 scalar MPI_ERR_ARG Param 7954 I(4) 4 scalar MPI_ERR_ASSERT Param 7960 I(4) 4 scalar MPI_ERR_BAD_FILE Param 7922 I(4) 4 scalar MPI_ERR_BASE Param 7952 I(4) 4 scalar MPI_ERR_BUFFER Param 7894 I(4) 4 scalar MPI_ERR_COMM Param 7972 I(4) 4 scalar MPI_ERR_CONVERSION Param 7988 I(4) 4 scalar MPI_ERR_COUNT Param 7898 I(4) 4 scalar MPI_ERR_DIMS Param 7936 I(4) 4 scalar MPI_ERR_DISP Param 7920 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 7902 I(4) 4 scalar MPI_ERR_FILE Param 7932 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 7914 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 7956 I(4) 4 scalar MPI_ERR_GROUP Param 7918 I(4) 4 scalar Page 154 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO Param 7946 I(4) 4 scalar MPI_ERR_INFO_KEY Param 7950 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 7930 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 7916 I(4) 4 scalar MPI_ERR_INTERN Param 7948 I(4) 4 scalar MPI_ERR_IN_STATUS Param 7934 I(4) 4 scalar MPI_ERR_IO Param 7994 I(4) 4 scalar MPI_ERR_KEYVAL Param 7940 I(4) 4 scalar MPI_ERR_LASTCODE Param 7962 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 7944 I(4) 4 scalar MPI_ERR_NAME Param 7938 I(4) 4 scalar MPI_ERR_NOT_SAME Param 7966 I(4) 4 scalar MPI_ERR_NO_MEM Param 7958 I(4) 4 scalar MPI_ERR_NO_SPACE Param 7890 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 7974 I(4) 4 scalar MPI_ERR_OP Param 7992 I(4) 4 scalar MPI_ERR_OTHER Param 7906 I(4) 4 scalar MPI_ERR_PENDING Param 7896 I(4) 4 scalar MPI_ERR_PORT Param 7978 I(4) 4 scalar MPI_ERR_QUOTA Param 7982 I(4) 4 scalar MPI_ERR_RANK Param 7904 I(4) 4 scalar MPI_ERR_READ_ONLY Param 7942 I(4) 4 scalar MPI_ERR_REQUEST Param 7986 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 7908 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 7912 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 7928 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 7990 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 7980 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 7892 I(4) 4 scalar MPI_ERR_ROOT Param 7924 I(4) 4 scalar MPI_ERR_SERVICE Param 7900 I(4) 4 scalar MPI_ERR_SIZE Param 7910 I(4) 4 scalar MPI_ERR_SPAWN Param 7970 I(4) 4 scalar MPI_ERR_TAG Param 8000 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 8004 I(4) 4 scalar MPI_ERR_TRUNCATE Param 7964 I(4) 4 scalar MPI_ERR_TYPE Param 7968 I(4) 4 scalar MPI_ERR_UNKNOWN Param 8002 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 7926 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 7976 I(4) 4 scalar MPI_ERR_WIN Param 7996 I(4) 4 scalar MPI_FILE_NULL Param 8068 I(4) 4 scalar MPI_FLOAT Param 8230 I(4) 4 scalar MPI_FLOAT_INT Param 8242 I(4) 4 scalar MPI_GRAPH Param 8138 I(4) 4 scalar MPI_GROUP_EMPTY Param 8062 I(4) 4 scalar MPI_GROUP_NULL Param 8070 I(4) 4 scalar MPI_HOST Param 8086 I(4) 4 scalar MPI_IDENT Param 8010 I(4) 4 scalar MPI_INFO_ENV Param 8082 I(4) 4 scalar MPI_INFO_NULL Param 8080 I(4) 4 scalar MPI_INT Param 8222 I(4) 4 scalar MPI_INT16_T Param 8256 I(4) 4 scalar Page 155 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INT32_T Param 8258 I(4) 4 scalar MPI_INT64_T Param 8260 I(4) 4 scalar MPI_INT8_T Param 8254 I(4) 4 scalar MPI_INTEGER Param 8162 I(4) 4 scalar MPI_INTEGER1 Param 8180 I(4) 4 scalar MPI_INTEGER16 Param 8188 I(4) 4 scalar MPI_INTEGER2 Param 8182 I(4) 4 scalar MPI_INTEGER4 Param 8184 I(4) 4 scalar MPI_INTEGER8 Param 8186 I(4) 4 scalar MPI_INTEGER_KIND Param 8208 I(4) 4 scalar MPI_IO Param 8088 I(4) 4 scalar MPI_IRECV Subr 8518 8518,8527,8790,8799 MPI_ISEND Subr 8587 8587,8647,8859,8919 MPI_KEYVAL_INVALID Param 8126 I(4) 4 scalar MPI_LAND Param 8038 I(4) 4 scalar MPI_LASTUSEDCODE Param 8094 I(4) 4 scalar MPI_LB Param 8176 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 8148 I(4) 4 scalar MPI_LOCK_SHARED Param 8150 I(4) 4 scalar MPI_LOGICAL Param 8156 I(4) 4 scalar MPI_LONG Param 8226 I(4) 4 scalar MPI_LONG_DOUBLE Param 8234 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 8252 I(4) 4 scalar MPI_LONG_INT Param 8246 I(4) 4 scalar MPI_LONG_LONG Param 8240 I(4) 4 scalar MPI_LONG_LONG_INT Param 8236 I(4) 4 scalar MPI_LOR Param 8042 I(4) 4 scalar MPI_LXOR Param 8046 I(4) 4 scalar MPI_MAX Param 8030 I(4) 4 scalar MPI_MAXLOC Param 8052 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 8120 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 8108 I(4) 4 scalar MPI_MAX_INFO_KEY Param 8114 I(4) 4 scalar MPI_MAX_INFO_VAL Param 8116 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 8122 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 8112 I(4) 4 scalar MPI_MAX_PORT_NAME Param 8110 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 8118 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 8352 I(4) 4 scalar MPI_MESSAGE_NULL Param 8350 I(4) 4 scalar MPI_MIN Param 8032 I(4) 4 scalar MPI_MINLOC Param 8050 I(4) 4 scalar MPI_MODE_APPEND Param 8376 I(4) 4 scalar MPI_MODE_CREATE Param 8372 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 8368 I(4) 4 scalar MPI_MODE_EXCL Param 8374 I(4) 4 scalar MPI_MODE_NOCHECK Param 8338 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 8344 I(4) 4 scalar MPI_MODE_NOPUT Param 8342 I(4) 4 scalar MPI_MODE_NOSTORE Param 8340 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 8346 I(4) 4 scalar MPI_MODE_RDONLY Param 8362 I(4) 4 scalar MPI_MODE_RDWR Param 8364 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 8378 I(4) 4 scalar Page 156 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_UNIQUE_OPEN Param 8370 I(4) 4 scalar MPI_MODE_WRONLY Param 8366 I(4) 4 scalar MPI_NO_OP Param 8056 I(4) 4 scalar MPI_NULL_COPY_FN Subr 8406 scalar MPI_NULL_DELETE_FN Subr 8406 scalar MPI_OFFSET Param 8282 I(4) 4 scalar MPI_OFFSET_KIND Param 8204 I(4) 4 scalar MPI_OP_NULL Param 8072 I(4) 4 scalar MPI_ORDER_C Param 8386 I(4) 4 scalar MPI_ORDER_FORTRAN Param 8388 I(4) 4 scalar MPI_PACKED Param 8178 I(4) 4 scalar MPI_PROC_NULL Param 8130 I(4) 4 scalar MPI_PROD Param 8036 I(4) 4 scalar MPI_REAL Param 8158 I(4) 4 scalar 8503 MPI_REAL16 Param 8194 I(4) 4 scalar MPI_REAL4 Param 8190 I(4) 4 scalar MPI_REAL8 Param 8192 I(4) 4 scalar MPI_REPLACE Param 8054 I(4) 4 scalar MPI_REQUEST_NULL Param 8076 I(4) 4 scalar MPI_ROOT Param 8136 I(4) 4 scalar MPI_SEEK_CUR Param 8382 I(4) 4 scalar MPI_SEEK_END Param 8384 I(4) 4 scalar MPI_SEEK_SET Param 8380 I(4) 4 scalar MPI_SHORT Param 8218 I(4) 4 scalar MPI_SHORT_INT Param 8248 I(4) 4 scalar MPI_SIGNED_CHAR Param 8212 I(4) 4 scalar MPI_SIMILAR Param 8014 I(4) 4 scalar MPI_SOURCE Param 7879 I(4) 4 scalar MPI_STATUS_SIZE Param 7881 I(4) 4 scalar 7883,7884,8492 MPI_SUBARRAYS_SUPPORTED Param 8400 L(4) 4 scalar MPI_SUBVERSION Param 8146 I(4) 4 scalar MPI_SUCCESS Param 7888 I(4) 4 scalar MPI_SUM Param 8034 I(4) 4 scalar MPI_TAG Param 7879 I(4) 4 scalar MPI_TAG_UB Param 8084 I(4) 4 scalar MPI_THREAD_FUNNELED Param 8356 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 8360 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 8358 I(4) 4 scalar MPI_THREAD_SINGLE Param 8354 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 8336 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 8334 I(4) 4 scalar MPI_TYPECLASS_REAL Param 8332 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 8413 scalar MPI_TYPE_NULL_COPY_FN Subr 8414 scalar MPI_TYPE_NULL_DELETE_FN Subr 8413 scalar MPI_UB Param 8174 I(4) 4 scalar MPI_UINT16_T Param 8264 I(4) 4 scalar MPI_UINT32_T Param 8266 I(4) 4 scalar MPI_UINT64_T Param 8268 I(4) 4 scalar MPI_UINT8_T Param 8262 I(4) 4 scalar MPI_UNDEFINED Param 8124 I(4) 4 scalar MPI_UNEQUAL Param 8016 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 8092 I(4) 4 scalar MPI_UNSIGNED Param 8224 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 8214 I(4) 4 scalar Page 157 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNSIGNED_LONG Param 8228 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 8238 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 8220 I(4) 4 scalar MPI_VERSION Param 8144 I(4) 4 scalar MPI_WAIT Subr 8659 8659,8718,8770,8774,8931,8990,9042 ,9046 MPI_WCHAR Param 8216 I(4) 4 scalar MPI_WIN_BASE Param 8098 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 8104 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 8102 I(4) 4 scalar MPI_WIN_DUP_FN Subr 8411 scalar MPI_WIN_FLAVOR_ALLOCATE Param 8020 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 8018 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 8022 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 8024 I(4) 4 scalar MPI_WIN_MODEL Param 8106 I(4) 4 scalar MPI_WIN_NULL Param 8066 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 8412 scalar MPI_WIN_NULL_DELETE_FN Subr 8411 scalar MPI_WIN_SEPARATE Param 8026 I(4) 4 scalar MPI_WIN_SIZE Param 8100 I(4) 4 scalar MPI_WIN_UNIFIED Param 8028 I(4) 4 scalar MPI_WTICK Func 8407 R(8) 8 scalar MPI_WTIME Func 8407 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 8090 I(4) 4 scalar MPPCOM Common 8434 1724 SAVE PMPI_WTICK Func 8408 R(8) 8 scalar PMPI_WTIME Func 8408 R(8) 8 scalar TEMPCOM Common 8475 6603768 SAVE TOPO Common 8483 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 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 Page 158 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 8519,8528,8588,8648,8791,8800,8860 ,8920 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 8537,8597,8657,8716,8808,8809,8987 ,8988 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 8536,8596,8656,8715,8868,8869,8928 ,8929 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM Page 159 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM 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 8543,8551,8559,8567,8575,8583,8723 ,8731,8739,8747,8755,8763,8812,882 0,8828,8836,8844,8852,8872,8880,88 88,8896,8904,8912,8933,8941,8949,8 957,8965,8973,8992,9000,9008,9016, 9024,9032 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 8603,8611,8619,8627,8635,8643,8664 ,8672,8680,8688,8696,8704,8812,882 0,8828,8836,8844,8852,8872,8880,88 88,8896,8904,8912,8933,8941,8949,8 957,8965,8973,8992,9000,9008,9016, 9024,9032 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 Page 160 Source Listing EXCH111111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 8587,8647,8859,8919 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 8517,8518,8526,8527,8535,8587,8595 ,8647,8655,8714,8769,8773,8789,879 0,8798,8799,8807,8859,8867,8919,89 27,8986,9041,9045 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 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 161 Source Listing EXCH111111 2025-03-12 18:22 module_EXCHM.F 9051 9052 SUBROUTINE EXCH011(ARR1,LL1,ARR2,LL2,ARR3,LL3,IHALO,JHALO) 9053 USE EXCH_BUF_REAL 9054 INCLUDE "parmeta" 9078 INCLUDE "mpif.h" 9640 INCLUDE "mpp.h" 9641 C----------------------------------------------------------------------- 9700 INTEGER ISTAT(MPI_STATUS_SIZE) 9701 INTEGER IHANDLE(4) 9702 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 9703 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 9704 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 9705 C 9706 C*********************************************************************** 9707 C 9708 ITYPE=MPI_REAL 9709 C 9710 C-------------------------------------------------------------------- 9711 C-------------------------------------------------------------------- 9712 C*** 9713 C*** NORTH/SOUTH 9714 C*** 9715 C-------------------------------------------------------------------- 9716 C-------------------------------------------------------------------- 9717 C 9718 C-------------------------------------------------------------------- 9719 C RECEIVE FROM NORTH 9720 C-------------------------------------------------------------------- 9721 C 9722 IF(MY_NEB(1).GE.0)THEN 9723 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 9724 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 9725 ENDIF 9726 C 9727 C-------------------------------------------------------------------- 9728 C RECEIVE FROM SOUTH 9729 C-------------------------------------------------------------------- 9730 C 9731 IF(MY_NEB(3).GE.0)THEN 9732 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 9733 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 9734 ENDIF 9735 C 9736 C-------------------------------------------------------------------- 9737 C SEND TO NORTH 9738 C-------------------------------------------------------------------- 9739 C 9740 IF(MY_NEB(1).GE.0)THEN 9741 IBEG=MYIS-IHALO 9742 IEND=MYIE+IHALO 9743 IC = 0 9744 DO J=0,JHALO-1 9745 DO I=IBEG,IEND 9746 IC = IC + 1 9747 BUF2(IC)=ARR1(I,MYJE-J) 9748 ENDDO 9749 ENDDO Page 162 Source Listing EXCH011 2025-03-12 18:22 module_EXCHM.F 9750 DO K=1,LL2 9751 DO J=0,JHALO-1 9752 DO I=IBEG,IEND 9753 IC = IC + 1 9754 BUF2(IC)=ARR2(I,MYJE-J,K) 9755 ENDDO 9756 ENDDO 9757 ENDDO 9758 DO K=1,LL3 9759 DO J=0,JHALO-1 9760 DO I=IBEG,IEND 9761 IC = IC + 1 9762 BUF2(IC)=ARR3(I,MYJE-J,K) 9763 ENDDO 9764 ENDDO 9765 ENDDO 9766 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 9767 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 9768 ENDIF 9769 C 9770 C-------------------------------------------------------------------- 9771 C SEND TO SOUTH 9772 C-------------------------------------------------------------------- 9773 C 9774 IF(MY_NEB(3).GE.0)THEN 9775 IBEG=MYIS-IHALO 9776 IEND=MYIE+IHALO 9777 IC = 0 9778 DO J=0,JHALO-1 9779 DO I=IBEG,IEND 9780 IC = IC + 1 9781 BUF3(IC)=ARR1(I,MYJS+J) 9782 ENDDO 9783 ENDDO 9784 DO K=1,LL2 9785 DO J=0,JHALO-1 9786 DO I=IBEG,IEND 9787 IC = IC + 1 9788 BUF3(IC)=ARR2(I,MYJS+J,K) 9789 ENDDO 9790 ENDDO 9791 ENDDO 9792 DO K=1,LL3 9793 DO J=0,JHALO-1 9794 DO I=IBEG,IEND 9795 IC = IC + 1 9796 BUF3(IC)=ARR3(I,MYJS+J,K) 9797 ENDDO 9798 ENDDO 9799 ENDDO 9800 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 9801 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 9802 ENDIF 9803 C 9804 C-------------------------------------------------------------------- 9805 C STORE RESULTS FROM SOUTH 9806 C-------------------------------------------------------------------- Page 163 Source Listing EXCH011 2025-03-12 18:22 module_EXCHM.F 9807 C 9808 IF(MY_NEB(3).GE.0)THEN 9809 IBEG=MYIS-IHALO 9810 IEND=MYIE+IHALO 9811 IC = 0 9812 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 9813 DO J=0,JHALO-1 9814 DO I=IBEG,IEND 9815 IC = IC + 1 9816 ARR1(I,MYJS-J-1)=BUF1(IC) 9817 ENDDO 9818 ENDDO 9819 DO K=1,LL2 9820 DO J=0,JHALO-1 9821 DO I=IBEG,IEND 9822 IC = IC + 1 9823 ARR2(I,MYJS-J-1,K)=BUF1(IC) 9824 ENDDO 9825 ENDDO 9826 ENDDO 9827 DO K=1,LL3 9828 DO J=0,JHALO-1 9829 DO I=IBEG,IEND 9830 IC = IC + 1 9831 ARR3(I,MYJS-J-1,K)=BUF1(IC) 9832 ENDDO 9833 ENDDO 9834 ENDDO 9835 ENDIF 9836 C 9837 C-------------------------------------------------------------------- 9838 C STORE FROM NORTH 9839 C-------------------------------------------------------------------- 9840 C 9841 IF(MY_NEB(1).GE.0)THEN 9842 IBEG=MYIS-IHALO 9843 IEND=MYIE+IHALO 9844 IC = 0 9845 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 9846 DO J=0,JHALO-1 9847 DO I=IBEG,IEND 9848 IC = IC + 1 9849 ARR1(I,MYJE+J+1)=BUF0(IC) 9850 ENDDO 9851 ENDDO 9852 DO K=1,LL2 9853 DO J=0,JHALO-1 9854 DO I=IBEG,IEND 9855 IC = IC + 1 9856 ARR2(I,MYJE+J+1,K)=BUF0(IC) 9857 ENDDO 9858 ENDDO 9859 ENDDO 9860 DO K=1,LL3 9861 DO J=0,JHALO-1 9862 DO I=IBEG,IEND 9863 IC = IC + 1 Page 164 Source Listing EXCH011 2025-03-12 18:22 module_EXCHM.F 9864 ARR3(I,MYJE+J+1,K)=BUF0(IC) 9865 ENDDO 9866 ENDDO 9867 ENDDO 9868 ENDIF 9869 C 9870 IF(MY_NEB(1).GE.0)THEN 9871 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 9872 ENDIF 9873 C 9874 IF(MY_NEB(3).GE.0)THEN 9875 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 9876 ENDIF 9877 C 9878 C-------------------------------------------------------------------- 9879 C-------------------------------------------------------------------- 9880 C*** 9881 C*** EAST/WEST 9882 C*** 9883 C-------------------------------------------------------------------- 9884 C-------------------------------------------------------------------- 9885 C 9886 C-------------------------------------------------------------------- 9887 C RECEIVE FROM WEST 9888 C-------------------------------------------------------------------- 9889 C 9890 IF(MY_NEB(4).GE.0)THEN 9891 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 9892 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 9893 ENDIF 9894 C 9895 C-------------------------------------------------------------------- 9896 C RECEIVE FROM EAST 9897 C-------------------------------------------------------------------- 9898 C 9899 IF(MY_NEB(2).GE.0)THEN 9900 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 9901 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 9902 ENDIF 9903 C 9904 C-------------------------------------------------------------------- 9905 C SEND TO EAST 9906 C-------------------------------------------------------------------- 9907 C 9908 IF(MY_NEB(2).GE.0)THEN 9909 IBEG=MYIE-IHALO+1 9910 IEND=MYIE 9911 IC = 0 9912 DO J=MYJS-JHALO,MYJE+JHALO 9913 DO I=IBEG,IEND 9914 IC = IC + 1 9915 BUF2(IC)=ARR1(I,J) 9916 ENDDO 9917 ENDDO 9918 DO K=1,LL2 9919 DO J=MYJS-JHALO,MYJE+JHALO 9920 DO I=IBEG,IEND Page 165 Source Listing EXCH011 2025-03-12 18:22 module_EXCHM.F 9921 IC = IC + 1 9922 BUF2(IC)=ARR2(I,J,K) 9923 ENDDO 9924 ENDDO 9925 ENDDO 9926 DO K=1,LL3 9927 DO J=MYJS-JHALO,MYJE+JHALO 9928 DO I=IBEG,IEND 9929 IC = IC + 1 9930 BUF2(IC)=ARR3(I,J,K) 9931 ENDDO 9932 ENDDO 9933 ENDDO 9934 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 9935 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 9936 ENDIF 9937 C 9938 C-------------------------------------------------------------------- 9939 C SEND TO WEST 9940 C-------------------------------------------------------------------- 9941 C 9942 IF(MY_NEB(4).GE.0)THEN 9943 IBEG=MYIS 9944 IEND=MYIS+IHALO-1 9945 IC = 0 9946 DO J=MYJS-JHALO,MYJE+JHALO 9947 DO I=IBEG,IEND 9948 IC = IC + 1 9949 BUF3(IC)=ARR1(I,J) 9950 ENDDO 9951 ENDDO 9952 DO K=1,LL2 9953 DO J=MYJS-JHALO,MYJE+JHALO 9954 DO I=IBEG,IEND 9955 IC = IC + 1 9956 BUF3(IC)=ARR2(I,J,K) 9957 ENDDO 9958 ENDDO 9959 ENDDO 9960 DO K=1,LL3 9961 DO J=MYJS-JHALO,MYJE+JHALO 9962 DO I=IBEG,IEND 9963 IC = IC + 1 9964 BUF3(IC)=ARR3(I,J,K) 9965 ENDDO 9966 ENDDO 9967 ENDDO 9968 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 9969 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 9970 ENDIF 9971 C 9972 C-------------------------------------------------------------------- 9973 C STORE FROM WEST 9974 C-------------------------------------------------------------------- 9975 C 9976 IF(MY_NEB(4).GE.0)THEN 9977 IBEG=MYIS-IHALO Page 166 Source Listing EXCH011 2025-03-12 18:22 module_EXCHM.F 9978 IEND=MYIS-1 9979 IC = 0 9980 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 9981 DO J=MYJS-JHALO,MYJE+JHALO 9982 DO I=IBEG,IEND 9983 IC = IC + 1 9984 ARR1(I,J)=BUF0(IC) 9985 ENDDO 9986 ENDDO 9987 DO K=1,LL2 9988 DO J=MYJS-JHALO,MYJE+JHALO 9989 DO I=IBEG,IEND 9990 IC = IC + 1 9991 ARR2(I,J,K)=BUF0(IC) 9992 ENDDO 9993 ENDDO 9994 ENDDO 9995 DO K=1,LL3 9996 DO J=MYJS-JHALO,MYJE+JHALO 9997 DO I=IBEG,IEND 9998 IC = IC + 1 9999 ARR3(I,J,K)=BUF0(IC) 10000 ENDDO 10001 ENDDO 10002 ENDDO 10003 ENDIF 10004 C 10005 C-------------------------------------------------------------------- 10006 C STORE FROM EAST 10007 C-------------------------------------------------------------------- 10008 C 10009 IF(MY_NEB(2).GE.0)THEN 10010 IBEG=MYIE+1 10011 IEND=MYIE+IHALO 10012 IC = 0 10013 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 10014 DO J=MYJS-JHALO,MYJE+JHALO 10015 DO I=IBEG,IEND 10016 IC = IC + 1 10017 ARR1(I,J)=BUF1(IC) 10018 ENDDO 10019 ENDDO 10020 DO K=1,LL2 10021 DO J=MYJS-JHALO,MYJE+JHALO 10022 DO I=IBEG,IEND 10023 IC = IC + 1 10024 ARR2(I,J,K)=BUF1(IC) 10025 ENDDO 10026 ENDDO 10027 ENDDO 10028 DO K=1,LL3 10029 DO J=MYJS-JHALO,MYJE+JHALO 10030 DO I=IBEG,IEND 10031 IC = IC + 1 10032 ARR3(I,J,K)=BUF1(IC) 10033 ENDDO 10034 ENDDO Page 167 Source Listing EXCH011 2025-03-12 18:22 module_EXCHM.F 10035 ENDDO 10036 ENDIF 10037 C 10038 IF(MY_NEB(4).GE.0)THEN 10039 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 10040 ENDIF 10041 C 10042 IF(MY_NEB(2).GE.0)THEN 10043 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 10044 ENDIF 10045 C 10046 C-------------------------------------------------------------------- 10047 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch011_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 9052 R(4) 4 2 6319 ARG,INOUT 9747,9781,9816,9849,9915,9949,9984 ,10017 ARR2 Dummy 9052 R(4) 4 3 0 ARG,INOUT 9754,9788,9823,9856,9922,9956,9991 ,10024 ARR3 Dummy 9052 R(4) 4 3 0 ARG,INOUT 9762,9796,9831,9864,9930,9964,9999 ,10032 BUF0 Local 9723 R(4) 4 1 2500000 9723,9849,9856,9864,9891,9984,9991 ,9999 BUF1 Local 9732 R(4) 4 1 2500000 9732,9816,9823,9831,9900,10017,100 24,10032 BUF2 Local 9747 R(4) 4 1 2500000 9747,9754,9762,9766,9915,9922,9930 ,9934 BUF3 Local 9781 R(4) 4 1 2500000 9781,9788,9796,9800,9949,9956,9964 ,9968 EXCH011 Subr 9052 EXCH_BUF_REAL Module 9053 9053 GLB_TABLE Common 9678 336 SAVE I Local 9745 I(4) 4 scalar 9745,9747,9752,9754,9760,9762,9779 ,9781,9786,9788,9794,9796,9814,981 6,9821,9823,9829,9831,9847,9849,98 54,9856,9862,9864,9913,9915,9920,9 922,9928,9930,9947,9949,9954,9956, 9962,9964,9982,9984,9989,9991,9997 ,9999,10015,10017,10022,10024,1003 0,10032 IBEG Local 9741 I(4) 4 scalar 9741,9745,9752,9760,9775,9779,9786 ,9794,9809,9814,9821,9829,9842,984 7,9854,9862,9909,9913,9920,9928,99 43,9947,9954,9962,9977,9982,9989,9 997,10010,10015,10022,10030 IBUFEXCH Param 9723 I(4) 4 scalar 9723,9732,9891,9900 Page 168 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References IC Local 9743 I(4) 4 scalar 9743,9746,9747,9753,9754,9761,9762 ,9766,9777,9780,9781,9787,9788,979 5,9796,9800,9811,9815,9816,9822,98 23,9830,9831,9844,9848,9849,9855,9 856,9863,9864,9911,9914,9915,9921, 9922,9929,9930,9934,9945,9948,9949 ,9955,9956,9963,9964,9968,9979,998 3,9984,9990,9991,9998,9999,10012,1 0016,10017,10023,10024,10031,10032 IDIM1 Param 9074 I(4) 4 scalar 9702,9703,9704 IDIM2 Param 9074 I(4) 4 scalar 9702,9703,9704 IEND Local 9742 I(4) 4 scalar 9742,9745,9752,9760,9776,9779,9786 ,9794,9810,9814,9821,9829,9843,984 7,9854,9862,9910,9913,9920,9928,99 44,9947,9954,9962,9978,9982,9989,9 997,10011,10015,10022,10030 IERR Local 9812 I(4) 4 scalar 9812,9845,9871,9875,9980,10013,100 39,10043 IGSTL Param 9069 I(4) 4 scalar 9074 IGSTR Param 9069 I(4) 4 scalar 9074 IHALO Dummy 9052 I(4) 4 scalar ARG,INOUT 9741,9742,9775,9776,9809,9810,9842 ,9843,9909,9944,9977,10011 IHANDLE Local 9701 I(4) 4 1 4 9724,9733,9767,9801,9812,9845,9871 ,9875,9892,9901,9935,9969,9980,100 13,10039,10043 IM Param 9057 I(4) 4 scalar 9071,9074,9684,9685,9686,9687,9688 ,9692,9693,9698 INPES Param 9066 I(4) 4 scalar 9071,9074,9668,9669,9670,9679,9680 IRECV Local 9724 I(4) 4 scalar 9724,9733,9892,9901 ISEND Local 9767 I(4) 4 scalar 9767,9801,9935,9969 ISTAT Local 9700 I(4) 4 1 5 9812,9845,9871,9875,9980,10013,100 39,10043 ITAIL Param 9071 I(4) 4 scalar ITYPE Local 9708 I(4) 4 scalar 9708,9723,9732,9766,9800,9891,9900 ,9934,9968 J Local 9744 I(4) 4 scalar 9744,9747,9751,9754,9759,9762,9778 ,9781,9785,9788,9793,9796,9813,981 6,9820,9823,9828,9831,9846,9849,98 53,9856,9861,9864,9912,9915,9919,9 922,9927,9930,9946,9949,9953,9956, 9961,9964,9981,9984,9988,9991,9996 ,9999,10014,10017,10021,10024,1002 9,10032 JDIM1 Param 9075 I(4) 4 scalar 9702,9703,9704 JDIM2 Param 9075 I(4) 4 scalar 9702,9703,9704 JGSTL Param 9070 I(4) 4 scalar 9075 JGSTR Param 9070 I(4) 4 scalar 9075 JHALO Dummy 9052 I(4) 4 scalar ARG,INOUT 9744,9751,9759,9778,9785,9793,9813 ,9820,9828,9846,9853,9861,9912,991 9,9927,9946,9953,9961,9981,9988,99 96,10014,10021,10029 JM Param 9057 I(4) 4 scalar 9072,9075,9684,9685,9686,9687,9688 ,9692,9693,9698 JNPES Param 9066 I(4) 4 scalar 9072,9075,9668,9669,9670,9679,9680 JTAIL Param 9072 I(4) 4 scalar Page 169 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References K Local 9750 I(4) 4 scalar 9750,9754,9758,9762,9784,9788,9792 ,9796,9819,9823,9827,9831,9852,985 6,9860,9864,9918,9922,9926,9930,99 52,9956,9960,9964,9987,9991,9995,9 999,10020,10024,10028,10032 LL1 Dummy 9052 I(4) 4 scalar ARG,INOUT LL2 Dummy 9052 I(4) 4 scalar ARG,INOUT 9750,9784,9819,9852,9918,9952,9987 ,10020 LL3 Dummy 9052 I(4) 4 scalar ARG,INOUT 9758,9792,9827,9860,9926,9960,9995 ,10028 LM Param 9057 I(4) 4 scalar 9693 LSM Param 9057 I(4) 4 scalar MAPPINGS Common 9697 5024 SAVE MPIFCMB5 Common 9628 4 SAVE MPIFCMB9 Common 9629 4 SAVE MPIPRIV1 Common 9633 28 SAVE MPIPRIV2 Common 9635 24 SAVE MPIPRIVC Common 9638 2 SAVE MPI_2DOUBLE_PRECISION Param 9374 I(4) 4 scalar MPI_2INT Param 9458 I(4) 4 scalar MPI_2INTEGER Param 9372 I(4) 4 scalar MPI_2REAL Param 9376 I(4) 4 scalar MPI_ADDRESS_KIND Param 9410 I(4) 4 scalar MPI_AINT Param 9488 I(4) 4 scalar MPI_ANY_SOURCE Param 9340 I(4) 4 scalar MPI_ANY_TAG Param 9342 I(4) 4 scalar MPI_APPNUM Param 9304 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 9610 L(4) 4 scalar MPI_BAND Param 9248 I(4) 4 scalar MPI_BOR Param 9252 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 9336 I(4) 4 scalar MPI_BXOR Param 9256 I(4) 4 scalar MPI_BYTE Param 9380 I(4) 4 scalar MPI_CART Param 9348 I(4) 4 scalar MPI_CHAR Param 9418 I(4) 4 scalar MPI_CHARACTER Param 9378 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 9506 I(4) 4 scalar MPI_COMBINER_DARRAY Param 9528 I(4) 4 scalar MPI_COMBINER_DUP Param 9504 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 9532 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 9534 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 9530 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 9518 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 9538 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 9516 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 9512 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 9510 I(4) 4 scalar MPI_COMBINER_INDEXED Param 9514 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 9520 I(4) 4 scalar MPI_COMBINER_NAMED Param 9502 I(4) 4 scalar MPI_COMBINER_RESIZED Param 9536 I(4) 4 scalar Page 170 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_STRUCT Param 9524 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 9522 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 9526 I(4) 4 scalar MPI_COMBINER_VECTOR Param 9508 I(4) 4 scalar MPI_COMM_DUP_FN Subr 9617 scalar MPI_COMM_NULL Param 9272 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 9618 scalar MPI_COMM_NULL_DELETE_FN Subr 9617 scalar MPI_COMM_SELF Param 9268 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 9556 I(4) 4 scalar MPI_COMM_WORLD Param 9266 I(4) 4 scalar MPI_COMPLEX Param 9360 I(4) 4 scalar MPI_COMPLEX16 Param 9406 I(4) 4 scalar MPI_COMPLEX32 Param 9408 I(4) 4 scalar MPI_COMPLEX8 Param 9404 I(4) 4 scalar MPI_CONGRUENT Param 9220 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 9623 scalar MPI_COUNT Param 9492 I(4) 4 scalar MPI_COUNT_KIND Param 9414 I(4) 4 scalar MPI_CXX_BOOL Param 9494 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 9498 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 9496 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 9500 I(4) 4 scalar MPI_C_BOOL Param 9478 I(4) 4 scalar MPI_C_COMPLEX Param 9482 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 9484 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 9480 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 9486 I(4) 4 scalar MPI_DATATYPE_NULL Param 9282 I(4) 4 scalar 9397,9495,9497,9499,9501 MPI_DISPLACEMENT_CURRENT Param 9606 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 9598 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 9600 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 9604 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 9602 I(4) 4 scalar MPI_DIST_GRAPH Param 9350 I(4) 4 scalar MPI_DOUBLE Param 9440 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 9362 I(4) 4 scalar MPI_DOUBLE_INT Param 9452 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 9368 I(4) 4 scalar MPI_DUP_FN Subr 9614 scalar MPI_ERRHANDLER_NULL Param 9286 I(4) 4 scalar MPI_ERROR Param 9087 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 9214 I(4) 4 scalar MPI_ERRORS_RETURN Param 9216 I(4) 4 scalar MPI_ERR_ACCESS Param 9206 I(4) 4 scalar MPI_ERR_AMODE Param 9192 I(4) 4 scalar MPI_ERR_ARG Param 9162 I(4) 4 scalar MPI_ERR_ASSERT Param 9168 I(4) 4 scalar MPI_ERR_BAD_FILE Param 9130 I(4) 4 scalar MPI_ERR_BASE Param 9160 I(4) 4 scalar MPI_ERR_BUFFER Param 9102 I(4) 4 scalar MPI_ERR_COMM Param 9180 I(4) 4 scalar MPI_ERR_CONVERSION Param 9196 I(4) 4 scalar Page 171 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_COUNT Param 9106 I(4) 4 scalar MPI_ERR_DIMS Param 9144 I(4) 4 scalar MPI_ERR_DISP Param 9128 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 9110 I(4) 4 scalar MPI_ERR_FILE Param 9140 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 9122 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 9164 I(4) 4 scalar MPI_ERR_GROUP Param 9126 I(4) 4 scalar MPI_ERR_INFO Param 9154 I(4) 4 scalar MPI_ERR_INFO_KEY Param 9158 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 9138 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 9124 I(4) 4 scalar MPI_ERR_INTERN Param 9156 I(4) 4 scalar MPI_ERR_IN_STATUS Param 9142 I(4) 4 scalar MPI_ERR_IO Param 9202 I(4) 4 scalar MPI_ERR_KEYVAL Param 9148 I(4) 4 scalar MPI_ERR_LASTCODE Param 9170 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 9152 I(4) 4 scalar MPI_ERR_NAME Param 9146 I(4) 4 scalar MPI_ERR_NOT_SAME Param 9174 I(4) 4 scalar MPI_ERR_NO_MEM Param 9166 I(4) 4 scalar MPI_ERR_NO_SPACE Param 9098 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 9182 I(4) 4 scalar MPI_ERR_OP Param 9200 I(4) 4 scalar MPI_ERR_OTHER Param 9114 I(4) 4 scalar MPI_ERR_PENDING Param 9104 I(4) 4 scalar MPI_ERR_PORT Param 9186 I(4) 4 scalar MPI_ERR_QUOTA Param 9190 I(4) 4 scalar MPI_ERR_RANK Param 9112 I(4) 4 scalar MPI_ERR_READ_ONLY Param 9150 I(4) 4 scalar MPI_ERR_REQUEST Param 9194 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 9116 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 9120 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 9136 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 9198 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 9188 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 9100 I(4) 4 scalar MPI_ERR_ROOT Param 9132 I(4) 4 scalar MPI_ERR_SERVICE Param 9108 I(4) 4 scalar MPI_ERR_SIZE Param 9118 I(4) 4 scalar MPI_ERR_SPAWN Param 9178 I(4) 4 scalar MPI_ERR_TAG Param 9208 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 9212 I(4) 4 scalar MPI_ERR_TRUNCATE Param 9172 I(4) 4 scalar MPI_ERR_TYPE Param 9176 I(4) 4 scalar MPI_ERR_UNKNOWN Param 9210 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 9134 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 9184 I(4) 4 scalar MPI_ERR_WIN Param 9204 I(4) 4 scalar MPI_FILE_NULL Param 9276 I(4) 4 scalar MPI_FLOAT Param 9438 I(4) 4 scalar MPI_FLOAT_INT Param 9450 I(4) 4 scalar MPI_GRAPH Param 9346 I(4) 4 scalar Page 172 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_GROUP_EMPTY Param 9270 I(4) 4 scalar MPI_GROUP_NULL Param 9278 I(4) 4 scalar MPI_HOST Param 9294 I(4) 4 scalar MPI_IDENT Param 9218 I(4) 4 scalar MPI_INFO_ENV Param 9290 I(4) 4 scalar MPI_INFO_NULL Param 9288 I(4) 4 scalar MPI_INT Param 9430 I(4) 4 scalar MPI_INT16_T Param 9464 I(4) 4 scalar MPI_INT32_T Param 9466 I(4) 4 scalar MPI_INT64_T Param 9468 I(4) 4 scalar MPI_INT8_T Param 9462 I(4) 4 scalar MPI_INTEGER Param 9370 I(4) 4 scalar MPI_INTEGER1 Param 9388 I(4) 4 scalar MPI_INTEGER16 Param 9396 I(4) 4 scalar MPI_INTEGER2 Param 9390 I(4) 4 scalar MPI_INTEGER4 Param 9392 I(4) 4 scalar MPI_INTEGER8 Param 9394 I(4) 4 scalar MPI_INTEGER_KIND Param 9416 I(4) 4 scalar MPI_IO Param 9296 I(4) 4 scalar MPI_IRECV Subr 9723 9723,9732,9891,9900 MPI_ISEND Subr 9766 9766,9800,9934,9968 MPI_KEYVAL_INVALID Param 9334 I(4) 4 scalar MPI_LAND Param 9246 I(4) 4 scalar MPI_LASTUSEDCODE Param 9302 I(4) 4 scalar MPI_LB Param 9384 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 9356 I(4) 4 scalar MPI_LOCK_SHARED Param 9358 I(4) 4 scalar MPI_LOGICAL Param 9364 I(4) 4 scalar MPI_LONG Param 9434 I(4) 4 scalar MPI_LONG_DOUBLE Param 9442 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 9460 I(4) 4 scalar MPI_LONG_INT Param 9454 I(4) 4 scalar MPI_LONG_LONG Param 9448 I(4) 4 scalar MPI_LONG_LONG_INT Param 9444 I(4) 4 scalar MPI_LOR Param 9250 I(4) 4 scalar MPI_LXOR Param 9254 I(4) 4 scalar MPI_MAX Param 9238 I(4) 4 scalar MPI_MAXLOC Param 9260 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 9328 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 9316 I(4) 4 scalar MPI_MAX_INFO_KEY Param 9322 I(4) 4 scalar MPI_MAX_INFO_VAL Param 9324 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 9330 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 9320 I(4) 4 scalar MPI_MAX_PORT_NAME Param 9318 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 9326 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 9560 I(4) 4 scalar MPI_MESSAGE_NULL Param 9558 I(4) 4 scalar MPI_MIN Param 9240 I(4) 4 scalar MPI_MINLOC Param 9258 I(4) 4 scalar MPI_MODE_APPEND Param 9584 I(4) 4 scalar MPI_MODE_CREATE Param 9580 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 9576 I(4) 4 scalar MPI_MODE_EXCL Param 9582 I(4) 4 scalar Page 173 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_NOCHECK Param 9546 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 9552 I(4) 4 scalar MPI_MODE_NOPUT Param 9550 I(4) 4 scalar MPI_MODE_NOSTORE Param 9548 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 9554 I(4) 4 scalar MPI_MODE_RDONLY Param 9570 I(4) 4 scalar MPI_MODE_RDWR Param 9572 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 9586 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 9578 I(4) 4 scalar MPI_MODE_WRONLY Param 9574 I(4) 4 scalar MPI_NO_OP Param 9264 I(4) 4 scalar MPI_NULL_COPY_FN Subr 9614 scalar MPI_NULL_DELETE_FN Subr 9614 scalar MPI_OFFSET Param 9490 I(4) 4 scalar MPI_OFFSET_KIND Param 9412 I(4) 4 scalar MPI_OP_NULL Param 9280 I(4) 4 scalar MPI_ORDER_C Param 9594 I(4) 4 scalar MPI_ORDER_FORTRAN Param 9596 I(4) 4 scalar MPI_PACKED Param 9386 I(4) 4 scalar MPI_PROC_NULL Param 9338 I(4) 4 scalar MPI_PROD Param 9244 I(4) 4 scalar MPI_REAL Param 9366 I(4) 4 scalar 9708 MPI_REAL16 Param 9402 I(4) 4 scalar MPI_REAL4 Param 9398 I(4) 4 scalar MPI_REAL8 Param 9400 I(4) 4 scalar MPI_REPLACE Param 9262 I(4) 4 scalar MPI_REQUEST_NULL Param 9284 I(4) 4 scalar MPI_ROOT Param 9344 I(4) 4 scalar MPI_SEEK_CUR Param 9590 I(4) 4 scalar MPI_SEEK_END Param 9592 I(4) 4 scalar MPI_SEEK_SET Param 9588 I(4) 4 scalar MPI_SHORT Param 9426 I(4) 4 scalar MPI_SHORT_INT Param 9456 I(4) 4 scalar MPI_SIGNED_CHAR Param 9420 I(4) 4 scalar MPI_SIMILAR Param 9222 I(4) 4 scalar MPI_SOURCE Param 9087 I(4) 4 scalar MPI_STATUS_SIZE Param 9089 I(4) 4 scalar 9091,9092,9700 MPI_SUBARRAYS_SUPPORTED Param 9608 L(4) 4 scalar MPI_SUBVERSION Param 9354 I(4) 4 scalar MPI_SUCCESS Param 9096 I(4) 4 scalar MPI_SUM Param 9242 I(4) 4 scalar MPI_TAG Param 9087 I(4) 4 scalar MPI_TAG_UB Param 9292 I(4) 4 scalar MPI_THREAD_FUNNELED Param 9564 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 9568 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 9566 I(4) 4 scalar MPI_THREAD_SINGLE Param 9562 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 9544 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 9542 I(4) 4 scalar MPI_TYPECLASS_REAL Param 9540 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 9621 scalar MPI_TYPE_NULL_COPY_FN Subr 9622 scalar MPI_TYPE_NULL_DELETE_FN Subr 9621 scalar MPI_UB Param 9382 I(4) 4 scalar MPI_UINT16_T Param 9472 I(4) 4 scalar Page 174 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UINT32_T Param 9474 I(4) 4 scalar MPI_UINT64_T Param 9476 I(4) 4 scalar MPI_UINT8_T Param 9470 I(4) 4 scalar MPI_UNDEFINED Param 9332 I(4) 4 scalar MPI_UNEQUAL Param 9224 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 9300 I(4) 4 scalar MPI_UNSIGNED Param 9432 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 9422 I(4) 4 scalar MPI_UNSIGNED_LONG Param 9436 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 9446 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 9428 I(4) 4 scalar MPI_VERSION Param 9352 I(4) 4 scalar MPI_WAIT Subr 9812 9812,9845,9871,9875,9980,10013,100 39,10043 MPI_WCHAR Param 9424 I(4) 4 scalar MPI_WIN_BASE Param 9306 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 9312 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 9310 I(4) 4 scalar MPI_WIN_DUP_FN Subr 9619 scalar MPI_WIN_FLAVOR_ALLOCATE Param 9228 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 9226 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 9230 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 9232 I(4) 4 scalar MPI_WIN_MODEL Param 9314 I(4) 4 scalar MPI_WIN_NULL Param 9274 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 9620 scalar MPI_WIN_NULL_DELETE_FN Subr 9619 scalar MPI_WIN_SEPARATE Param 9234 I(4) 4 scalar MPI_WIN_SIZE Param 9308 I(4) 4 scalar MPI_WIN_UNIFIED Param 9236 I(4) 4 scalar MPI_WTICK Func 9615 R(8) 8 scalar MPI_WTIME Func 9615 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 9298 I(4) 4 scalar MPPCOM Common 9642 1724 SAVE PMPI_WTICK Func 9616 R(8) 8 scalar PMPI_WTIME Func 9616 R(8) 8 scalar TEMPCOM Common 9683 6603768 SAVE TOPO Common 9691 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 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 Page 175 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 9724,9733,9767,9801,9892,9901,9935 ,9969 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 9742,9776,9810,9843,9909,9910,1001 0,10011 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 Page 176 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 9741,9775,9809,9842,9943,9944,9977 ,9978 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 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 9747,9754,9762,9849,9856,9864,9912 ,9919,9927,9946,9953,9961,9981,998 8,9996,10014,10021,10029 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 9781,9788,9796,9816,9823,9831,9912 ,9919,9927,9946,9953,9961,9981,998 8,9996,10014,10021,10029 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 Page 177 Source Listing EXCH011 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 9766,9800,9934,9968 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 9722,9723,9731,9732,9740,9766,9774 ,9800,9808,9841,9870,9874,9890,989 1,9899,9900,9908,9934,9942,9968,99 76,10009,10038,10042 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 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 178 Source Listing EXCH011 2025-03-12 18:22 module_EXCHM.F 10048 10049 SUBROUTINE IEXCH(ARR1,LL1,IHALO,JHALO) 10050 USE EXCH_BUF_INTEGER 10051 INCLUDE "parmeta" 10075 INCLUDE "mpif.h" 10637 INCLUDE "mpp.h" 10638 C----------------------------------------------------------------------- 10697 INTEGER ISTAT(MPI_STATUS_SIZE) 10698 INTEGER IHANDLE(4) 10699 INTEGER ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 10700 C 10701 C*********************************************************************** 10702 C 10703 ITYPE=MPI_INTEGER 10704 C 10705 C-------------------------------------------------------------------- 10706 C-------------------------------------------------------------------- 10707 C*** 10708 C*** NORTH/SOUTH 10709 C*** 10710 C-------------------------------------------------------------------- 10711 C-------------------------------------------------------------------- 10712 C 10713 C-------------------------------------------------------------------- 10714 C RECEIVE FROM NORTH 10715 C-------------------------------------------------------------------- 10716 C 10717 IF(MY_NEB(1).GE.0)THEN 10718 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 10719 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 10720 ENDIF 10721 C 10722 C-------------------------------------------------------------------- 10723 C RECEIVE FROM SOUTH 10724 C-------------------------------------------------------------------- 10725 C 10726 IF(MY_NEB(3).GE.0)THEN 10727 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 10728 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 10729 ENDIF 10730 C 10731 C-------------------------------------------------------------------- 10732 C SEND TO NORTH 10733 C-------------------------------------------------------------------- 10734 C 10735 IF(MY_NEB(1).GE.0)THEN 10736 IBEG=MYIS-IHALO 10737 IEND=MYIE+IHALO 10738 IC = 0 10739 DO J=0,JHALO-1 10740 DO I=IBEG,IEND 10741 IC = IC + 1 10742 BUF2(IC)=ARR1(I,MYJE-J) 10743 ENDDO 10744 ENDDO 10745 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 10746 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 179 Source Listing IEXCH 2025-03-12 18:22 module_EXCHM.F 10747 ENDIF 10748 C 10749 C-------------------------------------------------------------------- 10750 C SEND TO SOUTH 10751 C-------------------------------------------------------------------- 10752 C 10753 IF(MY_NEB(3).GE.0)THEN 10754 IBEG=MYIS-IHALO 10755 IEND=MYIE+IHALO 10756 IC = 0 10757 DO J=0,JHALO-1 10758 DO I=IBEG,IEND 10759 IC = IC + 1 10760 BUF3(IC)=ARR1(I,MYJS+J) 10761 ENDDO 10762 ENDDO 10763 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 10764 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 10765 ENDIF 10766 C 10767 C-------------------------------------------------------------------- 10768 C STORE RESULTS FROM SOUTH 10769 C-------------------------------------------------------------------- 10770 C 10771 IF(MY_NEB(3).GE.0)THEN 10772 IBEG=MYIS-IHALO 10773 IEND=MYIE+IHALO 10774 IC = 0 10775 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 10776 DO J=0,JHALO-1 10777 DO I=IBEG,IEND 10778 IC = IC + 1 10779 ARR1(I,MYJS-J-1)=BUF1(IC) 10780 ENDDO 10781 ENDDO 10782 ENDIF 10783 C 10784 C-------------------------------------------------------------------- 10785 C STORE FROM NORTH 10786 C-------------------------------------------------------------------- 10787 C 10788 IF(MY_NEB(1).GE.0)THEN 10789 IBEG=MYIS-IHALO 10790 IEND=MYIE+IHALO 10791 IC = 0 10792 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 10793 DO J=0,JHALO-1 10794 DO I=IBEG,IEND 10795 IC = IC + 1 10796 ARR1(I,MYJE+J+1)=BUF0(IC) 10797 ENDDO 10798 ENDDO 10799 ENDIF 10800 C 10801 IF(MY_NEB(1).GE.0)THEN 10802 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 10803 ENDIF Page 180 Source Listing IEXCH 2025-03-12 18:22 module_EXCHM.F 10804 C 10805 IF(MY_NEB(3).GE.0)THEN 10806 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 10807 ENDIF 10808 C 10809 C-------------------------------------------------------------------- 10810 C-------------------------------------------------------------------- 10811 C*** 10812 C*** EAST/WEST 10813 C*** 10814 C-------------------------------------------------------------------- 10815 C-------------------------------------------------------------------- 10816 C 10817 C-------------------------------------------------------------------- 10818 C RECEIVE FROM WEST 10819 C-------------------------------------------------------------------- 10820 C 10821 IF(MY_NEB(4).GE.0)THEN 10822 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 10823 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 10824 ENDIF 10825 C 10826 C-------------------------------------------------------------------- 10827 C RECEIVE FROM EAST 10828 C-------------------------------------------------------------------- 10829 C 10830 IF(MY_NEB(2).GE.0)THEN 10831 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 10832 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 10833 ENDIF 10834 C 10835 C-------------------------------------------------------------------- 10836 C SEND TO EAST 10837 C-------------------------------------------------------------------- 10838 C 10839 IF(MY_NEB(2).GE.0)THEN 10840 IBEG=MYIE-IHALO+1 10841 IEND=MYIE 10842 IC = 0 10843 DO J=MYJS-JHALO,MYJE+JHALO 10844 DO I=IBEG,IEND 10845 IC = IC + 1 10846 BUF2(IC)=ARR1(I,J) 10847 ENDDO 10848 ENDDO 10849 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 10850 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 10851 ENDIF 10852 C 10853 C-------------------------------------------------------------------- 10854 C SEND TO WEST 10855 C-------------------------------------------------------------------- 10856 C 10857 IF(MY_NEB(4).GE.0)THEN 10858 IBEG=MYIS 10859 IEND=MYIS+IHALO-1 10860 IC = 0 Page 181 Source Listing IEXCH 2025-03-12 18:22 module_EXCHM.F 10861 DO J=MYJS-JHALO,MYJE+JHALO 10862 DO I=IBEG,IEND 10863 IC = IC + 1 10864 BUF3(IC)=ARR1(I,J) 10865 ENDDO 10866 ENDDO 10867 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 10868 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 10869 ENDIF 10870 C 10871 C-------------------------------------------------------------------- 10872 C STORE FROM WEST 10873 C-------------------------------------------------------------------- 10874 C 10875 IF(MY_NEB(4).GE.0)THEN 10876 IBEG=MYIS-IHALO 10877 IEND=MYIS-1 10878 IC = 0 10879 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 10880 DO J=MYJS-JHALO,MYJE+JHALO 10881 DO I=IBEG,IEND 10882 IC = IC + 1 10883 ARR1(I,J)=BUF0(IC) 10884 ENDDO 10885 ENDDO 10886 ENDIF 10887 C 10888 C-------------------------------------------------------------------- 10889 C STORE FROM EAST 10890 C-------------------------------------------------------------------- 10891 C 10892 IF(MY_NEB(2).GE.0)THEN 10893 IBEG=MYIE+1 10894 IEND=MYIE+IHALO 10895 IC = 0 10896 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 10897 DO J=MYJS-JHALO,MYJE+JHALO 10898 DO I=IBEG,IEND 10899 IC = IC + 1 10900 ARR1(I,J)=BUF1(IC) 10901 ENDDO 10902 ENDDO 10903 ENDIF 10904 C 10905 IF(MY_NEB(4).GE.0)THEN 10906 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 10907 ENDIF 10908 C 10909 IF(MY_NEB(2).GE.0)THEN 10910 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 10911 ENDIF 10912 C 10913 C-------------------------------------------------------------------- 10914 END SUBROUTINE Page 182 Source Listing IEXCH 2025-03-12 18:22 Entry Points module_EXCHM.F ENTRY POINTS Name exchm_mp_iexch_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 10049 I(4) 4 2 6319 ARG,INOUT 10742,10760,10779,10796,10846,1086 4,10883,10900 BUF0 Local 10718 I(4) 4 1 2500000 10718,10796,10822,10883 BUF1 Local 10727 I(4) 4 1 2500000 10727,10779,10831,10900 BUF2 Local 10742 I(4) 4 1 2500000 10742,10745,10846,10849 BUF3 Local 10760 I(4) 4 1 2500000 10760,10763,10864,10867 EXCH_BUF_INTEGER Module 10050 10050 GLB_TABLE Common 10675 336 SAVE I Local 10740 I(4) 4 scalar 10740,10742,10758,10760,10777,1077 9,10794,10796,10844,10846,10862,10 864,10881,10883,10898,10900 IBEG Local 10736 I(4) 4 scalar 10736,10740,10754,10758,10772,1077 7,10789,10794,10840,10844,10858,10 862,10876,10881,10893,10898 IBUFEXCH Param 10718 I(4) 4 scalar 10718,10727,10822,10831 IC Local 10738 I(4) 4 scalar 10738,10741,10742,10745,10756,1075 9,10760,10763,10774,10778,10779,10 791,10795,10796,10842,10845,10846, 10849,10860,10863,10864,10867,1087 8,10882,10883,10895,10899,10900 IDIM1 Param 10071 I(4) 4 scalar 10699 IDIM2 Param 10071 I(4) 4 scalar 10699 IEND Local 10737 I(4) 4 scalar 10737,10740,10755,10758,10773,1077 7,10790,10794,10841,10844,10859,10 862,10877,10881,10894,10898 IERR Local 10775 I(4) 4 scalar 10775,10792,10802,10806,10879,1089 6,10906,10910 IEXCH Subr 10049 IGSTL Param 10066 I(4) 4 scalar 10071 IGSTR Param 10066 I(4) 4 scalar 10071 IHALO Dummy 10049 I(4) 4 scalar ARG,INOUT 10736,10737,10754,10755,10772,1077 3,10789,10790,10840,10859,10876,10 894 IHANDLE Local 10698 I(4) 4 1 4 10719,10728,10746,10764,10775,1079 2,10802,10806,10823,10832,10850,10 868,10879,10896,10906,10910 IM Param 10054 I(4) 4 scalar 10068,10071,10681,10682,10683,1068 4,10685,10689,10690,10695 INPES Param 10063 I(4) 4 scalar 10068,10071,10665,10666,10667,1067 6,10677 IRECV Local 10719 I(4) 4 scalar 10719,10728,10823,10832 ISEND Local 10746 I(4) 4 scalar 10746,10764,10850,10868 ISTAT Local 10697 I(4) 4 1 5 10775,10792,10802,10806,10879,1089 6,10906,10910 Page 183 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ITAIL Param 10068 I(4) 4 scalar ITYPE Local 10703 I(4) 4 scalar 10703,10718,10727,10745,10763,1082 2,10831,10849,10867 J Local 10739 I(4) 4 scalar 10739,10742,10757,10760,10776,1077 9,10793,10796,10843,10846,10861,10 864,10880,10883,10897,10900 JDIM1 Param 10072 I(4) 4 scalar 10699 JDIM2 Param 10072 I(4) 4 scalar 10699 JGSTL Param 10067 I(4) 4 scalar 10072 JGSTR Param 10067 I(4) 4 scalar 10072 JHALO Dummy 10049 I(4) 4 scalar ARG,INOUT 10739,10757,10776,10793,10843,1086 1,10880,10897 JM Param 10054 I(4) 4 scalar 10069,10072,10681,10682,10683,1068 4,10685,10689,10690,10695 JNPES Param 10063 I(4) 4 scalar 10069,10072,10665,10666,10667,1067 6,10677 JTAIL Param 10069 I(4) 4 scalar LL1 Dummy 10049 I(4) 4 scalar ARG,INOUT LM Param 10054 I(4) 4 scalar 10690 LSM Param 10054 I(4) 4 scalar MAPPINGS Common 10694 5024 SAVE MPIFCMB5 Common 10625 4 SAVE MPIFCMB9 Common 10626 4 SAVE MPIPRIV1 Common 10630 28 SAVE MPIPRIV2 Common 10632 24 SAVE MPIPRIVC Common 10635 2 SAVE MPI_2DOUBLE_PRECISION Param 10371 I(4) 4 scalar MPI_2INT Param 10455 I(4) 4 scalar MPI_2INTEGER Param 10369 I(4) 4 scalar MPI_2REAL Param 10373 I(4) 4 scalar MPI_ADDRESS_KIND Param 10407 I(4) 4 scalar MPI_AINT Param 10485 I(4) 4 scalar MPI_ANY_SOURCE Param 10337 I(4) 4 scalar MPI_ANY_TAG Param 10339 I(4) 4 scalar MPI_APPNUM Param 10301 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 10607 L(4) 4 scalar MPI_BAND Param 10245 I(4) 4 scalar MPI_BOR Param 10249 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 10333 I(4) 4 scalar MPI_BXOR Param 10253 I(4) 4 scalar MPI_BYTE Param 10377 I(4) 4 scalar MPI_CART Param 10345 I(4) 4 scalar MPI_CHAR Param 10415 I(4) 4 scalar MPI_CHARACTER Param 10375 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 10503 I(4) 4 scalar MPI_COMBINER_DARRAY Param 10525 I(4) 4 scalar MPI_COMBINER_DUP Param 10501 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 10529 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 10531 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 10527 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 10515 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 10535 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE Page 184 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References GER Param 10513 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 10509 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 10507 I(4) 4 scalar MPI_COMBINER_INDEXED Param 10511 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 10517 I(4) 4 scalar MPI_COMBINER_NAMED Param 10499 I(4) 4 scalar MPI_COMBINER_RESIZED Param 10533 I(4) 4 scalar MPI_COMBINER_STRUCT Param 10521 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 10519 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 10523 I(4) 4 scalar MPI_COMBINER_VECTOR Param 10505 I(4) 4 scalar MPI_COMM_DUP_FN Subr 10614 scalar MPI_COMM_NULL Param 10269 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 10615 scalar MPI_COMM_NULL_DELETE_FN Subr 10614 scalar MPI_COMM_SELF Param 10265 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 10553 I(4) 4 scalar MPI_COMM_WORLD Param 10263 I(4) 4 scalar MPI_COMPLEX Param 10357 I(4) 4 scalar MPI_COMPLEX16 Param 10403 I(4) 4 scalar MPI_COMPLEX32 Param 10405 I(4) 4 scalar MPI_COMPLEX8 Param 10401 I(4) 4 scalar MPI_CONGRUENT Param 10217 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 10620 scalar MPI_COUNT Param 10489 I(4) 4 scalar MPI_COUNT_KIND Param 10411 I(4) 4 scalar MPI_CXX_BOOL Param 10491 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 10495 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 10493 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 10497 I(4) 4 scalar MPI_C_BOOL Param 10475 I(4) 4 scalar MPI_C_COMPLEX Param 10479 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 10481 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 10477 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 10483 I(4) 4 scalar MPI_DATATYPE_NULL Param 10279 I(4) 4 scalar 10394,10492,10494,10496,10498 MPI_DISPLACEMENT_CURRENT Param 10603 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 10595 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 10597 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 10601 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 10599 I(4) 4 scalar MPI_DIST_GRAPH Param 10347 I(4) 4 scalar MPI_DOUBLE Param 10437 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 10359 I(4) 4 scalar MPI_DOUBLE_INT Param 10449 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 10365 I(4) 4 scalar MPI_DUP_FN Subr 10611 scalar MPI_ERRHANDLER_NULL Param 10283 I(4) 4 scalar MPI_ERROR Param 10084 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 10211 I(4) 4 scalar MPI_ERRORS_RETURN Param 10213 I(4) 4 scalar MPI_ERR_ACCESS Param 10203 I(4) 4 scalar Page 185 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_AMODE Param 10189 I(4) 4 scalar MPI_ERR_ARG Param 10159 I(4) 4 scalar MPI_ERR_ASSERT Param 10165 I(4) 4 scalar MPI_ERR_BAD_FILE Param 10127 I(4) 4 scalar MPI_ERR_BASE Param 10157 I(4) 4 scalar MPI_ERR_BUFFER Param 10099 I(4) 4 scalar MPI_ERR_COMM Param 10177 I(4) 4 scalar MPI_ERR_CONVERSION Param 10193 I(4) 4 scalar MPI_ERR_COUNT Param 10103 I(4) 4 scalar MPI_ERR_DIMS Param 10141 I(4) 4 scalar MPI_ERR_DISP Param 10125 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 10107 I(4) 4 scalar MPI_ERR_FILE Param 10137 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 10119 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 10161 I(4) 4 scalar MPI_ERR_GROUP Param 10123 I(4) 4 scalar MPI_ERR_INFO Param 10151 I(4) 4 scalar MPI_ERR_INFO_KEY Param 10155 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 10135 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 10121 I(4) 4 scalar MPI_ERR_INTERN Param 10153 I(4) 4 scalar MPI_ERR_IN_STATUS Param 10139 I(4) 4 scalar MPI_ERR_IO Param 10199 I(4) 4 scalar MPI_ERR_KEYVAL Param 10145 I(4) 4 scalar MPI_ERR_LASTCODE Param 10167 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 10149 I(4) 4 scalar MPI_ERR_NAME Param 10143 I(4) 4 scalar MPI_ERR_NOT_SAME Param 10171 I(4) 4 scalar MPI_ERR_NO_MEM Param 10163 I(4) 4 scalar MPI_ERR_NO_SPACE Param 10095 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 10179 I(4) 4 scalar MPI_ERR_OP Param 10197 I(4) 4 scalar MPI_ERR_OTHER Param 10111 I(4) 4 scalar MPI_ERR_PENDING Param 10101 I(4) 4 scalar MPI_ERR_PORT Param 10183 I(4) 4 scalar MPI_ERR_QUOTA Param 10187 I(4) 4 scalar MPI_ERR_RANK Param 10109 I(4) 4 scalar MPI_ERR_READ_ONLY Param 10147 I(4) 4 scalar MPI_ERR_REQUEST Param 10191 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 10113 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 10117 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 10133 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 10195 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 10185 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 10097 I(4) 4 scalar MPI_ERR_ROOT Param 10129 I(4) 4 scalar MPI_ERR_SERVICE Param 10105 I(4) 4 scalar MPI_ERR_SIZE Param 10115 I(4) 4 scalar MPI_ERR_SPAWN Param 10175 I(4) 4 scalar MPI_ERR_TAG Param 10205 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 10209 I(4) 4 scalar MPI_ERR_TRUNCATE Param 10169 I(4) 4 scalar MPI_ERR_TYPE Param 10173 I(4) 4 scalar MPI_ERR_UNKNOWN Param 10207 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE Page 186 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References P Param 10131 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 10181 I(4) 4 scalar MPI_ERR_WIN Param 10201 I(4) 4 scalar MPI_FILE_NULL Param 10273 I(4) 4 scalar MPI_FLOAT Param 10435 I(4) 4 scalar MPI_FLOAT_INT Param 10447 I(4) 4 scalar MPI_GRAPH Param 10343 I(4) 4 scalar MPI_GROUP_EMPTY Param 10267 I(4) 4 scalar MPI_GROUP_NULL Param 10275 I(4) 4 scalar MPI_HOST Param 10291 I(4) 4 scalar MPI_IDENT Param 10215 I(4) 4 scalar MPI_INFO_ENV Param 10287 I(4) 4 scalar MPI_INFO_NULL Param 10285 I(4) 4 scalar MPI_INT Param 10427 I(4) 4 scalar MPI_INT16_T Param 10461 I(4) 4 scalar MPI_INT32_T Param 10463 I(4) 4 scalar MPI_INT64_T Param 10465 I(4) 4 scalar MPI_INT8_T Param 10459 I(4) 4 scalar MPI_INTEGER Param 10367 I(4) 4 scalar 10703 MPI_INTEGER1 Param 10385 I(4) 4 scalar MPI_INTEGER16 Param 10393 I(4) 4 scalar MPI_INTEGER2 Param 10387 I(4) 4 scalar MPI_INTEGER4 Param 10389 I(4) 4 scalar MPI_INTEGER8 Param 10391 I(4) 4 scalar MPI_INTEGER_KIND Param 10413 I(4) 4 scalar MPI_IO Param 10293 I(4) 4 scalar MPI_IRECV Subr 10718 10718,10727,10822,10831 MPI_ISEND Subr 10745 10745,10763,10849,10867 MPI_KEYVAL_INVALID Param 10331 I(4) 4 scalar MPI_LAND Param 10243 I(4) 4 scalar MPI_LASTUSEDCODE Param 10299 I(4) 4 scalar MPI_LB Param 10381 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 10353 I(4) 4 scalar MPI_LOCK_SHARED Param 10355 I(4) 4 scalar MPI_LOGICAL Param 10361 I(4) 4 scalar MPI_LONG Param 10431 I(4) 4 scalar MPI_LONG_DOUBLE Param 10439 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 10457 I(4) 4 scalar MPI_LONG_INT Param 10451 I(4) 4 scalar MPI_LONG_LONG Param 10445 I(4) 4 scalar MPI_LONG_LONG_INT Param 10441 I(4) 4 scalar MPI_LOR Param 10247 I(4) 4 scalar MPI_LXOR Param 10251 I(4) 4 scalar MPI_MAX Param 10235 I(4) 4 scalar MPI_MAXLOC Param 10257 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 10325 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 10313 I(4) 4 scalar MPI_MAX_INFO_KEY Param 10319 I(4) 4 scalar MPI_MAX_INFO_VAL Param 10321 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 10327 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 10317 I(4) 4 scalar MPI_MAX_PORT_NAME Param 10315 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 10323 I(4) 4 scalar Page 187 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MESSAGE_NO_PROC Param 10557 I(4) 4 scalar MPI_MESSAGE_NULL Param 10555 I(4) 4 scalar MPI_MIN Param 10237 I(4) 4 scalar MPI_MINLOC Param 10255 I(4) 4 scalar MPI_MODE_APPEND Param 10581 I(4) 4 scalar MPI_MODE_CREATE Param 10577 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 10573 I(4) 4 scalar MPI_MODE_EXCL Param 10579 I(4) 4 scalar MPI_MODE_NOCHECK Param 10543 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 10549 I(4) 4 scalar MPI_MODE_NOPUT Param 10547 I(4) 4 scalar MPI_MODE_NOSTORE Param 10545 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 10551 I(4) 4 scalar MPI_MODE_RDONLY Param 10567 I(4) 4 scalar MPI_MODE_RDWR Param 10569 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 10583 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 10575 I(4) 4 scalar MPI_MODE_WRONLY Param 10571 I(4) 4 scalar MPI_NO_OP Param 10261 I(4) 4 scalar MPI_NULL_COPY_FN Subr 10611 scalar MPI_NULL_DELETE_FN Subr 10611 scalar MPI_OFFSET Param 10487 I(4) 4 scalar MPI_OFFSET_KIND Param 10409 I(4) 4 scalar MPI_OP_NULL Param 10277 I(4) 4 scalar MPI_ORDER_C Param 10591 I(4) 4 scalar MPI_ORDER_FORTRAN Param 10593 I(4) 4 scalar MPI_PACKED Param 10383 I(4) 4 scalar MPI_PROC_NULL Param 10335 I(4) 4 scalar MPI_PROD Param 10241 I(4) 4 scalar MPI_REAL Param 10363 I(4) 4 scalar MPI_REAL16 Param 10399 I(4) 4 scalar MPI_REAL4 Param 10395 I(4) 4 scalar MPI_REAL8 Param 10397 I(4) 4 scalar MPI_REPLACE Param 10259 I(4) 4 scalar MPI_REQUEST_NULL Param 10281 I(4) 4 scalar MPI_ROOT Param 10341 I(4) 4 scalar MPI_SEEK_CUR Param 10587 I(4) 4 scalar MPI_SEEK_END Param 10589 I(4) 4 scalar MPI_SEEK_SET Param 10585 I(4) 4 scalar MPI_SHORT Param 10423 I(4) 4 scalar MPI_SHORT_INT Param 10453 I(4) 4 scalar MPI_SIGNED_CHAR Param 10417 I(4) 4 scalar MPI_SIMILAR Param 10219 I(4) 4 scalar MPI_SOURCE Param 10084 I(4) 4 scalar MPI_STATUS_SIZE Param 10086 I(4) 4 scalar 10088,10089,10697 MPI_SUBARRAYS_SUPPORTED Param 10605 L(4) 4 scalar MPI_SUBVERSION Param 10351 I(4) 4 scalar MPI_SUCCESS Param 10093 I(4) 4 scalar MPI_SUM Param 10239 I(4) 4 scalar MPI_TAG Param 10084 I(4) 4 scalar MPI_TAG_UB Param 10289 I(4) 4 scalar MPI_THREAD_FUNNELED Param 10561 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 10565 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 10563 I(4) 4 scalar MPI_THREAD_SINGLE Param 10559 I(4) 4 scalar Page 188 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_TYPECLASS_COMPLEX Param 10541 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 10539 I(4) 4 scalar MPI_TYPECLASS_REAL Param 10537 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 10618 scalar MPI_TYPE_NULL_COPY_FN Subr 10619 scalar MPI_TYPE_NULL_DELETE_FN Subr 10618 scalar MPI_UB Param 10379 I(4) 4 scalar MPI_UINT16_T Param 10469 I(4) 4 scalar MPI_UINT32_T Param 10471 I(4) 4 scalar MPI_UINT64_T Param 10473 I(4) 4 scalar MPI_UINT8_T Param 10467 I(4) 4 scalar MPI_UNDEFINED Param 10329 I(4) 4 scalar MPI_UNEQUAL Param 10221 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 10297 I(4) 4 scalar MPI_UNSIGNED Param 10429 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 10419 I(4) 4 scalar MPI_UNSIGNED_LONG Param 10433 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 10443 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 10425 I(4) 4 scalar MPI_VERSION Param 10349 I(4) 4 scalar MPI_WAIT Subr 10775 10775,10792,10802,10806,10879,1089 6,10906,10910 MPI_WCHAR Param 10421 I(4) 4 scalar MPI_WIN_BASE Param 10303 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 10309 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 10307 I(4) 4 scalar MPI_WIN_DUP_FN Subr 10616 scalar MPI_WIN_FLAVOR_ALLOCATE Param 10225 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 10223 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 10227 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 10229 I(4) 4 scalar MPI_WIN_MODEL Param 10311 I(4) 4 scalar MPI_WIN_NULL Param 10271 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 10617 scalar MPI_WIN_NULL_DELETE_FN Subr 10616 scalar MPI_WIN_SEPARATE Param 10231 I(4) 4 scalar MPI_WIN_SIZE Param 10305 I(4) 4 scalar MPI_WIN_UNIFIED Param 10233 I(4) 4 scalar MPI_WTICK Func 10612 R(8) 8 scalar MPI_WTIME Func 10612 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 10295 I(4) 4 scalar MPPCOM Common 10639 1724 SAVE PMPI_WTICK Func 10613 R(8) 8 scalar PMPI_WTIME Func 10613 R(8) 8 scalar TEMPCOM Common 10680 6603768 SAVE TOPO Common 10688 17478548 SAVE Page 189 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F 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 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 10719,10728,10746,10764,10823,1083 2,10850,10868 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 Page 190 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MYIE I(4) 4 52 scalar COM 10737,10755,10773,10790,10840,1084 1,10893,10894 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 10736,10754,10772,10789,10858,1085 9,10876,10877 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 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 10742,10796,10843,10861,10880,1089 7 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 10760,10779,10843,10861,10880,1089 Page 191 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 7 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 10745,10763,10849,10867 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 10717,10718,10726,10727,10735,1074 5,10753,10763,10771,10788,10801,10 805,10821,10822,10830,10831,10839, 10849,10857,10867,10875,10892,1090 5,10909 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 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 Page 192 Source Listing IEXCH 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 193 Source Listing IEXCH 2025-03-12 18:22 module_EXCHM.F 10915 10916 SUBROUTINE EXCH0001111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 10917 * ARR4,LL4,ARR5,LL5, 10918 * ARR6,LL6,ARR7,LL7,IHALO,JHALO) 10919 USE EXCH_BUF_REAL 10920 INCLUDE "parmeta" 10944 INCLUDE "mpif.h" 11506 INCLUDE "mpp.h" 11507 C----------------------------------------------------------------------- 11566 INTEGER ISTAT(MPI_STATUS_SIZE) 11567 INTEGER IHANDLE(4) 11568 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 11569 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2) 11570 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2) 11571 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 11572 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 11573 REAL ARR6(IDIM1:IDIM2,JDIM1:JDIM2,*) 11574 REAL ARR7(IDIM1:IDIM2,JDIM1:JDIM2,*) 11575 C 11576 C*********************************************************************** 11577 C 11578 ITYPE=MPI_REAL 11579 C 11580 C-------------------------------------------------------------------- 11581 C-------------------------------------------------------------------- 11582 C*** 11583 C*** NORTH/SOUTH 11584 C*** 11585 C-------------------------------------------------------------------- 11586 C-------------------------------------------------------------------- 11587 C 11588 C-------------------------------------------------------------------- 11589 C RECEIVE FROM NORTH 11590 C-------------------------------------------------------------------- 11591 C 11592 IF(MY_NEB(1).GE.0)THEN 11593 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 11594 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 11595 ENDIF 11596 C 11597 C-------------------------------------------------------------------- 11598 C RECEIVE FROM SOUTH 11599 C-------------------------------------------------------------------- 11600 C 11601 IF(MY_NEB(3).GE.0)THEN 11602 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 11603 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 11604 ENDIF 11605 C 11606 C-------------------------------------------------------------------- 11607 C SEND TO NORTH 11608 C-------------------------------------------------------------------- 11609 C 11610 IF(MY_NEB(1).GE.0)THEN 11611 IBEG=MYIS-IHALO 11612 IEND=MYIE+IHALO 11613 IC = 0 Page 194 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 11614 DO J=0,JHALO-1 11615 DO I=IBEG,IEND 11616 IC = IC + 1 11617 BUF2(IC)=ARR1(I,MYJE-J) 11618 ENDDO 11619 ENDDO 11620 DO J=0,JHALO-1 11621 DO I=IBEG,IEND 11622 IC = IC + 1 11623 BUF2(IC)=ARR2(I,MYJE-J) 11624 ENDDO 11625 ENDDO 11626 DO J=0,JHALO-1 11627 DO I=IBEG,IEND 11628 IC = IC + 1 11629 BUF2(IC)=ARR3(I,MYJE-J) 11630 ENDDO 11631 ENDDO 11632 DO K=1,LL4 11633 DO J=0,JHALO-1 11634 DO I=IBEG,IEND 11635 IC = IC + 1 11636 BUF2(IC)=ARR4(I,MYJE-J,K) 11637 ENDDO 11638 ENDDO 11639 ENDDO 11640 DO K=1,LL5 11641 DO J=0,JHALO-1 11642 DO I=IBEG,IEND 11643 IC = IC + 1 11644 BUF2(IC)=ARR5(I,MYJE-J,K) 11645 ENDDO 11646 ENDDO 11647 ENDDO 11648 DO K=1,LL6 11649 DO J=0,JHALO-1 11650 DO I=IBEG,IEND 11651 IC = IC + 1 11652 BUF2(IC)=ARR6(I,MYJE-J,K) 11653 ENDDO 11654 ENDDO 11655 ENDDO 11656 DO K=1,LL7 11657 DO J=0,JHALO-1 11658 DO I=IBEG,IEND 11659 IC = IC + 1 11660 BUF2(IC)=ARR7(I,MYJE-J,K) 11661 ENDDO 11662 ENDDO 11663 ENDDO 11664 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 11665 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 11666 ENDIF 11667 C 11668 C-------------------------------------------------------------------- 11669 C SEND TO SOUTH 11670 C-------------------------------------------------------------------- Page 195 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 11671 C 11672 IF(MY_NEB(3).GE.0)THEN 11673 IBEG=MYIS-IHALO 11674 IEND=MYIE+IHALO 11675 IC = 0 11676 DO J=0,JHALO-1 11677 DO I=IBEG,IEND 11678 IC = IC + 1 11679 BUF3(IC)=ARR1(I,MYJS+J) 11680 ENDDO 11681 ENDDO 11682 DO J=0,JHALO-1 11683 DO I=IBEG,IEND 11684 IC = IC + 1 11685 BUF3(IC)=ARR2(I,MYJS+J) 11686 ENDDO 11687 ENDDO 11688 DO J=0,JHALO-1 11689 DO I=IBEG,IEND 11690 IC = IC + 1 11691 BUF3(IC)=ARR3(I,MYJS+J) 11692 ENDDO 11693 ENDDO 11694 DO K=1,LL4 11695 DO J=0,JHALO-1 11696 DO I=IBEG,IEND 11697 IC = IC + 1 11698 BUF3(IC)=ARR4(I,MYJS+J,K) 11699 ENDDO 11700 ENDDO 11701 ENDDO 11702 DO K=1,LL5 11703 DO J=0,JHALO-1 11704 DO I=IBEG,IEND 11705 IC = IC + 1 11706 BUF3(IC)=ARR5(I,MYJS+J,K) 11707 ENDDO 11708 ENDDO 11709 ENDDO 11710 DO K=1,LL6 11711 DO J=0,JHALO-1 11712 DO I=IBEG,IEND 11713 IC = IC + 1 11714 BUF3(IC)=ARR6(I,MYJS+J,K) 11715 ENDDO 11716 ENDDO 11717 ENDDO 11718 DO K=1,LL7 11719 DO J=0,JHALO-1 11720 DO I=IBEG,IEND 11721 IC = IC + 1 11722 BUF3(IC)=ARR7(I,MYJS+J,K) 11723 ENDDO 11724 ENDDO 11725 ENDDO 11726 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 11727 1, MPI_COMM_COMP,IHANDLE(4),ISEND) Page 196 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 11728 ENDIF 11729 C 11730 C-------------------------------------------------------------------- 11731 C STORE RESULTS FROM SOUTH 11732 C-------------------------------------------------------------------- 11733 C 11734 IF(MY_NEB(3).GE.0)THEN 11735 IBEG=MYIS-IHALO 11736 IEND=MYIE+IHALO 11737 IC = 0 11738 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 11739 DO J=0,JHALO-1 11740 DO I=IBEG,IEND 11741 IC = IC + 1 11742 ARR1(I,MYJS-J-1)=BUF1(IC) 11743 ENDDO 11744 ENDDO 11745 DO J=0,JHALO-1 11746 DO I=IBEG,IEND 11747 IC = IC + 1 11748 ARR2(I,MYJS-J-1)=BUF1(IC) 11749 ENDDO 11750 ENDDO 11751 DO J=0,JHALO-1 11752 DO I=IBEG,IEND 11753 IC = IC + 1 11754 ARR3(I,MYJS-J-1)=BUF1(IC) 11755 ENDDO 11756 ENDDO 11757 DO K=1,LL4 11758 DO J=0,JHALO-1 11759 DO I=IBEG,IEND 11760 IC = IC + 1 11761 ARR4(I,MYJS-J-1,K)=BUF1(IC) 11762 ENDDO 11763 ENDDO 11764 ENDDO 11765 DO K=1,LL5 11766 DO J=0,JHALO-1 11767 DO I=IBEG,IEND 11768 IC = IC + 1 11769 ARR5(I,MYJS-J-1,K)=BUF1(IC) 11770 ENDDO 11771 ENDDO 11772 ENDDO 11773 DO K=1,LL6 11774 DO J=0,JHALO-1 11775 DO I=IBEG,IEND 11776 IC = IC + 1 11777 ARR6(I,MYJS-J-1,K)=BUF1(IC) 11778 ENDDO 11779 ENDDO 11780 ENDDO 11781 DO K=1,LL7 11782 DO J=0,JHALO-1 11783 DO I=IBEG,IEND 11784 IC = IC + 1 Page 197 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 11785 ARR7(I,MYJS-J-1,K)=BUF1(IC) 11786 ENDDO 11787 ENDDO 11788 ENDDO 11789 ENDIF 11790 C 11791 C-------------------------------------------------------------------- 11792 C STORE FROM NORTH 11793 C-------------------------------------------------------------------- 11794 C 11795 IF(MY_NEB(1).GE.0)THEN 11796 IBEG=MYIS-IHALO 11797 IEND=MYIE+IHALO 11798 IC = 0 11799 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 11800 DO J=0,JHALO-1 11801 DO I=IBEG,IEND 11802 IC = IC + 1 11803 ARR1(I,MYJE+J+1)=BUF0(IC) 11804 ENDDO 11805 ENDDO 11806 DO J=0,JHALO-1 11807 DO I=IBEG,IEND 11808 IC = IC + 1 11809 ARR2(I,MYJE+J+1)=BUF0(IC) 11810 ENDDO 11811 ENDDO 11812 DO J=0,JHALO-1 11813 DO I=IBEG,IEND 11814 IC = IC + 1 11815 ARR3(I,MYJE+J+1)=BUF0(IC) 11816 ENDDO 11817 ENDDO 11818 DO K=1,LL4 11819 DO J=0,JHALO-1 11820 DO I=IBEG,IEND 11821 IC = IC + 1 11822 ARR4(I,MYJE+J+1,K)=BUF0(IC) 11823 ENDDO 11824 ENDDO 11825 ENDDO 11826 DO K=1,LL5 11827 DO J=0,JHALO-1 11828 DO I=IBEG,IEND 11829 IC = IC + 1 11830 ARR5(I,MYJE+J+1,K)=BUF0(IC) 11831 ENDDO 11832 ENDDO 11833 ENDDO 11834 DO K=1,LL6 11835 DO J=0,JHALO-1 11836 DO I=IBEG,IEND 11837 IC = IC + 1 11838 ARR6(I,MYJE+J+1,K)=BUF0(IC) 11839 ENDDO 11840 ENDDO 11841 ENDDO Page 198 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 11842 DO K=1,LL7 11843 DO J=0,JHALO-1 11844 DO I=IBEG,IEND 11845 IC = IC + 1 11846 ARR7(I,MYJE+J+1,K)=BUF0(IC) 11847 ENDDO 11848 ENDDO 11849 ENDDO 11850 ENDIF 11851 C 11852 IF(MY_NEB(1).GE.0)THEN 11853 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 11854 ENDIF 11855 C 11856 IF(MY_NEB(3).GE.0)THEN 11857 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 11858 ENDIF 11859 C 11860 C-------------------------------------------------------------------- 11861 C-------------------------------------------------------------------- 11862 C*** 11863 C*** EAST/WEST 11864 C*** 11865 C-------------------------------------------------------------------- 11866 C-------------------------------------------------------------------- 11867 C 11868 C-------------------------------------------------------------------- 11869 C RECEIVE FROM WEST 11870 C-------------------------------------------------------------------- 11871 C 11872 IF(MY_NEB(4).GE.0)THEN 11873 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 11874 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 11875 ENDIF 11876 C 11877 C-------------------------------------------------------------------- 11878 C RECEIVE FROM EAST 11879 C-------------------------------------------------------------------- 11880 C 11881 IF(MY_NEB(2).GE.0)THEN 11882 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 11883 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 11884 ENDIF 11885 C 11886 C-------------------------------------------------------------------- 11887 C SEND TO EAST 11888 C-------------------------------------------------------------------- 11889 C 11890 IF(MY_NEB(2).GE.0)THEN 11891 IBEG=MYIE-IHALO+1 11892 IEND=MYIE 11893 IC = 0 11894 DO J=MYJS-JHALO,MYJE+JHALO 11895 DO I=IBEG,IEND 11896 IC = IC + 1 11897 BUF2(IC)=ARR1(I,J) 11898 ENDDO Page 199 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 11899 ENDDO 11900 DO J=MYJS-JHALO,MYJE+JHALO 11901 DO I=IBEG,IEND 11902 IC = IC + 1 11903 BUF2(IC)=ARR2(I,J) 11904 ENDDO 11905 ENDDO 11906 DO J=MYJS-JHALO,MYJE+JHALO 11907 DO I=IBEG,IEND 11908 IC = IC + 1 11909 BUF2(IC)=ARR3(I,J) 11910 ENDDO 11911 ENDDO 11912 DO K=1,LL4 11913 DO J=MYJS-JHALO,MYJE+JHALO 11914 DO I=IBEG,IEND 11915 IC = IC + 1 11916 BUF2(IC)=ARR4(I,J,K) 11917 ENDDO 11918 ENDDO 11919 ENDDO 11920 DO K=1,LL5 11921 DO J=MYJS-JHALO,MYJE+JHALO 11922 DO I=IBEG,IEND 11923 IC = IC + 1 11924 BUF2(IC)=ARR5(I,J,K) 11925 ENDDO 11926 ENDDO 11927 ENDDO 11928 DO K=1,LL6 11929 DO J=MYJS-JHALO,MYJE+JHALO 11930 DO I=IBEG,IEND 11931 IC = IC + 1 11932 BUF2(IC)=ARR6(I,J,K) 11933 ENDDO 11934 ENDDO 11935 ENDDO 11936 DO K=1,LL7 11937 DO J=MYJS-JHALO,MYJE+JHALO 11938 DO I=IBEG,IEND 11939 IC = IC + 1 11940 BUF2(IC)=ARR7(I,J,K) 11941 ENDDO 11942 ENDDO 11943 ENDDO 11944 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 11945 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 11946 ENDIF 11947 C 11948 C-------------------------------------------------------------------- 11949 C SEND TO WEST 11950 C-------------------------------------------------------------------- 11951 C 11952 IF(MY_NEB(4).GE.0)THEN 11953 IBEG=MYIS 11954 IEND=MYIS+IHALO-1 11955 IC = 0 Page 200 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 11956 DO J=MYJS-JHALO,MYJE+JHALO 11957 DO I=IBEG,IEND 11958 IC = IC + 1 11959 BUF3(IC)=ARR1(I,J) 11960 ENDDO 11961 ENDDO 11962 DO J=MYJS-JHALO,MYJE+JHALO 11963 DO I=IBEG,IEND 11964 IC = IC + 1 11965 BUF3(IC)=ARR2(I,J) 11966 ENDDO 11967 ENDDO 11968 DO J=MYJS-JHALO,MYJE+JHALO 11969 DO I=IBEG,IEND 11970 IC = IC + 1 11971 BUF3(IC)=ARR3(I,J) 11972 ENDDO 11973 ENDDO 11974 DO K=1,LL4 11975 DO J=MYJS-JHALO,MYJE+JHALO 11976 DO I=IBEG,IEND 11977 IC = IC + 1 11978 BUF3(IC)=ARR4(I,J,K) 11979 ENDDO 11980 ENDDO 11981 ENDDO 11982 DO K=1,LL5 11983 DO J=MYJS-JHALO,MYJE+JHALO 11984 DO I=IBEG,IEND 11985 IC = IC + 1 11986 BUF3(IC)=ARR5(I,J,K) 11987 ENDDO 11988 ENDDO 11989 ENDDO 11990 DO K=1,LL6 11991 DO J=MYJS-JHALO,MYJE+JHALO 11992 DO I=IBEG,IEND 11993 IC = IC + 1 11994 BUF3(IC)=ARR6(I,J,K) 11995 ENDDO 11996 ENDDO 11997 ENDDO 11998 DO K=1,LL7 11999 DO J=MYJS-JHALO,MYJE+JHALO 12000 DO I=IBEG,IEND 12001 IC = IC + 1 12002 BUF3(IC)=ARR7(I,J,K) 12003 ENDDO 12004 ENDDO 12005 ENDDO 12006 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 12007 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 12008 ENDIF 12009 C 12010 C-------------------------------------------------------------------- 12011 C STORE FROM WEST 12012 C-------------------------------------------------------------------- Page 201 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 12013 C 12014 IF(MY_NEB(4).GE.0)THEN 12015 IBEG=MYIS-IHALO 12016 IEND=MYIS-1 12017 IC = 0 12018 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 12019 DO J=MYJS-JHALO,MYJE+JHALO 12020 DO I=IBEG,IEND 12021 IC = IC + 1 12022 ARR1(I,J)=BUF0(IC) 12023 ENDDO 12024 ENDDO 12025 DO J=MYJS-JHALO,MYJE+JHALO 12026 DO I=IBEG,IEND 12027 IC = IC + 1 12028 ARR2(I,J)=BUF0(IC) 12029 ENDDO 12030 ENDDO 12031 DO J=MYJS-JHALO,MYJE+JHALO 12032 DO I=IBEG,IEND 12033 IC = IC + 1 12034 ARR3(I,J)=BUF0(IC) 12035 ENDDO 12036 ENDDO 12037 DO K=1,LL4 12038 DO J=MYJS-JHALO,MYJE+JHALO 12039 DO I=IBEG,IEND 12040 IC = IC + 1 12041 ARR4(I,J,K)=BUF0(IC) 12042 ENDDO 12043 ENDDO 12044 ENDDO 12045 DO K=1,LL5 12046 DO J=MYJS-JHALO,MYJE+JHALO 12047 DO I=IBEG,IEND 12048 IC = IC + 1 12049 ARR5(I,J,K)=BUF0(IC) 12050 ENDDO 12051 ENDDO 12052 ENDDO 12053 DO K=1,LL6 12054 DO J=MYJS-JHALO,MYJE+JHALO 12055 DO I=IBEG,IEND 12056 IC = IC + 1 12057 ARR6(I,J,K)=BUF0(IC) 12058 ENDDO 12059 ENDDO 12060 ENDDO 12061 DO K=1,LL7 12062 DO J=MYJS-JHALO,MYJE+JHALO 12063 DO I=IBEG,IEND 12064 IC = IC + 1 12065 ARR7(I,J,K)=BUF0(IC) 12066 ENDDO 12067 ENDDO 12068 ENDDO 12069 ENDIF Page 202 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 12070 C 12071 C-------------------------------------------------------------------- 12072 C STORE FROM EAST 12073 C-------------------------------------------------------------------- 12074 C 12075 IF(MY_NEB(2).GE.0)THEN 12076 IBEG=MYIE+1 12077 IEND=MYIE+IHALO 12078 IC = 0 12079 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 12080 DO J=MYJS-JHALO,MYJE+JHALO 12081 DO I=IBEG,IEND 12082 IC = IC + 1 12083 ARR1(I,J)=BUF1(IC) 12084 ENDDO 12085 ENDDO 12086 DO J=MYJS-JHALO,MYJE+JHALO 12087 DO I=IBEG,IEND 12088 IC = IC + 1 12089 ARR2(I,J)=BUF1(IC) 12090 ENDDO 12091 ENDDO 12092 DO J=MYJS-JHALO,MYJE+JHALO 12093 DO I=IBEG,IEND 12094 IC = IC + 1 12095 ARR3(I,J)=BUF1(IC) 12096 ENDDO 12097 ENDDO 12098 DO K=1,LL4 12099 DO J=MYJS-JHALO,MYJE+JHALO 12100 DO I=IBEG,IEND 12101 IC = IC + 1 12102 ARR4(I,J,K)=BUF1(IC) 12103 ENDDO 12104 ENDDO 12105 ENDDO 12106 DO K=1,LL5 12107 DO J=MYJS-JHALO,MYJE+JHALO 12108 DO I=IBEG,IEND 12109 IC = IC + 1 12110 ARR5(I,J,K)=BUF1(IC) 12111 ENDDO 12112 ENDDO 12113 ENDDO 12114 DO K=1,LL6 12115 DO J=MYJS-JHALO,MYJE+JHALO 12116 DO I=IBEG,IEND 12117 IC = IC + 1 12118 ARR6(I,J,K)=BUF1(IC) 12119 ENDDO 12120 ENDDO 12121 ENDDO 12122 DO K=1,LL7 12123 DO J=MYJS-JHALO,MYJE+JHALO 12124 DO I=IBEG,IEND 12125 IC = IC + 1 12126 ARR7(I,J,K)=BUF1(IC) Page 203 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 12127 ENDDO 12128 ENDDO 12129 ENDDO 12130 ENDIF 12131 C 12132 IF(MY_NEB(4).GE.0)THEN 12133 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 12134 ENDIF 12135 C 12136 IF(MY_NEB(2).GE.0)THEN 12137 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 12138 ENDIF 12139 C 12140 C-------------------------------------------------------------------- 12141 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch0001111_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 10916 R(4) 4 2 6319 ARG,INOUT 11617,11679,11742,11803,11897,1195 9,12022,12083 ARR2 Dummy 10916 R(4) 4 2 6319 ARG,INOUT 11623,11685,11748,11809,11903,1196 5,12028,12089 ARR3 Dummy 10916 R(4) 4 2 6319 ARG,INOUT 11629,11691,11754,11815,11909,1197 1,12034,12095 ARR4 Dummy 10917 R(4) 4 3 0 ARG,INOUT 11636,11698,11761,11822,11916,1197 8,12041,12102 ARR5 Dummy 10917 R(4) 4 3 0 ARG,INOUT 11644,11706,11769,11830,11924,1198 6,12049,12110 ARR6 Dummy 10918 R(4) 4 3 0 ARG,INOUT 11652,11714,11777,11838,11932,1199 4,12057,12118 ARR7 Dummy 10918 R(4) 4 3 0 ARG,INOUT 11660,11722,11785,11846,11940,1200 2,12065,12126 BUF0 Local 11593 R(4) 4 1 2500000 11593,11803,11809,11815,11822,1183 0,11838,11846,11873,12022,12028,12 034,12041,12049,12057,12065 BUF1 Local 11602 R(4) 4 1 2500000 11602,11742,11748,11754,11761,1176 9,11777,11785,11882,12083,12089,12 095,12102,12110,12118,12126 BUF2 Local 11617 R(4) 4 1 2500000 11617,11623,11629,11636,11644,1165 2,11660,11664,11897,11903,11909,11 916,11924,11932,11940,11944 BUF3 Local 11679 R(4) 4 1 2500000 11679,11685,11691,11698,11706,1171 4,11722,11726,11959,11965,11971,11 978,11986,11994,12002,12006 EXCH0001111 Subr 10916 EXCH_BUF_REAL Module 10919 10919 GLB_TABLE Common 11544 336 SAVE Page 204 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References I Local 11615 I(4) 4 scalar 11615,11617,11621,11623,11627,1162 9,11634,11636,11642,11644,11650,11 652,11658,11660,11677,11679,11683, 11685,11689,11691,11696,11698,1170 4,11706,11712,11714,11720,11722,11 740,11742,11746,11748,11752,11754, 11759,11761,11767,11769,11775,1177 7,11783,11785,11801,11803,11807,11 809,11813,11815,11820,11822,11828, 11830,11836,11838,11844,11846,1189 5,11897,11901,11903,11907,11909,11 914,11916,11922,11924,11930,11932, 11938,11940,11957,11959,11963,1196 5,11969,11971,11976,11978,11984,11 986,11992,11994,12000,12002,12020, 12022,12026,12028,12032,12034,1203 9,12041,12047,12049,12055,12057,12 063,12065,12081,12083,12087,12089, 12093,12095,12100,12102,12108,1211 0,12116,12118,12124,12126 IBEG Local 11611 I(4) 4 scalar 11611,11615,11621,11627,11634,1164 2,11650,11658,11673,11677,11683,11 689,11696,11704,11712,11720,11735, 11740,11746,11752,11759,11767,1177 5,11783,11796,11801,11807,11813,11 820,11828,11836,11844,11891,11895, 11901,11907,11914,11922,11930,1193 8,11953,11957,11963,11969,11976,11 984,11992,12000,12015,12020,12026, 12032,12039,12047,12055,12063,1207 6,12081,12087,12093,12100,12108,12 116,12124 IBUFEXCH Param 11593 I(4) 4 scalar 11593,11602,11873,11882 IC Local 11613 I(4) 4 scalar 11613,11616,11617,11622,11623,1162 8,11629,11635,11636,11643,11644,11 651,11652,11659,11660,11664,11675, 11678,11679,11684,11685,11690,1169 1,11697,11698,11705,11706,11713,11 714,11721,11722,11726,11737,11741, 11742,11747,11748,11753,11754,1176 0,11761,11768,11769,11776,11777,11 784,11785,11798,11802,11803,11808, 11809,11814,11815,11821,11822,1182 9,11830,11837,11838,11845,11846,11 893,11896,11897,11902,11903,11908, 11909,11915,11916,11923,11924,1193 1,11932,11939,11940,11944,11955,11 958,11959,11964,11965,11970,11971, 11977,11978,11985,11986,11993,1199 4,12001,12002,12006,12017,12021,12 022,12027,12028,12033,12034,12040, 12041,12048,12049,12056,12057,1206 4,12065,12078,12082,12083,12088,12 089,12094,12095,12101,12102,12109, 12110,12117,12118,12125,12126 Page 205 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References IDIM1 Param 10940 I(4) 4 scalar 11568,11569,11570,11571,11572,1157 3,11574 IDIM2 Param 10940 I(4) 4 scalar 11568,11569,11570,11571,11572,1157 3,11574 IEND Local 11612 I(4) 4 scalar 11612,11615,11621,11627,11634,1164 2,11650,11658,11674,11677,11683,11 689,11696,11704,11712,11720,11736, 11740,11746,11752,11759,11767,1177 5,11783,11797,11801,11807,11813,11 820,11828,11836,11844,11892,11895, 11901,11907,11914,11922,11930,1193 8,11954,11957,11963,11969,11976,11 984,11992,12000,12016,12020,12026, 12032,12039,12047,12055,12063,1207 7,12081,12087,12093,12100,12108,12 116,12124 IERR Local 11738 I(4) 4 scalar 11738,11799,11853,11857,12018,1207 9,12133,12137 IGSTL Param 10935 I(4) 4 scalar 10940 IGSTR Param 10935 I(4) 4 scalar 10940 IHALO Dummy 10918 I(4) 4 scalar ARG,INOUT 11611,11612,11673,11674,11735,1173 6,11796,11797,11891,11954,12015,12 077 IHANDLE Local 11567 I(4) 4 1 4 11594,11603,11665,11727,11738,1179 9,11853,11857,11874,11883,11945,12 007,12018,12079,12133,12137 IM Param 10923 I(4) 4 scalar 10937,10940,11550,11551,11552,1155 3,11554,11558,11559,11564 INPES Param 10932 I(4) 4 scalar 10937,10940,11534,11535,11536,1154 5,11546 IRECV Local 11594 I(4) 4 scalar 11594,11603,11874,11883 ISEND Local 11665 I(4) 4 scalar 11665,11727,11945,12007 ISTAT Local 11566 I(4) 4 1 5 11738,11799,11853,11857,12018,1207 9,12133,12137 ITAIL Param 10937 I(4) 4 scalar ITYPE Local 11578 I(4) 4 scalar 11578,11593,11602,11664,11726,1187 3,11882,11944,12006 J Local 11614 I(4) 4 scalar 11614,11617,11620,11623,11626,1162 9,11633,11636,11641,11644,11649,11 652,11657,11660,11676,11679,11682, 11685,11688,11691,11695,11698,1170 3,11706,11711,11714,11719,11722,11 739,11742,11745,11748,11751,11754, 11758,11761,11766,11769,11774,1177 7,11782,11785,11800,11803,11806,11 809,11812,11815,11819,11822,11827, 11830,11835,11838,11843,11846,1189 4,11897,11900,11903,11906,11909,11 913,11916,11921,11924,11929,11932, 11937,11940,11956,11959,11962,1196 5,11968,11971,11975,11978,11983,11 986,11991,11994,11999,12002,12019, 12022,12025,12028,12031,12034,1203 8,12041,12046,12049,12054,12057,12 062,12065,12080,12083,12086,12089, Page 206 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 12092,12095,12099,12102,12107,1211 0,12115,12118,12123,12126 JDIM1 Param 10941 I(4) 4 scalar 11568,11569,11570,11571,11572,1157 3,11574 JDIM2 Param 10941 I(4) 4 scalar 11568,11569,11570,11571,11572,1157 3,11574 JGSTL Param 10936 I(4) 4 scalar 10941 JGSTR Param 10936 I(4) 4 scalar 10941 JHALO Dummy 10918 I(4) 4 scalar ARG,INOUT 11614,11620,11626,11633,11641,1164 9,11657,11676,11682,11688,11695,11 703,11711,11719,11739,11745,11751, 11758,11766,11774,11782,11800,1180 6,11812,11819,11827,11835,11843,11 894,11900,11906,11913,11921,11929, 11937,11956,11962,11968,11975,1198 3,11991,11999,12019,12025,12031,12 038,12046,12054,12062,12080,12086, 12092,12099,12107,12115,12123 JM Param 10923 I(4) 4 scalar 10938,10941,11550,11551,11552,1155 3,11554,11558,11559,11564 JNPES Param 10932 I(4) 4 scalar 10938,10941,11534,11535,11536,1154 5,11546 JTAIL Param 10938 I(4) 4 scalar K Local 11632 I(4) 4 scalar 11632,11636,11640,11644,11648,1165 2,11656,11660,11694,11698,11702,11 706,11710,11714,11718,11722,11757, 11761,11765,11769,11773,11777,1178 1,11785,11818,11822,11826,11830,11 834,11838,11842,11846,11912,11916, 11920,11924,11928,11932,11936,1194 0,11974,11978,11982,11986,11990,11 994,11998,12002,12037,12041,12045, 12049,12053,12057,12061,12065,1209 8,12102,12106,12110,12114,12118,12 122,12126 LL1 Dummy 10916 I(4) 4 scalar ARG,INOUT LL2 Dummy 10916 I(4) 4 scalar ARG,INOUT LL3 Dummy 10916 I(4) 4 scalar ARG,INOUT LL4 Dummy 10917 I(4) 4 scalar ARG,INOUT 11632,11694,11757,11818,11912,1197 4,12037,12098 LL5 Dummy 10917 I(4) 4 scalar ARG,INOUT 11640,11702,11765,11826,11920,1198 2,12045,12106 LL6 Dummy 10918 I(4) 4 scalar ARG,INOUT 11648,11710,11773,11834,11928,1199 0,12053,12114 LL7 Dummy 10918 I(4) 4 scalar ARG,INOUT 11656,11718,11781,11842,11936,1199 8,12061,12122 LM Param 10923 I(4) 4 scalar 11559 LSM Param 10923 I(4) 4 scalar MAPPINGS Common 11563 5024 SAVE MPIFCMB5 Common 11494 4 SAVE MPIFCMB9 Common 11495 4 SAVE MPIPRIV1 Common 11499 28 SAVE MPIPRIV2 Common 11501 24 SAVE MPIPRIVC Common 11504 2 SAVE MPI_2DOUBLE_PRECISION Param 11240 I(4) 4 scalar Page 207 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_2INT Param 11324 I(4) 4 scalar MPI_2INTEGER Param 11238 I(4) 4 scalar MPI_2REAL Param 11242 I(4) 4 scalar MPI_ADDRESS_KIND Param 11276 I(4) 4 scalar MPI_AINT Param 11354 I(4) 4 scalar MPI_ANY_SOURCE Param 11206 I(4) 4 scalar MPI_ANY_TAG Param 11208 I(4) 4 scalar MPI_APPNUM Param 11170 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 11476 L(4) 4 scalar MPI_BAND Param 11114 I(4) 4 scalar MPI_BOR Param 11118 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 11202 I(4) 4 scalar MPI_BXOR Param 11122 I(4) 4 scalar MPI_BYTE Param 11246 I(4) 4 scalar MPI_CART Param 11214 I(4) 4 scalar MPI_CHAR Param 11284 I(4) 4 scalar MPI_CHARACTER Param 11244 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 11372 I(4) 4 scalar MPI_COMBINER_DARRAY Param 11394 I(4) 4 scalar MPI_COMBINER_DUP Param 11370 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 11398 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 11400 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 11396 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 11384 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 11404 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 11382 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 11378 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 11376 I(4) 4 scalar MPI_COMBINER_INDEXED Param 11380 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 11386 I(4) 4 scalar MPI_COMBINER_NAMED Param 11368 I(4) 4 scalar MPI_COMBINER_RESIZED Param 11402 I(4) 4 scalar MPI_COMBINER_STRUCT Param 11390 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 11388 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 11392 I(4) 4 scalar MPI_COMBINER_VECTOR Param 11374 I(4) 4 scalar MPI_COMM_DUP_FN Subr 11483 scalar MPI_COMM_NULL Param 11138 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 11484 scalar MPI_COMM_NULL_DELETE_FN Subr 11483 scalar MPI_COMM_SELF Param 11134 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 11422 I(4) 4 scalar MPI_COMM_WORLD Param 11132 I(4) 4 scalar MPI_COMPLEX Param 11226 I(4) 4 scalar MPI_COMPLEX16 Param 11272 I(4) 4 scalar MPI_COMPLEX32 Param 11274 I(4) 4 scalar MPI_COMPLEX8 Param 11270 I(4) 4 scalar MPI_CONGRUENT Param 11086 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 11489 scalar MPI_COUNT Param 11358 I(4) 4 scalar Page 208 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COUNT_KIND Param 11280 I(4) 4 scalar MPI_CXX_BOOL Param 11360 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 11364 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 11362 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 11366 I(4) 4 scalar MPI_C_BOOL Param 11344 I(4) 4 scalar MPI_C_COMPLEX Param 11348 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 11350 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 11346 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 11352 I(4) 4 scalar MPI_DATATYPE_NULL Param 11148 I(4) 4 scalar 11263,11361,11363,11365,11367 MPI_DISPLACEMENT_CURRENT Param 11472 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 11464 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 11466 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 11470 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 11468 I(4) 4 scalar MPI_DIST_GRAPH Param 11216 I(4) 4 scalar MPI_DOUBLE Param 11306 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 11228 I(4) 4 scalar MPI_DOUBLE_INT Param 11318 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 11234 I(4) 4 scalar MPI_DUP_FN Subr 11480 scalar MPI_ERRHANDLER_NULL Param 11152 I(4) 4 scalar MPI_ERROR Param 10953 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 11080 I(4) 4 scalar MPI_ERRORS_RETURN Param 11082 I(4) 4 scalar MPI_ERR_ACCESS Param 11072 I(4) 4 scalar MPI_ERR_AMODE Param 11058 I(4) 4 scalar MPI_ERR_ARG Param 11028 I(4) 4 scalar MPI_ERR_ASSERT Param 11034 I(4) 4 scalar MPI_ERR_BAD_FILE Param 10996 I(4) 4 scalar MPI_ERR_BASE Param 11026 I(4) 4 scalar MPI_ERR_BUFFER Param 10968 I(4) 4 scalar MPI_ERR_COMM Param 11046 I(4) 4 scalar MPI_ERR_CONVERSION Param 11062 I(4) 4 scalar MPI_ERR_COUNT Param 10972 I(4) 4 scalar MPI_ERR_DIMS Param 11010 I(4) 4 scalar MPI_ERR_DISP Param 10994 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 10976 I(4) 4 scalar MPI_ERR_FILE Param 11006 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 10988 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 11030 I(4) 4 scalar MPI_ERR_GROUP Param 10992 I(4) 4 scalar MPI_ERR_INFO Param 11020 I(4) 4 scalar MPI_ERR_INFO_KEY Param 11024 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 11004 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 10990 I(4) 4 scalar MPI_ERR_INTERN Param 11022 I(4) 4 scalar MPI_ERR_IN_STATUS Param 11008 I(4) 4 scalar MPI_ERR_IO Param 11068 I(4) 4 scalar MPI_ERR_KEYVAL Param 11014 I(4) 4 scalar MPI_ERR_LASTCODE Param 11036 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 11018 I(4) 4 scalar MPI_ERR_NAME Param 11012 I(4) 4 scalar Page 209 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NOT_SAME Param 11040 I(4) 4 scalar MPI_ERR_NO_MEM Param 11032 I(4) 4 scalar MPI_ERR_NO_SPACE Param 10964 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 11048 I(4) 4 scalar MPI_ERR_OP Param 11066 I(4) 4 scalar MPI_ERR_OTHER Param 10980 I(4) 4 scalar MPI_ERR_PENDING Param 10970 I(4) 4 scalar MPI_ERR_PORT Param 11052 I(4) 4 scalar MPI_ERR_QUOTA Param 11056 I(4) 4 scalar MPI_ERR_RANK Param 10978 I(4) 4 scalar MPI_ERR_READ_ONLY Param 11016 I(4) 4 scalar MPI_ERR_REQUEST Param 11060 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 10982 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 10986 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 11002 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 11064 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 11054 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 10966 I(4) 4 scalar MPI_ERR_ROOT Param 10998 I(4) 4 scalar MPI_ERR_SERVICE Param 10974 I(4) 4 scalar MPI_ERR_SIZE Param 10984 I(4) 4 scalar MPI_ERR_SPAWN Param 11044 I(4) 4 scalar MPI_ERR_TAG Param 11074 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 11078 I(4) 4 scalar MPI_ERR_TRUNCATE Param 11038 I(4) 4 scalar MPI_ERR_TYPE Param 11042 I(4) 4 scalar MPI_ERR_UNKNOWN Param 11076 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 11000 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 11050 I(4) 4 scalar MPI_ERR_WIN Param 11070 I(4) 4 scalar MPI_FILE_NULL Param 11142 I(4) 4 scalar MPI_FLOAT Param 11304 I(4) 4 scalar MPI_FLOAT_INT Param 11316 I(4) 4 scalar MPI_GRAPH Param 11212 I(4) 4 scalar MPI_GROUP_EMPTY Param 11136 I(4) 4 scalar MPI_GROUP_NULL Param 11144 I(4) 4 scalar MPI_HOST Param 11160 I(4) 4 scalar MPI_IDENT Param 11084 I(4) 4 scalar MPI_INFO_ENV Param 11156 I(4) 4 scalar MPI_INFO_NULL Param 11154 I(4) 4 scalar MPI_INT Param 11296 I(4) 4 scalar MPI_INT16_T Param 11330 I(4) 4 scalar MPI_INT32_T Param 11332 I(4) 4 scalar MPI_INT64_T Param 11334 I(4) 4 scalar MPI_INT8_T Param 11328 I(4) 4 scalar MPI_INTEGER Param 11236 I(4) 4 scalar MPI_INTEGER1 Param 11254 I(4) 4 scalar MPI_INTEGER16 Param 11262 I(4) 4 scalar MPI_INTEGER2 Param 11256 I(4) 4 scalar MPI_INTEGER4 Param 11258 I(4) 4 scalar MPI_INTEGER8 Param 11260 I(4) 4 scalar MPI_INTEGER_KIND Param 11282 I(4) 4 scalar MPI_IO Param 11162 I(4) 4 scalar Page 210 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_IRECV Subr 11593 11593,11602,11873,11882 MPI_ISEND Subr 11664 11664,11726,11944,12006 MPI_KEYVAL_INVALID Param 11200 I(4) 4 scalar MPI_LAND Param 11112 I(4) 4 scalar MPI_LASTUSEDCODE Param 11168 I(4) 4 scalar MPI_LB Param 11250 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 11222 I(4) 4 scalar MPI_LOCK_SHARED Param 11224 I(4) 4 scalar MPI_LOGICAL Param 11230 I(4) 4 scalar MPI_LONG Param 11300 I(4) 4 scalar MPI_LONG_DOUBLE Param 11308 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 11326 I(4) 4 scalar MPI_LONG_INT Param 11320 I(4) 4 scalar MPI_LONG_LONG Param 11314 I(4) 4 scalar MPI_LONG_LONG_INT Param 11310 I(4) 4 scalar MPI_LOR Param 11116 I(4) 4 scalar MPI_LXOR Param 11120 I(4) 4 scalar MPI_MAX Param 11104 I(4) 4 scalar MPI_MAXLOC Param 11126 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 11194 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 11182 I(4) 4 scalar MPI_MAX_INFO_KEY Param 11188 I(4) 4 scalar MPI_MAX_INFO_VAL Param 11190 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 11196 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 11186 I(4) 4 scalar MPI_MAX_PORT_NAME Param 11184 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 11192 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 11426 I(4) 4 scalar MPI_MESSAGE_NULL Param 11424 I(4) 4 scalar MPI_MIN Param 11106 I(4) 4 scalar MPI_MINLOC Param 11124 I(4) 4 scalar MPI_MODE_APPEND Param 11450 I(4) 4 scalar MPI_MODE_CREATE Param 11446 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 11442 I(4) 4 scalar MPI_MODE_EXCL Param 11448 I(4) 4 scalar MPI_MODE_NOCHECK Param 11412 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 11418 I(4) 4 scalar MPI_MODE_NOPUT Param 11416 I(4) 4 scalar MPI_MODE_NOSTORE Param 11414 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 11420 I(4) 4 scalar MPI_MODE_RDONLY Param 11436 I(4) 4 scalar MPI_MODE_RDWR Param 11438 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 11452 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 11444 I(4) 4 scalar MPI_MODE_WRONLY Param 11440 I(4) 4 scalar MPI_NO_OP Param 11130 I(4) 4 scalar MPI_NULL_COPY_FN Subr 11480 scalar MPI_NULL_DELETE_FN Subr 11480 scalar MPI_OFFSET Param 11356 I(4) 4 scalar MPI_OFFSET_KIND Param 11278 I(4) 4 scalar MPI_OP_NULL Param 11146 I(4) 4 scalar MPI_ORDER_C Param 11460 I(4) 4 scalar MPI_ORDER_FORTRAN Param 11462 I(4) 4 scalar MPI_PACKED Param 11252 I(4) 4 scalar Page 211 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_PROC_NULL Param 11204 I(4) 4 scalar MPI_PROD Param 11110 I(4) 4 scalar MPI_REAL Param 11232 I(4) 4 scalar 11578 MPI_REAL16 Param 11268 I(4) 4 scalar MPI_REAL4 Param 11264 I(4) 4 scalar MPI_REAL8 Param 11266 I(4) 4 scalar MPI_REPLACE Param 11128 I(4) 4 scalar MPI_REQUEST_NULL Param 11150 I(4) 4 scalar MPI_ROOT Param 11210 I(4) 4 scalar MPI_SEEK_CUR Param 11456 I(4) 4 scalar MPI_SEEK_END Param 11458 I(4) 4 scalar MPI_SEEK_SET Param 11454 I(4) 4 scalar MPI_SHORT Param 11292 I(4) 4 scalar MPI_SHORT_INT Param 11322 I(4) 4 scalar MPI_SIGNED_CHAR Param 11286 I(4) 4 scalar MPI_SIMILAR Param 11088 I(4) 4 scalar MPI_SOURCE Param 10953 I(4) 4 scalar MPI_STATUS_SIZE Param 10955 I(4) 4 scalar 10957,10958,11566 MPI_SUBARRAYS_SUPPORTED Param 11474 L(4) 4 scalar MPI_SUBVERSION Param 11220 I(4) 4 scalar MPI_SUCCESS Param 10962 I(4) 4 scalar MPI_SUM Param 11108 I(4) 4 scalar MPI_TAG Param 10953 I(4) 4 scalar MPI_TAG_UB Param 11158 I(4) 4 scalar MPI_THREAD_FUNNELED Param 11430 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 11434 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 11432 I(4) 4 scalar MPI_THREAD_SINGLE Param 11428 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 11410 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 11408 I(4) 4 scalar MPI_TYPECLASS_REAL Param 11406 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 11487 scalar MPI_TYPE_NULL_COPY_FN Subr 11488 scalar MPI_TYPE_NULL_DELETE_FN Subr 11487 scalar MPI_UB Param 11248 I(4) 4 scalar MPI_UINT16_T Param 11338 I(4) 4 scalar MPI_UINT32_T Param 11340 I(4) 4 scalar MPI_UINT64_T Param 11342 I(4) 4 scalar MPI_UINT8_T Param 11336 I(4) 4 scalar MPI_UNDEFINED Param 11198 I(4) 4 scalar MPI_UNEQUAL Param 11090 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 11166 I(4) 4 scalar MPI_UNSIGNED Param 11298 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 11288 I(4) 4 scalar MPI_UNSIGNED_LONG Param 11302 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 11312 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 11294 I(4) 4 scalar MPI_VERSION Param 11218 I(4) 4 scalar MPI_WAIT Subr 11738 11738,11799,11853,11857,12018,1207 9,12133,12137 MPI_WCHAR Param 11290 I(4) 4 scalar MPI_WIN_BASE Param 11172 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 11178 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 11176 I(4) 4 scalar MPI_WIN_DUP_FN Subr 11485 scalar Page 212 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_FLAVOR_ALLOCATE Param 11094 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 11092 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 11096 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 11098 I(4) 4 scalar MPI_WIN_MODEL Param 11180 I(4) 4 scalar MPI_WIN_NULL Param 11140 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 11486 scalar MPI_WIN_NULL_DELETE_FN Subr 11485 scalar MPI_WIN_SEPARATE Param 11100 I(4) 4 scalar MPI_WIN_SIZE Param 11174 I(4) 4 scalar MPI_WIN_UNIFIED Param 11102 I(4) 4 scalar MPI_WTICK Func 11481 R(8) 8 scalar MPI_WTIME Func 11481 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 11164 I(4) 4 scalar MPPCOM Common 11508 1724 SAVE PMPI_WTICK Func 11482 R(8) 8 scalar PMPI_WTIME Func 11482 R(8) 8 scalar TEMPCOM Common 11549 6603768 SAVE TOPO Common 11557 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 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 JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM Page 213 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM 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 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 11594,11603,11665,11727,11874,1188 3,11945,12007 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 11612,11674,11736,11797,11891,1189 2,12076,12077 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 11611,11673,11735,11796,11953,1195 4,12015,12016 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 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 11617,11623,11629,11636,11644,1165 2,11660,11803,11809,11815,11822,11 830,11838,11846,11894,11900,11906, Page 214 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 11913,11921,11929,11937,11956,1196 2,11968,11975,11983,11991,11999,12 019,12025,12031,12038,12046,12054, 12062,12080,12086,12092,12099,1210 7,12115,12123 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 11679,11685,11691,11698,11706,1171 4,11722,11742,11748,11754,11761,11 769,11777,11785,11894,11900,11906, 11913,11921,11929,11937,11956,1196 2,11968,11975,11983,11991,11999,12 019,12025,12031,12038,12046,12054, 12062,12080,12086,12092,12099,1210 7,12115,12123 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 Page 215 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 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 11664,11726,11944,12006 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM 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 11592,11593,11601,11602,11610,1166 4,11672,11726,11734,11795,11852,11 856,11872,11873,11881,11882,11890, 11944,11952,12006,12014,12075,1213 2,12136 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 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 216 Source Listing EXCH0001111 2025-03-12 18:22 Symbol Table module_EXCHM.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References EXCHM Module 2 Page 217 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F 12142 END MODULE Page 218 Source Listing EXCH0001111 2025-03-12 18:22 Subprograms/Common Blocks module_EXCHM.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References EXCH0 Subr 4 EXCH00 Subr 2741 EXCH0001111 Subr 10916 EXCH01 Subr 1809 EXCH011 Subr 9052 EXCH1 Subr 926 EXCH11 Subr 3657 EXCH111 Subr 4605 EXCH1111 Subr 5619 EXCH11111 Subr 6699 EXCH111111 Subr 7843 EXCHM Module 2 GLB_TABLE Common 685 336 SAVE GLB_TABLE Common 1552 336 SAVE GLB_TABLE Common 2435 336 SAVE GLB_TABLE Common 3367 336 SAVE GLB_TABLE Common 4283 336 SAVE GLB_TABLE Common 5231 336 SAVE GLB_TABLE Common 6246 336 SAVE GLB_TABLE Common 7326 336 SAVE GLB_TABLE Common 8470 336 SAVE GLB_TABLE Common 9678 336 SAVE GLB_TABLE Common 10675 336 SAVE GLB_TABLE Common 11544 336 SAVE IEXCH Subr 10049 MAPPINGS Common 704 5024 SAVE MAPPINGS Common 1571 5024 SAVE MAPPINGS Common 2454 5024 SAVE MAPPINGS Common 3386 5024 SAVE MAPPINGS Common 4302 5024 SAVE MAPPINGS Common 5250 5024 SAVE MAPPINGS Common 6265 5024 SAVE MAPPINGS Common 7345 5024 SAVE MAPPINGS Common 8489 5024 SAVE MAPPINGS Common 9697 5024 SAVE MAPPINGS Common 10694 5024 SAVE MAPPINGS Common 11563 5024 SAVE MPIFCMB5 Common 635 4 SAVE MPIFCMB5 Common 1502 4 SAVE MPIFCMB5 Common 2385 4 SAVE MPIFCMB5 Common 3317 4 SAVE MPIFCMB5 Common 4233 4 SAVE MPIFCMB5 Common 5181 4 SAVE MPIFCMB5 Common 6196 4 SAVE MPIFCMB5 Common 7276 4 SAVE MPIFCMB5 Common 8420 4 SAVE MPIFCMB5 Common 9628 4 SAVE MPIFCMB5 Common 10625 4 SAVE MPIFCMB5 Common 11494 4 SAVE MPIFCMB9 Common 636 4 SAVE MPIFCMB9 Common 1503 4 SAVE Page 219 Source Listing EXCH0001111 2025-03-12 18:22 Subprograms/Common Blocks module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIFCMB9 Common 2386 4 SAVE MPIFCMB9 Common 3318 4 SAVE MPIFCMB9 Common 4234 4 SAVE MPIFCMB9 Common 5182 4 SAVE MPIFCMB9 Common 6197 4 SAVE MPIFCMB9 Common 7277 4 SAVE MPIFCMB9 Common 8421 4 SAVE MPIFCMB9 Common 9629 4 SAVE MPIFCMB9 Common 10626 4 SAVE MPIFCMB9 Common 11495 4 SAVE MPIPRIV1 Common 640 28 SAVE MPIPRIV1 Common 1507 28 SAVE MPIPRIV1 Common 2390 28 SAVE MPIPRIV1 Common 3322 28 SAVE MPIPRIV1 Common 4238 28 SAVE MPIPRIV1 Common 5186 28 SAVE MPIPRIV1 Common 6201 28 SAVE MPIPRIV1 Common 7281 28 SAVE MPIPRIV1 Common 8425 28 SAVE MPIPRIV1 Common 9633 28 SAVE MPIPRIV1 Common 10630 28 SAVE MPIPRIV1 Common 11499 28 SAVE MPIPRIV2 Common 642 24 SAVE MPIPRIV2 Common 1509 24 SAVE MPIPRIV2 Common 2392 24 SAVE MPIPRIV2 Common 3324 24 SAVE MPIPRIV2 Common 4240 24 SAVE MPIPRIV2 Common 5188 24 SAVE MPIPRIV2 Common 6203 24 SAVE MPIPRIV2 Common 7283 24 SAVE MPIPRIV2 Common 8427 24 SAVE MPIPRIV2 Common 9635 24 SAVE MPIPRIV2 Common 10632 24 SAVE MPIPRIV2 Common 11501 24 SAVE MPIPRIVC Common 645 2 SAVE MPIPRIVC Common 1512 2 SAVE MPIPRIVC Common 2395 2 SAVE MPIPRIVC Common 3327 2 SAVE MPIPRIVC Common 4243 2 SAVE MPIPRIVC Common 5191 2 SAVE MPIPRIVC Common 6206 2 SAVE MPIPRIVC Common 7286 2 SAVE MPIPRIVC Common 8430 2 SAVE MPIPRIVC Common 9638 2 SAVE MPIPRIVC Common 10635 2 SAVE MPIPRIVC Common 11504 2 SAVE MPPCOM Common 649 1724 SAVE MPPCOM Common 1516 1724 SAVE MPPCOM Common 2399 1724 SAVE MPPCOM Common 3331 1724 SAVE MPPCOM Common 4247 1724 SAVE MPPCOM Common 5195 1724 SAVE MPPCOM Common 6210 1724 SAVE MPPCOM Common 7290 1724 SAVE MPPCOM Common 8434 1724 SAVE Page 220 Source Listing EXCH0001111 2025-03-12 18:22 Subprograms/Common Blocks module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPPCOM Common 9642 1724 SAVE MPPCOM Common 10639 1724 SAVE MPPCOM Common 11508 1724 SAVE TEMPCOM Common 690 6603768 SAVE TEMPCOM Common 1557 6603768 SAVE TEMPCOM Common 2440 6603768 SAVE TEMPCOM Common 3372 6603768 SAVE TEMPCOM Common 4288 6603768 SAVE TEMPCOM Common 5236 6603768 SAVE TEMPCOM Common 6251 6603768 SAVE TEMPCOM Common 7331 6603768 SAVE TEMPCOM Common 8475 6603768 SAVE TEMPCOM Common 9683 6603768 SAVE TEMPCOM Common 10680 6603768 SAVE TEMPCOM Common 11549 6603768 SAVE TOPO Common 698 17478548 SAVE TOPO Common 1565 17478548 SAVE TOPO Common 2448 17478548 SAVE TOPO Common 3380 17478548 SAVE TOPO Common 4296 17478548 SAVE TOPO Common 5244 17478548 SAVE TOPO Common 6259 17478548 SAVE TOPO Common 7339 17478548 SAVE TOPO Common 8483 17478548 SAVE TOPO Common 9691 17478548 SAVE TOPO Common 10688 17478548 SAVE TOPO Common 11557 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 Page 221 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F -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__ -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 Page 222 Source Listing EXCH0001111 2025-03-12 18:22 module_EXCHM.F -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 -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 : module_EXCHM.lst no -o COMPILER: Intel(R) Fortran 19.1-1655