Page 1 Source Listing EXCH0 2025-03-12 18:21 /tmp/ifortyvxa7b.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:21 module_EXCHM.F 58 C$$$ 59 USE EXCH_BUF_REAL 60 C*********************************************************************** 61 INCLUDE "parmeta" 84 INCLUDE "mpif.h" 646 INCLUDE "mpp.h" 647 C----------------------------------------------------------------------- 706 INTEGER ISTAT(MPI_STATUS_SIZE) 707 INTEGER IHANDLE(4) 708 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 709 C 710 C*********************************************************************** 711 C 712 ITYPE=MPI_REAL 713 C 714 C-------------------------------------------------------------------- 715 C-------------------------------------------------------------------- 716 C*** 717 C*** NORTH/SOUTH 718 C*** 719 C-------------------------------------------------------------------- 720 C-------------------------------------------------------------------- 721 C 722 C-------------------------------------------------------------------- 723 C RECEIVE FROM NORTH 724 C-------------------------------------------------------------------- 725 C 726 IF(MY_NEB(1).GE.0)THEN 727 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 728 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 729 ENDIF 730 C 731 C-------------------------------------------------------------------- 732 C RECEIVE FROM SOUTH 733 C-------------------------------------------------------------------- 734 C 735 IF(MY_NEB(3).GE.0)THEN 736 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 737 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 738 ENDIF 739 C 740 C-------------------------------------------------------------------- 741 C SEND TO NORTH 742 C-------------------------------------------------------------------- 743 C 744 IF(MY_NEB(1).GE.0)THEN 745 IBEG = MYIS-IHALO 746 IEND = MYIE+IHALO 747 IC = 0 748 DO J=0,JHALO-1 749 DO I=IBEG,IEND 750 IC = IC + 1 751 BUF2(IC)=ARR1(I,MYJE-J) 752 ENDDO 753 ENDDO 754 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 755 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 3 Source Listing EXCH0 2025-03-12 18:21 module_EXCHM.F 756 ENDIF 757 C 758 C-------------------------------------------------------------------- 759 C SEND TO SOUTH 760 C-------------------------------------------------------------------- 761 C 762 IF(MY_NEB(3).GE.0)THEN 763 IBEG = MYIS-IHALO 764 IEND = MYIE+IHALO 765 IC = 0 766 DO J=0,JHALO-1 767 DO I=IBEG,IEND 768 IC = IC + 1 769 BUF3(IC)=ARR1(I,MYJS+J) 770 ENDDO 771 ENDDO 772 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 773 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 774 ENDIF 775 C 776 C-------------------------------------------------------------------- 777 C STORE RESULTS FROM SOUTH 778 C-------------------------------------------------------------------- 779 C 780 IF(MY_NEB(3).GE.0)THEN 781 IBEG = MYIS-IHALO 782 IEND = MYIE+IHALO 783 IC = 0 784 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 785 DO J=0,JHALO-1 786 DO I=IBEG,IEND 787 IC = IC + 1 788 ARR1(I,MYJS-J-1)=BUF1(IC) 789 ENDDO 790 ENDDO 791 ENDIF 792 C 793 C-------------------------------------------------------------------- 794 C STORE FROM NORTH 795 C-------------------------------------------------------------------- 796 C 797 IF(MY_NEB(1).GE.0)THEN 798 IBEG = MYIS-IHALO 799 IEND = MYIE+IHALO 800 IC = 0 801 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 802 DO J=0,JHALO-1 803 DO I=IBEG,IEND 804 IC = IC + 1 805 ARR1(I,MYJE+J+1)=BUF0(IC) 806 ENDDO 807 ENDDO 808 ENDIF 809 C 810 IF(MY_NEB(1).GE.0)THEN 811 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 812 ENDIF Page 4 Source Listing EXCH0 2025-03-12 18:21 module_EXCHM.F 813 C 814 IF(MY_NEB(3).GE.0)THEN 815 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 816 ENDIF 817 C 818 C-------------------------------------------------------------------- 819 C-------------------------------------------------------------------- 820 C*** 821 C*** EAST/WEST 822 C*** 823 C-------------------------------------------------------------------- 824 C-------------------------------------------------------------------- 825 C 826 C-------------------------------------------------------------------- 827 C RECEIVE FROM WEST 828 C-------------------------------------------------------------------- 829 C 830 IF(MY_NEB(4).GE.0)THEN 831 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 832 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 833 ENDIF 834 C 835 C-------------------------------------------------------------------- 836 C RECEIVE FROM EAST 837 C-------------------------------------------------------------------- 838 C 839 IF(MY_NEB(2).GE.0)THEN 840 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 841 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 842 ENDIF 843 C 844 C-------------------------------------------------------------------- 845 C SEND TO EAST 846 C-------------------------------------------------------------------- 847 C 848 IF(MY_NEB(2).GE.0)THEN 849 IBEG = MYIE-IHALO+1 850 IEND = MYIE 851 IC = 0 852 DO J=MYJS-JHALO,MYJE+JHALO 853 DO I=IBEG,IEND 854 IC = IC + 1 855 BUF2(IC)=ARR1(I,J) 856 ENDDO 857 ENDDO 858 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 859 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 860 ENDIF 861 C 862 C-------------------------------------------------------------------- 863 C SEND TO WEST 864 C-------------------------------------------------------------------- 865 C 866 IF(MY_NEB(4).GE.0)THEN 867 IBEG = MYIS 868 IEND = MYIS+IHALO-1 869 IC = 0 Page 5 Source Listing EXCH0 2025-03-12 18:21 module_EXCHM.F 870 DO J=MYJS-JHALO,MYJE+JHALO 871 DO I=IBEG,IEND 872 IC = IC + 1 873 BUF3(IC)=ARR1(I,J) 874 ENDDO 875 ENDDO 876 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 877 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 878 ENDIF 879 C 880 C-------------------------------------------------------------------- 881 C STORE FROM WEST 882 C-------------------------------------------------------------------- 883 C 884 IF(MY_NEB(4).GE.0)THEN 885 IBEG = MYIS-IHALO 886 IEND = MYIS-1 887 IC = 0 888 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 889 DO J=MYJS-JHALO,MYJE+JHALO 890 DO I=IBEG,IEND 891 IC = IC + 1 892 ARR1(I,J)=BUF0(IC) 893 ENDDO 894 ENDDO 895 ENDIF 896 C 897 C-------------------------------------------------------------------- 898 C STORE FROM EAST 899 C-------------------------------------------------------------------- 900 C 901 IF(MY_NEB(2).GE.0)THEN 902 IBEG = MYIE+1 903 IEND = MYIE+IHALO 904 IC = 0 905 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 906 DO J=MYJS-JHALO,MYJE+JHALO 907 DO I=IBEG,IEND 908 IC = IC + 1 909 ARR1(I,J)=BUF1(IC) 910 ENDDO 911 ENDDO 912 ENDIF 913 C 914 IF(MY_NEB(4).GE.0)THEN 915 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 916 ENDIF 917 C 918 IF(MY_NEB(2).GE.0)THEN 919 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 920 ENDIF 921 C 922 C-------------------------------------------------------------------- 923 END SUBROUTINE Page 6 Source Listing EXCH0 2025-03-12 18:21 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 17955 ARG,INOUT 751,769,788,805,855,873,892,909 BUF0 Local 727 R(4) 4 1 2500000 727,805,831,892 BUF1 Local 736 R(4) 4 1 2500000 736,788,840,909 BUF2 Local 751 R(4) 4 1 2500000 751,754,855,858 BUF3 Local 769 R(4) 4 1 2500000 769,772,873,876 EXCH0 Subr 4 EXCH_BUF_REAL Module 59 59 GLB_TABLE Common 684 128 SAVE I Local 749 I(4) 4 scalar 749,751,767,769,786,788,803,805,85 3,855,871,873,890,892,907,909 IBEG Local 745 I(4) 4 scalar 745,749,763,767,781,786,798,803,84 9,853,867,871,885,890,902,907 IBUFEXCH Param 727 I(4) 4 scalar 727,736,831,840 IC Local 747 I(4) 4 scalar 747,750,751,754,765,768,769,772,78 3,787,788,800,804,805,851,854,855, 858,869,872,873,876,887,891,892,90 4,908,909 IDIM1 Param 80 I(4) 4 scalar 708 IDIM2 Param 80 I(4) 4 scalar 708 IEND Local 746 I(4) 4 scalar 746,749,764,767,782,786,799,803,85 0,853,868,871,886,890,903,907 IERR Local 784 I(4) 4 scalar 784,801,811,815,888,905,915,919 IGSTL Param 75 I(4) 4 scalar 80 IGSTR Param 75 I(4) 4 scalar 80 IHALO Dummy 4 I(4) 4 scalar ARG,INOUT 745,746,763,764,781,782,798,799,84 9,868,885,903 IHANDLE Local 707 I(4) 4 1 4 728,737,755,773,784,801,811,815,83 2,841,859,877,888,905,915,919 IM Param 64 I(4) 4 scalar 77,80,690,691,692,693,694,698,699, 704 INPES Param 72 I(4) 4 scalar 77,80,674,675,676,685,686 IRECV Local 728 I(4) 4 scalar 728,737,832,841 ISEND Local 755 I(4) 4 scalar 755,773,859,877 ISTAT Local 706 I(4) 4 1 5 784,801,811,815,888,905,915,919 ITAIL Param 77 I(4) 4 scalar ITYPE Local 712 I(4) 4 scalar 712,727,736,754,772,831,840,858,87 6 J Local 748 I(4) 4 scalar 748,751,766,769,785,788,802,805,85 2,855,870,873,889,892,906,909 JDIM1 Param 81 I(4) 4 scalar 708 JDIM2 Param 81 I(4) 4 scalar 708 JGSTL Param 76 I(4) 4 scalar 81 JGSTR Param 76 I(4) 4 scalar 81 JHALO Dummy 4 I(4) 4 scalar ARG,INOUT 748,766,785,802,852,870,889,906 Page 7 Source Listing EXCH0 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References JM Param 64 I(4) 4 scalar 78,81,690,691,692,693,694,698,699, 704 JNPES Param 72 I(4) 4 scalar 78,81,674,675,676,685,686 JTAIL Param 78 I(4) 4 scalar LL1 Dummy 4 I(4) 4 scalar ARG,INOUT LM Param 64 I(4) 4 scalar 699 LSM Param 64 I(4) 4 scalar MAPPINGS Common 703 5024 SAVE MPIFCMB5 Common 634 4 SAVE MPIFCMB9 Common 635 4 SAVE MPIPRIV1 Common 639 28 SAVE MPIPRIV2 Common 641 24 SAVE MPIPRIVC Common 644 2 SAVE MPI_2DOUBLE_PRECISION Param 380 I(4) 4 scalar MPI_2INT Param 464 I(4) 4 scalar MPI_2INTEGER Param 378 I(4) 4 scalar MPI_2REAL Param 382 I(4) 4 scalar MPI_ADDRESS_KIND Param 416 I(4) 4 scalar MPI_AINT Param 494 I(4) 4 scalar MPI_ANY_SOURCE Param 346 I(4) 4 scalar MPI_ANY_TAG Param 348 I(4) 4 scalar MPI_APPNUM Param 310 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 616 L(4) 4 scalar MPI_BAND Param 254 I(4) 4 scalar MPI_BOR Param 258 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 342 I(4) 4 scalar MPI_BXOR Param 262 I(4) 4 scalar MPI_BYTE Param 386 I(4) 4 scalar MPI_CART Param 354 I(4) 4 scalar MPI_CHAR Param 424 I(4) 4 scalar MPI_CHARACTER Param 384 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 512 I(4) 4 scalar MPI_COMBINER_DARRAY Param 534 I(4) 4 scalar MPI_COMBINER_DUP Param 510 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 538 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 540 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 536 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 524 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 544 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 522 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 518 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 516 I(4) 4 scalar MPI_COMBINER_INDEXED Param 520 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 526 I(4) 4 scalar MPI_COMBINER_NAMED Param 508 I(4) 4 scalar MPI_COMBINER_RESIZED Param 542 I(4) 4 scalar MPI_COMBINER_STRUCT Param 530 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 528 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 532 I(4) 4 scalar MPI_COMBINER_VECTOR Param 514 I(4) 4 scalar Page 8 Source Listing EXCH0 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_DUP_FN Subr 623 scalar MPI_COMM_NULL Param 278 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 624 scalar MPI_COMM_NULL_DELETE_FN Subr 623 scalar MPI_COMM_SELF Param 274 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 562 I(4) 4 scalar MPI_COMM_WORLD Param 272 I(4) 4 scalar MPI_COMPLEX Param 366 I(4) 4 scalar MPI_COMPLEX16 Param 412 I(4) 4 scalar MPI_COMPLEX32 Param 414 I(4) 4 scalar MPI_COMPLEX8 Param 410 I(4) 4 scalar MPI_CONGRUENT Param 226 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 629 scalar MPI_COUNT Param 498 I(4) 4 scalar MPI_COUNT_KIND Param 420 I(4) 4 scalar MPI_CXX_BOOL Param 500 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 504 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 502 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 506 I(4) 4 scalar MPI_C_BOOL Param 484 I(4) 4 scalar MPI_C_COMPLEX Param 488 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 490 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 486 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 492 I(4) 4 scalar MPI_DATATYPE_NULL Param 288 I(4) 4 scalar 403,501,503,505,507 MPI_DISPLACEMENT_CURRENT Param 612 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 604 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 606 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 610 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 608 I(4) 4 scalar MPI_DIST_GRAPH Param 356 I(4) 4 scalar MPI_DOUBLE Param 446 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 368 I(4) 4 scalar MPI_DOUBLE_INT Param 458 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 374 I(4) 4 scalar MPI_DUP_FN Subr 620 scalar MPI_ERRHANDLER_NULL Param 292 I(4) 4 scalar MPI_ERROR Param 93 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 220 I(4) 4 scalar MPI_ERRORS_RETURN Param 222 I(4) 4 scalar MPI_ERR_ACCESS Param 212 I(4) 4 scalar MPI_ERR_AMODE Param 198 I(4) 4 scalar MPI_ERR_ARG Param 168 I(4) 4 scalar MPI_ERR_ASSERT Param 174 I(4) 4 scalar MPI_ERR_BAD_FILE Param 136 I(4) 4 scalar MPI_ERR_BASE Param 166 I(4) 4 scalar MPI_ERR_BUFFER Param 108 I(4) 4 scalar MPI_ERR_COMM Param 186 I(4) 4 scalar MPI_ERR_CONVERSION Param 202 I(4) 4 scalar MPI_ERR_COUNT Param 112 I(4) 4 scalar MPI_ERR_DIMS Param 150 I(4) 4 scalar MPI_ERR_DISP Param 134 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 116 I(4) 4 scalar MPI_ERR_FILE Param 146 I(4) 4 scalar Page 9 Source Listing EXCH0 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_FILE_EXISTS Param 128 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 170 I(4) 4 scalar MPI_ERR_GROUP Param 132 I(4) 4 scalar MPI_ERR_INFO Param 160 I(4) 4 scalar MPI_ERR_INFO_KEY Param 164 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 144 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 130 I(4) 4 scalar MPI_ERR_INTERN Param 162 I(4) 4 scalar MPI_ERR_IN_STATUS Param 148 I(4) 4 scalar MPI_ERR_IO Param 208 I(4) 4 scalar MPI_ERR_KEYVAL Param 154 I(4) 4 scalar MPI_ERR_LASTCODE Param 176 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 158 I(4) 4 scalar MPI_ERR_NAME Param 152 I(4) 4 scalar MPI_ERR_NOT_SAME Param 180 I(4) 4 scalar MPI_ERR_NO_MEM Param 172 I(4) 4 scalar MPI_ERR_NO_SPACE Param 104 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 188 I(4) 4 scalar MPI_ERR_OP Param 206 I(4) 4 scalar MPI_ERR_OTHER Param 120 I(4) 4 scalar MPI_ERR_PENDING Param 110 I(4) 4 scalar MPI_ERR_PORT Param 192 I(4) 4 scalar MPI_ERR_QUOTA Param 196 I(4) 4 scalar MPI_ERR_RANK Param 118 I(4) 4 scalar MPI_ERR_READ_ONLY Param 156 I(4) 4 scalar MPI_ERR_REQUEST Param 200 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 122 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 126 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 142 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 204 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 194 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 106 I(4) 4 scalar MPI_ERR_ROOT Param 138 I(4) 4 scalar MPI_ERR_SERVICE Param 114 I(4) 4 scalar MPI_ERR_SIZE Param 124 I(4) 4 scalar MPI_ERR_SPAWN Param 184 I(4) 4 scalar MPI_ERR_TAG Param 214 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 218 I(4) 4 scalar MPI_ERR_TRUNCATE Param 178 I(4) 4 scalar MPI_ERR_TYPE Param 182 I(4) 4 scalar MPI_ERR_UNKNOWN Param 216 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 140 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 190 I(4) 4 scalar MPI_ERR_WIN Param 210 I(4) 4 scalar MPI_FILE_NULL Param 282 I(4) 4 scalar MPI_FLOAT Param 444 I(4) 4 scalar MPI_FLOAT_INT Param 456 I(4) 4 scalar MPI_GRAPH Param 352 I(4) 4 scalar MPI_GROUP_EMPTY Param 276 I(4) 4 scalar MPI_GROUP_NULL Param 284 I(4) 4 scalar MPI_HOST Param 300 I(4) 4 scalar MPI_IDENT Param 224 I(4) 4 scalar MPI_INFO_ENV Param 296 I(4) 4 scalar Page 10 Source Listing EXCH0 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INFO_NULL Param 294 I(4) 4 scalar MPI_INT Param 436 I(4) 4 scalar MPI_INT16_T Param 470 I(4) 4 scalar MPI_INT32_T Param 472 I(4) 4 scalar MPI_INT64_T Param 474 I(4) 4 scalar MPI_INT8_T Param 468 I(4) 4 scalar MPI_INTEGER Param 376 I(4) 4 scalar MPI_INTEGER1 Param 394 I(4) 4 scalar MPI_INTEGER16 Param 402 I(4) 4 scalar MPI_INTEGER2 Param 396 I(4) 4 scalar MPI_INTEGER4 Param 398 I(4) 4 scalar MPI_INTEGER8 Param 400 I(4) 4 scalar MPI_INTEGER_KIND Param 422 I(4) 4 scalar MPI_IO Param 302 I(4) 4 scalar MPI_IRECV Subr 727 727,736,831,840 MPI_ISEND Subr 754 754,772,858,876 MPI_KEYVAL_INVALID Param 340 I(4) 4 scalar MPI_LAND Param 252 I(4) 4 scalar MPI_LASTUSEDCODE Param 308 I(4) 4 scalar MPI_LB Param 390 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 362 I(4) 4 scalar MPI_LOCK_SHARED Param 364 I(4) 4 scalar MPI_LOGICAL Param 370 I(4) 4 scalar MPI_LONG Param 440 I(4) 4 scalar MPI_LONG_DOUBLE Param 448 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 466 I(4) 4 scalar MPI_LONG_INT Param 460 I(4) 4 scalar MPI_LONG_LONG Param 454 I(4) 4 scalar MPI_LONG_LONG_INT Param 450 I(4) 4 scalar MPI_LOR Param 256 I(4) 4 scalar MPI_LXOR Param 260 I(4) 4 scalar MPI_MAX Param 244 I(4) 4 scalar MPI_MAXLOC Param 266 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 334 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 322 I(4) 4 scalar MPI_MAX_INFO_KEY Param 328 I(4) 4 scalar MPI_MAX_INFO_VAL Param 330 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 336 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 326 I(4) 4 scalar MPI_MAX_PORT_NAME Param 324 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 332 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 566 I(4) 4 scalar MPI_MESSAGE_NULL Param 564 I(4) 4 scalar MPI_MIN Param 246 I(4) 4 scalar MPI_MINLOC Param 264 I(4) 4 scalar MPI_MODE_APPEND Param 590 I(4) 4 scalar MPI_MODE_CREATE Param 586 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 582 I(4) 4 scalar MPI_MODE_EXCL Param 588 I(4) 4 scalar MPI_MODE_NOCHECK Param 552 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 558 I(4) 4 scalar MPI_MODE_NOPUT Param 556 I(4) 4 scalar MPI_MODE_NOSTORE Param 554 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 560 I(4) 4 scalar Page 11 Source Listing EXCH0 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_RDONLY Param 576 I(4) 4 scalar MPI_MODE_RDWR Param 578 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 592 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 584 I(4) 4 scalar MPI_MODE_WRONLY Param 580 I(4) 4 scalar MPI_NO_OP Param 270 I(4) 4 scalar MPI_NULL_COPY_FN Subr 620 scalar MPI_NULL_DELETE_FN Subr 620 scalar MPI_OFFSET Param 496 I(4) 4 scalar MPI_OFFSET_KIND Param 418 I(4) 4 scalar MPI_OP_NULL Param 286 I(4) 4 scalar MPI_ORDER_C Param 600 I(4) 4 scalar MPI_ORDER_FORTRAN Param 602 I(4) 4 scalar MPI_PACKED Param 392 I(4) 4 scalar MPI_PROC_NULL Param 344 I(4) 4 scalar MPI_PROD Param 250 I(4) 4 scalar MPI_REAL Param 372 I(4) 4 scalar 712 MPI_REAL16 Param 408 I(4) 4 scalar MPI_REAL4 Param 404 I(4) 4 scalar MPI_REAL8 Param 406 I(4) 4 scalar MPI_REPLACE Param 268 I(4) 4 scalar MPI_REQUEST_NULL Param 290 I(4) 4 scalar MPI_ROOT Param 350 I(4) 4 scalar MPI_SEEK_CUR Param 596 I(4) 4 scalar MPI_SEEK_END Param 598 I(4) 4 scalar MPI_SEEK_SET Param 594 I(4) 4 scalar MPI_SHORT Param 432 I(4) 4 scalar MPI_SHORT_INT Param 462 I(4) 4 scalar MPI_SIGNED_CHAR Param 426 I(4) 4 scalar MPI_SIMILAR Param 228 I(4) 4 scalar MPI_SOURCE Param 93 I(4) 4 scalar MPI_STATUS_SIZE Param 95 I(4) 4 scalar 97,98,706 MPI_SUBARRAYS_SUPPORTED Param 614 L(4) 4 scalar MPI_SUBVERSION Param 360 I(4) 4 scalar MPI_SUCCESS Param 102 I(4) 4 scalar MPI_SUM Param 248 I(4) 4 scalar MPI_TAG Param 93 I(4) 4 scalar MPI_TAG_UB Param 298 I(4) 4 scalar MPI_THREAD_FUNNELED Param 570 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 574 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 572 I(4) 4 scalar MPI_THREAD_SINGLE Param 568 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 550 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 548 I(4) 4 scalar MPI_TYPECLASS_REAL Param 546 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 627 scalar MPI_TYPE_NULL_COPY_FN Subr 628 scalar MPI_TYPE_NULL_DELETE_FN Subr 627 scalar MPI_UB Param 388 I(4) 4 scalar MPI_UINT16_T Param 478 I(4) 4 scalar MPI_UINT32_T Param 480 I(4) 4 scalar MPI_UINT64_T Param 482 I(4) 4 scalar MPI_UINT8_T Param 476 I(4) 4 scalar MPI_UNDEFINED Param 338 I(4) 4 scalar MPI_UNEQUAL Param 230 I(4) 4 scalar Page 12 Source Listing EXCH0 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNIVERSE_SIZE Param 306 I(4) 4 scalar MPI_UNSIGNED Param 438 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 428 I(4) 4 scalar MPI_UNSIGNED_LONG Param 442 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 452 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 434 I(4) 4 scalar MPI_VERSION Param 358 I(4) 4 scalar MPI_WAIT Subr 784 784,801,811,815,888,905,915,919 MPI_WCHAR Param 430 I(4) 4 scalar MPI_WIN_BASE Param 312 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 318 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 316 I(4) 4 scalar MPI_WIN_DUP_FN Subr 625 scalar MPI_WIN_FLAVOR_ALLOCATE Param 234 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 232 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 236 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 238 I(4) 4 scalar MPI_WIN_MODEL Param 320 I(4) 4 scalar MPI_WIN_NULL Param 280 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 626 scalar MPI_WIN_NULL_DELETE_FN Subr 625 scalar MPI_WIN_SEPARATE Param 240 I(4) 4 scalar MPI_WIN_SIZE Param 314 I(4) 4 scalar MPI_WIN_UNIFIED Param 242 I(4) 4 scalar MPI_WTICK Func 621 R(8) 8 scalar MPI_WTIME Func 621 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 304 I(4) 4 scalar MPPCOM Common 648 1464 SAVE PMPI_WTICK Func 622 R(8) 8 scalar PMPI_WTIME Func 622 R(8) 8 scalar TEMPCOM Common 689 6603768 SAVE TOPO Common 697 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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:21 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 728,737,755,773,832,841,859,877 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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 746,764,782,799,849,850,902,903 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 745,763,781,798,867,868,885,886 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:21 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 751,805,852,870,889,906 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 769,788,852,870,889,906 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:21 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References MYPE I(4) 4 0 scalar COM 754,772,858,876 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 726,727,735,736,744,754,762,772,78 0,797,810,814,830,831,839,840,848, 858,866,876,884,901,914,918 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:21 module_EXCHM.F 924 925 SUBROUTINE EXCH1(ARR1,LL1,IHALO,JHALO) 926 USE EXCH_BUF_REAL 927 INCLUDE "parmeta" 950 INCLUDE "mpif.h" 1512 INCLUDE "mpp.h" 1513 C----------------------------------------------------------------------- 1572 INTEGER ISTAT(MPI_STATUS_SIZE) 1573 INTEGER IHANDLE(4) 1574 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 1575 C 1576 C*********************************************************************** 1577 C 1578 ITYPE=MPI_REAL 1579 C 1580 C-------------------------------------------------------------------- 1581 C-------------------------------------------------------------------- 1582 C*** 1583 C*** NORTH/SOUTH 1584 C*** 1585 C-------------------------------------------------------------------- 1586 C-------------------------------------------------------------------- 1587 C 1588 C-------------------------------------------------------------------- 1589 C RECEIVE FROM NORTH 1590 C-------------------------------------------------------------------- 1591 C 1592 IF(MY_NEB(1).GE.0)THEN 1593 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 1594 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 1595 ENDIF 1596 C 1597 C-------------------------------------------------------------------- 1598 C RECEIVE FROM SOUTH 1599 C-------------------------------------------------------------------- 1600 C 1601 IF(MY_NEB(3).GE.0)THEN 1602 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 1603 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 1604 ENDIF 1605 C 1606 C-------------------------------------------------------------------- 1607 C SEND TO NORTH 1608 C-------------------------------------------------------------------- 1609 C 1610 IF(MY_NEB(1).GE.0)THEN 1611 IBEG = MYIS-IHALO 1612 IEND = MYIE+IHALO 1613 IC = 0 1614 DO K=1,LL1 1615 DO J=0,JHALO-1 1616 DO I=IBEG,IEND 1617 IC = IC + 1 1618 BUF2(IC)=ARR1(I,MYJE-J,K) 1619 ENDDO 1620 ENDDO 1621 ENDDO Page 17 Source Listing EXCH1 2025-03-12 18:21 module_EXCHM.F 1622 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 1623 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 1624 ENDIF 1625 C 1626 C-------------------------------------------------------------------- 1627 C SEND TO SOUTH 1628 C-------------------------------------------------------------------- 1629 C 1630 IF(MY_NEB(3).GE.0)THEN 1631 IBEG = MYIS-IHALO 1632 IEND = MYIE+IHALO 1633 IC = 0 1634 DO K=1,LL1 1635 DO J=0,JHALO-1 1636 DO I=IBEG,IEND 1637 IC = IC + 1 1638 BUF3(IC)=ARR1(I,MYJS+J,K) 1639 ENDDO 1640 ENDDO 1641 ENDDO 1642 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 1643 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 1644 ENDIF 1645 C 1646 C-------------------------------------------------------------------- 1647 C STORE RESULTS FROM SOUTH 1648 C-------------------------------------------------------------------- 1649 C 1650 IF(MY_NEB(3).GE.0)THEN 1651 IBEG = MYIS-IHALO 1652 IEND = MYIE+IHALO 1653 IC = 0 1654 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 1655 DO K=1,LL1 1656 DO J=0,JHALO-1 1657 DO I=IBEG,IEND 1658 IC = IC + 1 1659 ARR1(I,MYJS-J-1,K)=BUF1(IC) 1660 ENDDO 1661 ENDDO 1662 ENDDO 1663 ENDIF 1664 C 1665 C-------------------------------------------------------------------- 1666 C STORE FROM NORTH 1667 C-------------------------------------------------------------------- 1668 C 1669 IF(MY_NEB(1).GE.0)THEN 1670 IBEG = MYIS-IHALO 1671 IEND = MYIE+IHALO 1672 IC = 0 1673 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 1674 DO K=1,LL1 1675 DO J=0,JHALO-1 1676 DO I=IBEG,IEND 1677 IC = IC + 1 1678 ARR1(I,MYJE+J+1,K)=BUF0(IC) Page 18 Source Listing EXCH1 2025-03-12 18:21 module_EXCHM.F 1679 ENDDO 1680 ENDDO 1681 ENDDO 1682 ENDIF 1683 C 1684 IF(MY_NEB(1).GE.0)THEN 1685 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 1686 ENDIF 1687 C 1688 IF(MY_NEB(3).GE.0)THEN 1689 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 1690 ENDIF 1691 C 1692 C-------------------------------------------------------------------- 1693 C-------------------------------------------------------------------- 1694 C*** 1695 C*** EAST/WEST 1696 C*** 1697 C-------------------------------------------------------------------- 1698 C-------------------------------------------------------------------- 1699 C 1700 C-------------------------------------------------------------------- 1701 C RECEIVE FROM WEST 1702 C-------------------------------------------------------------------- 1703 C 1704 IF(MY_NEB(4).GE.0)THEN 1705 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 1706 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 1707 ENDIF 1708 C 1709 C-------------------------------------------------------------------- 1710 C RECEIVE FROM EAST 1711 C-------------------------------------------------------------------- 1712 C 1713 IF(MY_NEB(2).GE.0)THEN 1714 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 1715 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 1716 ENDIF 1717 C 1718 C-------------------------------------------------------------------- 1719 C SEND TO EAST 1720 C-------------------------------------------------------------------- 1721 C 1722 IF(MY_NEB(2).GE.0)THEN 1723 IBEG = MYIE-IHALO+1 1724 IEND = MYIE 1725 IC = 0 1726 DO K=1,LL1 1727 DO J=MYJS-JHALO,MYJE+JHALO 1728 DO I=IBEG,IEND 1729 IC = IC + 1 1730 BUF2(IC)=ARR1(I,J,K) 1731 ENDDO 1732 ENDDO 1733 ENDDO 1734 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 1735 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 19 Source Listing EXCH1 2025-03-12 18:21 module_EXCHM.F 1736 ENDIF 1737 C 1738 C-------------------------------------------------------------------- 1739 C SEND TO WEST 1740 C-------------------------------------------------------------------- 1741 C 1742 IF(MY_NEB(4).GE.0)THEN 1743 IBEG = MYIS 1744 IEND = MYIS+IHALO-1 1745 IC = 0 1746 DO K=1,LL1 1747 DO J=MYJS-JHALO,MYJE+JHALO 1748 DO I=IBEG,IEND 1749 IC = IC + 1 1750 BUF3(IC)=ARR1(I,J,K) 1751 ENDDO 1752 ENDDO 1753 ENDDO 1754 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 1755 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 1756 ENDIF 1757 C 1758 C-------------------------------------------------------------------- 1759 C STORE FROM WEST 1760 C-------------------------------------------------------------------- 1761 C 1762 IF(MY_NEB(4).GE.0)THEN 1763 IBEG = MYIS-IHALO 1764 IEND = MYIS-1 1765 IC = 0 1766 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 1767 DO K=1,LL1 1768 DO J=MYJS-JHALO,MYJE+JHALO 1769 DO I=IBEG,IEND 1770 IC = IC + 1 1771 ARR1(I,J,K)=BUF0(IC) 1772 ENDDO 1773 ENDDO 1774 ENDDO 1775 ENDIF 1776 C 1777 C-------------------------------------------------------------------- 1778 C STORE FROM EAST 1779 C-------------------------------------------------------------------- 1780 C 1781 IF(MY_NEB(2).GE.0)THEN 1782 IBEG = MYIE+1 1783 IEND = MYIE+IHALO 1784 IC = 0 1785 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 1786 DO K=1,LL1 1787 DO J=MYJS-JHALO,MYJE+JHALO 1788 DO I=IBEG,IEND 1789 IC = IC + 1 1790 ARR1(I,J,K)=BUF1(IC) 1791 ENDDO 1792 ENDDO Page 20 Source Listing EXCH1 2025-03-12 18:21 module_EXCHM.F 1793 ENDDO 1794 ENDIF 1795 C 1796 IF(MY_NEB(4).GE.0)THEN 1797 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 1798 ENDIF 1799 C 1800 IF(MY_NEB(2).GE.0)THEN 1801 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 1802 ENDIF 1803 C 1804 C-------------------------------------------------------------------- 1805 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch1_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 925 R(4) 4 3 0 ARG,INOUT 1618,1638,1659,1678,1730,1750,1771 ,1790 BUF0 Local 1593 R(4) 4 1 2500000 1593,1678,1705,1771 BUF1 Local 1602 R(4) 4 1 2500000 1602,1659,1714,1790 BUF2 Local 1618 R(4) 4 1 2500000 1618,1622,1730,1734 BUF3 Local 1638 R(4) 4 1 2500000 1638,1642,1750,1754 EXCH1 Subr 925 EXCH_BUF_REAL Module 926 926 GLB_TABLE Common 1550 128 SAVE I Local 1616 I(4) 4 scalar 1616,1618,1636,1638,1657,1659,1676 ,1678,1728,1730,1748,1750,1769,177 1,1788,1790 IBEG Local 1611 I(4) 4 scalar 1611,1616,1631,1636,1651,1657,1670 ,1676,1723,1728,1743,1748,1763,176 9,1782,1788 IBUFEXCH Param 1593 I(4) 4 scalar 1593,1602,1705,1714 IC Local 1613 I(4) 4 scalar 1613,1617,1618,1622,1633,1637,1638 ,1642,1653,1658,1659,1672,1677,167 8,1725,1729,1730,1734,1745,1749,17 50,1754,1765,1770,1771,1784,1789,1 790 IDIM1 Param 946 I(4) 4 scalar 1574 IDIM2 Param 946 I(4) 4 scalar 1574 IEND Local 1612 I(4) 4 scalar 1612,1616,1632,1636,1652,1657,1671 ,1676,1724,1728,1744,1748,1764,176 9,1783,1788 IERR Local 1654 I(4) 4 scalar 1654,1673,1685,1689,1766,1785,1797 ,1801 IGSTL Param 941 I(4) 4 scalar 946 IGSTR Param 941 I(4) 4 scalar 946 IHALO Dummy 925 I(4) 4 scalar ARG,INOUT 1611,1612,1631,1632,1651,1652,1670 Page 21 Source Listing EXCH1 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,1671,1723,1744,1763,1783 IHANDLE Local 1573 I(4) 4 1 4 1594,1603,1623,1643,1654,1673,1685 ,1689,1706,1715,1735,1755,1766,178 5,1797,1801 IM Param 930 I(4) 4 scalar 943,946,1556,1557,1558,1559,1560,1 564,1565,1570 INPES Param 938 I(4) 4 scalar 943,946,1540,1541,1542,1551,1552 IRECV Local 1594 I(4) 4 scalar 1594,1603,1706,1715 ISEND Local 1623 I(4) 4 scalar 1623,1643,1735,1755 ISTAT Local 1572 I(4) 4 1 5 1654,1673,1685,1689,1766,1785,1797 ,1801 ITAIL Param 943 I(4) 4 scalar ITYPE Local 1578 I(4) 4 scalar 1578,1593,1602,1622,1642,1705,1714 ,1734,1754 J Local 1615 I(4) 4 scalar 1615,1618,1635,1638,1656,1659,1675 ,1678,1727,1730,1747,1750,1768,177 1,1787,1790 JDIM1 Param 947 I(4) 4 scalar 1574 JDIM2 Param 947 I(4) 4 scalar 1574 JGSTL Param 942 I(4) 4 scalar 947 JGSTR Param 942 I(4) 4 scalar 947 JHALO Dummy 925 I(4) 4 scalar ARG,INOUT 1615,1635,1656,1675,1727,1747,1768 ,1787 JM Param 930 I(4) 4 scalar 944,947,1556,1557,1558,1559,1560,1 564,1565,1570 JNPES Param 938 I(4) 4 scalar 944,947,1540,1541,1542,1551,1552 JTAIL Param 944 I(4) 4 scalar K Local 1614 I(4) 4 scalar 1614,1618,1634,1638,1655,1659,1674 ,1678,1726,1730,1746,1750,1767,177 1,1786,1790 LL1 Dummy 925 I(4) 4 scalar ARG,INOUT 1614,1634,1655,1674,1726,1746,1767 ,1786 LM Param 930 I(4) 4 scalar 1565 LSM Param 930 I(4) 4 scalar MAPPINGS Common 1569 5024 SAVE MPIFCMB5 Common 1500 4 SAVE MPIFCMB9 Common 1501 4 SAVE MPIPRIV1 Common 1505 28 SAVE MPIPRIV2 Common 1507 24 SAVE MPIPRIVC Common 1510 2 SAVE MPI_2DOUBLE_PRECISION Param 1246 I(4) 4 scalar MPI_2INT Param 1330 I(4) 4 scalar MPI_2INTEGER Param 1244 I(4) 4 scalar MPI_2REAL Param 1248 I(4) 4 scalar MPI_ADDRESS_KIND Param 1282 I(4) 4 scalar MPI_AINT Param 1360 I(4) 4 scalar MPI_ANY_SOURCE Param 1212 I(4) 4 scalar MPI_ANY_TAG Param 1214 I(4) 4 scalar MPI_APPNUM Param 1176 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 1482 L(4) 4 scalar MPI_BAND Param 1120 I(4) 4 scalar MPI_BOR Param 1124 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 1208 I(4) 4 scalar MPI_BXOR Param 1128 I(4) 4 scalar Page 22 Source Listing EXCH1 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BYTE Param 1252 I(4) 4 scalar MPI_CART Param 1220 I(4) 4 scalar MPI_CHAR Param 1290 I(4) 4 scalar MPI_CHARACTER Param 1250 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 1378 I(4) 4 scalar MPI_COMBINER_DARRAY Param 1400 I(4) 4 scalar MPI_COMBINER_DUP Param 1376 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 1404 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 1406 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 1402 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 1390 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 1410 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 1388 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 1384 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 1382 I(4) 4 scalar MPI_COMBINER_INDEXED Param 1386 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 1392 I(4) 4 scalar MPI_COMBINER_NAMED Param 1374 I(4) 4 scalar MPI_COMBINER_RESIZED Param 1408 I(4) 4 scalar MPI_COMBINER_STRUCT Param 1396 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 1394 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 1398 I(4) 4 scalar MPI_COMBINER_VECTOR Param 1380 I(4) 4 scalar MPI_COMM_DUP_FN Subr 1489 scalar MPI_COMM_NULL Param 1144 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 1490 scalar MPI_COMM_NULL_DELETE_FN Subr 1489 scalar MPI_COMM_SELF Param 1140 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 1428 I(4) 4 scalar MPI_COMM_WORLD Param 1138 I(4) 4 scalar MPI_COMPLEX Param 1232 I(4) 4 scalar MPI_COMPLEX16 Param 1278 I(4) 4 scalar MPI_COMPLEX32 Param 1280 I(4) 4 scalar MPI_COMPLEX8 Param 1276 I(4) 4 scalar MPI_CONGRUENT Param 1092 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 1495 scalar MPI_COUNT Param 1364 I(4) 4 scalar MPI_COUNT_KIND Param 1286 I(4) 4 scalar MPI_CXX_BOOL Param 1366 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 1370 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 1368 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 1372 I(4) 4 scalar MPI_C_BOOL Param 1350 I(4) 4 scalar MPI_C_COMPLEX Param 1354 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 1356 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 1352 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 1358 I(4) 4 scalar MPI_DATATYPE_NULL Param 1154 I(4) 4 scalar 1269,1367,1369,1371,1373 MPI_DISPLACEMENT_CURRENT Param 1478 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 1470 I(4) 4 scalar Page 23 Source Listing EXCH1 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DISTRIBUTE_CYCLIC Param 1472 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 1476 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 1474 I(4) 4 scalar MPI_DIST_GRAPH Param 1222 I(4) 4 scalar MPI_DOUBLE Param 1312 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 1234 I(4) 4 scalar MPI_DOUBLE_INT Param 1324 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 1240 I(4) 4 scalar MPI_DUP_FN Subr 1486 scalar MPI_ERRHANDLER_NULL Param 1158 I(4) 4 scalar MPI_ERROR Param 959 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 1086 I(4) 4 scalar MPI_ERRORS_RETURN Param 1088 I(4) 4 scalar MPI_ERR_ACCESS Param 1078 I(4) 4 scalar MPI_ERR_AMODE Param 1064 I(4) 4 scalar MPI_ERR_ARG Param 1034 I(4) 4 scalar MPI_ERR_ASSERT Param 1040 I(4) 4 scalar MPI_ERR_BAD_FILE Param 1002 I(4) 4 scalar MPI_ERR_BASE Param 1032 I(4) 4 scalar MPI_ERR_BUFFER Param 974 I(4) 4 scalar MPI_ERR_COMM Param 1052 I(4) 4 scalar MPI_ERR_CONVERSION Param 1068 I(4) 4 scalar MPI_ERR_COUNT Param 978 I(4) 4 scalar MPI_ERR_DIMS Param 1016 I(4) 4 scalar MPI_ERR_DISP Param 1000 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 982 I(4) 4 scalar MPI_ERR_FILE Param 1012 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 994 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 1036 I(4) 4 scalar MPI_ERR_GROUP Param 998 I(4) 4 scalar MPI_ERR_INFO Param 1026 I(4) 4 scalar MPI_ERR_INFO_KEY Param 1030 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 1010 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 996 I(4) 4 scalar MPI_ERR_INTERN Param 1028 I(4) 4 scalar MPI_ERR_IN_STATUS Param 1014 I(4) 4 scalar MPI_ERR_IO Param 1074 I(4) 4 scalar MPI_ERR_KEYVAL Param 1020 I(4) 4 scalar MPI_ERR_LASTCODE Param 1042 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 1024 I(4) 4 scalar MPI_ERR_NAME Param 1018 I(4) 4 scalar MPI_ERR_NOT_SAME Param 1046 I(4) 4 scalar MPI_ERR_NO_MEM Param 1038 I(4) 4 scalar MPI_ERR_NO_SPACE Param 970 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 1054 I(4) 4 scalar MPI_ERR_OP Param 1072 I(4) 4 scalar MPI_ERR_OTHER Param 986 I(4) 4 scalar MPI_ERR_PENDING Param 976 I(4) 4 scalar MPI_ERR_PORT Param 1058 I(4) 4 scalar MPI_ERR_QUOTA Param 1062 I(4) 4 scalar MPI_ERR_RANK Param 984 I(4) 4 scalar MPI_ERR_READ_ONLY Param 1022 I(4) 4 scalar MPI_ERR_REQUEST Param 1066 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 988 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 992 I(4) 4 scalar Page 24 Source Listing EXCH1 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_RMA_FLAVOR Param 1008 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 1070 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 1060 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 972 I(4) 4 scalar MPI_ERR_ROOT Param 1004 I(4) 4 scalar MPI_ERR_SERVICE Param 980 I(4) 4 scalar MPI_ERR_SIZE Param 990 I(4) 4 scalar MPI_ERR_SPAWN Param 1050 I(4) 4 scalar MPI_ERR_TAG Param 1080 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 1084 I(4) 4 scalar MPI_ERR_TRUNCATE Param 1044 I(4) 4 scalar MPI_ERR_TYPE Param 1048 I(4) 4 scalar MPI_ERR_UNKNOWN Param 1082 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 1006 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 1056 I(4) 4 scalar MPI_ERR_WIN Param 1076 I(4) 4 scalar MPI_FILE_NULL Param 1148 I(4) 4 scalar MPI_FLOAT Param 1310 I(4) 4 scalar MPI_FLOAT_INT Param 1322 I(4) 4 scalar MPI_GRAPH Param 1218 I(4) 4 scalar MPI_GROUP_EMPTY Param 1142 I(4) 4 scalar MPI_GROUP_NULL Param 1150 I(4) 4 scalar MPI_HOST Param 1166 I(4) 4 scalar MPI_IDENT Param 1090 I(4) 4 scalar MPI_INFO_ENV Param 1162 I(4) 4 scalar MPI_INFO_NULL Param 1160 I(4) 4 scalar MPI_INT Param 1302 I(4) 4 scalar MPI_INT16_T Param 1336 I(4) 4 scalar MPI_INT32_T Param 1338 I(4) 4 scalar MPI_INT64_T Param 1340 I(4) 4 scalar MPI_INT8_T Param 1334 I(4) 4 scalar MPI_INTEGER Param 1242 I(4) 4 scalar MPI_INTEGER1 Param 1260 I(4) 4 scalar MPI_INTEGER16 Param 1268 I(4) 4 scalar MPI_INTEGER2 Param 1262 I(4) 4 scalar MPI_INTEGER4 Param 1264 I(4) 4 scalar MPI_INTEGER8 Param 1266 I(4) 4 scalar MPI_INTEGER_KIND Param 1288 I(4) 4 scalar MPI_IO Param 1168 I(4) 4 scalar MPI_IRECV Subr 1593 1593,1602,1705,1714 MPI_ISEND Subr 1622 1622,1642,1734,1754 MPI_KEYVAL_INVALID Param 1206 I(4) 4 scalar MPI_LAND Param 1118 I(4) 4 scalar MPI_LASTUSEDCODE Param 1174 I(4) 4 scalar MPI_LB Param 1256 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 1228 I(4) 4 scalar MPI_LOCK_SHARED Param 1230 I(4) 4 scalar MPI_LOGICAL Param 1236 I(4) 4 scalar MPI_LONG Param 1306 I(4) 4 scalar MPI_LONG_DOUBLE Param 1314 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 1332 I(4) 4 scalar MPI_LONG_INT Param 1326 I(4) 4 scalar MPI_LONG_LONG Param 1320 I(4) 4 scalar Page 25 Source Listing EXCH1 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_LONG_INT Param 1316 I(4) 4 scalar MPI_LOR Param 1122 I(4) 4 scalar MPI_LXOR Param 1126 I(4) 4 scalar MPI_MAX Param 1110 I(4) 4 scalar MPI_MAXLOC Param 1132 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 1200 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 1188 I(4) 4 scalar MPI_MAX_INFO_KEY Param 1194 I(4) 4 scalar MPI_MAX_INFO_VAL Param 1196 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 1202 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 1192 I(4) 4 scalar MPI_MAX_PORT_NAME Param 1190 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 1198 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 1432 I(4) 4 scalar MPI_MESSAGE_NULL Param 1430 I(4) 4 scalar MPI_MIN Param 1112 I(4) 4 scalar MPI_MINLOC Param 1130 I(4) 4 scalar MPI_MODE_APPEND Param 1456 I(4) 4 scalar MPI_MODE_CREATE Param 1452 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 1448 I(4) 4 scalar MPI_MODE_EXCL Param 1454 I(4) 4 scalar MPI_MODE_NOCHECK Param 1418 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 1424 I(4) 4 scalar MPI_MODE_NOPUT Param 1422 I(4) 4 scalar MPI_MODE_NOSTORE Param 1420 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 1426 I(4) 4 scalar MPI_MODE_RDONLY Param 1442 I(4) 4 scalar MPI_MODE_RDWR Param 1444 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 1458 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 1450 I(4) 4 scalar MPI_MODE_WRONLY Param 1446 I(4) 4 scalar MPI_NO_OP Param 1136 I(4) 4 scalar MPI_NULL_COPY_FN Subr 1486 scalar MPI_NULL_DELETE_FN Subr 1486 scalar MPI_OFFSET Param 1362 I(4) 4 scalar MPI_OFFSET_KIND Param 1284 I(4) 4 scalar MPI_OP_NULL Param 1152 I(4) 4 scalar MPI_ORDER_C Param 1466 I(4) 4 scalar MPI_ORDER_FORTRAN Param 1468 I(4) 4 scalar MPI_PACKED Param 1258 I(4) 4 scalar MPI_PROC_NULL Param 1210 I(4) 4 scalar MPI_PROD Param 1116 I(4) 4 scalar MPI_REAL Param 1238 I(4) 4 scalar 1578 MPI_REAL16 Param 1274 I(4) 4 scalar MPI_REAL4 Param 1270 I(4) 4 scalar MPI_REAL8 Param 1272 I(4) 4 scalar MPI_REPLACE Param 1134 I(4) 4 scalar MPI_REQUEST_NULL Param 1156 I(4) 4 scalar MPI_ROOT Param 1216 I(4) 4 scalar MPI_SEEK_CUR Param 1462 I(4) 4 scalar MPI_SEEK_END Param 1464 I(4) 4 scalar MPI_SEEK_SET Param 1460 I(4) 4 scalar MPI_SHORT Param 1298 I(4) 4 scalar MPI_SHORT_INT Param 1328 I(4) 4 scalar Page 26 Source Listing EXCH1 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SIGNED_CHAR Param 1292 I(4) 4 scalar MPI_SIMILAR Param 1094 I(4) 4 scalar MPI_SOURCE Param 959 I(4) 4 scalar MPI_STATUS_SIZE Param 961 I(4) 4 scalar 963,964,1572 MPI_SUBARRAYS_SUPPORTED Param 1480 L(4) 4 scalar MPI_SUBVERSION Param 1226 I(4) 4 scalar MPI_SUCCESS Param 968 I(4) 4 scalar MPI_SUM Param 1114 I(4) 4 scalar MPI_TAG Param 959 I(4) 4 scalar MPI_TAG_UB Param 1164 I(4) 4 scalar MPI_THREAD_FUNNELED Param 1436 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 1440 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 1438 I(4) 4 scalar MPI_THREAD_SINGLE Param 1434 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 1416 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 1414 I(4) 4 scalar MPI_TYPECLASS_REAL Param 1412 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 1493 scalar MPI_TYPE_NULL_COPY_FN Subr 1494 scalar MPI_TYPE_NULL_DELETE_FN Subr 1493 scalar MPI_UB Param 1254 I(4) 4 scalar MPI_UINT16_T Param 1344 I(4) 4 scalar MPI_UINT32_T Param 1346 I(4) 4 scalar MPI_UINT64_T Param 1348 I(4) 4 scalar MPI_UINT8_T Param 1342 I(4) 4 scalar MPI_UNDEFINED Param 1204 I(4) 4 scalar MPI_UNEQUAL Param 1096 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 1172 I(4) 4 scalar MPI_UNSIGNED Param 1304 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 1294 I(4) 4 scalar MPI_UNSIGNED_LONG Param 1308 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 1318 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 1300 I(4) 4 scalar MPI_VERSION Param 1224 I(4) 4 scalar MPI_WAIT Subr 1654 1654,1673,1685,1689,1766,1785,1797 ,1801 MPI_WCHAR Param 1296 I(4) 4 scalar MPI_WIN_BASE Param 1178 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 1184 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 1182 I(4) 4 scalar MPI_WIN_DUP_FN Subr 1491 scalar MPI_WIN_FLAVOR_ALLOCATE Param 1100 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 1098 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 1102 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 1104 I(4) 4 scalar MPI_WIN_MODEL Param 1186 I(4) 4 scalar MPI_WIN_NULL Param 1146 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 1492 scalar MPI_WIN_NULL_DELETE_FN Subr 1491 scalar MPI_WIN_SEPARATE Param 1106 I(4) 4 scalar MPI_WIN_SIZE Param 1180 I(4) 4 scalar MPI_WIN_UNIFIED Param 1108 I(4) 4 scalar MPI_WTICK Func 1487 R(8) 8 scalar MPI_WTIME Func 1487 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 1170 I(4) 4 scalar Page 27 Source Listing EXCH1 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPPCOM Common 1514 1464 SAVE PMPI_WTICK Func 1488 R(8) 8 scalar PMPI_WTIME Func 1488 R(8) 8 scalar TEMPCOM Common 1555 6603768 SAVE TOPO Common 1563 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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:21 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 652 scalar COM 1594,1603,1623,1643,1706,1715,1735 ,1755 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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 1612,1632,1652,1671,1723,1724,1782 ,1783 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 1611,1631,1651,1670,1743,1744,1763 ,1764 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 1618,1678,1727,1747,1768,1787 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:21 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 1638,1659,1727,1747,1768,1787 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 1622,1642,1734,1754 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 1592,1593,1601,1602,1610,1622,1630 ,1642,1650,1669,1684,1688,1704,170 5,1713,1714,1722,1734,1742,1754,17 62,1781,1796,1800 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:21 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:21 module_EXCHM.F 1806 1807 SUBROUTINE EXCH01(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 1808 USE EXCH_BUF_REAL 1809 INCLUDE "parmeta" 1832 INCLUDE "mpif.h" 2394 INCLUDE "mpp.h" 2395 C----------------------------------------------------------------------- 2454 INTEGER ISTAT(MPI_STATUS_SIZE) 2455 INTEGER IHANDLE(4) 2456 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 2457 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 2458 C 2459 C*********************************************************************** 2460 C 2461 ITYPE=MPI_REAL 2462 C 2463 C-------------------------------------------------------------------- 2464 C-------------------------------------------------------------------- 2465 C*** 2466 C*** NORTH/SOUTH 2467 C*** 2468 C-------------------------------------------------------------------- 2469 C-------------------------------------------------------------------- 2470 C 2471 C-------------------------------------------------------------------- 2472 C RECEIVE FROM NORTH 2473 C-------------------------------------------------------------------- 2474 C 2475 IF(MY_NEB(1).GE.0)THEN 2476 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 2477 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 2478 ENDIF 2479 C 2480 C-------------------------------------------------------------------- 2481 C RECEIVE FROM SOUTH 2482 C-------------------------------------------------------------------- 2483 C 2484 IF(MY_NEB(3).GE.0)THEN 2485 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 2486 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 2487 ENDIF 2488 C 2489 C-------------------------------------------------------------------- 2490 C SEND TO NORTH 2491 C-------------------------------------------------------------------- 2492 C 2493 IF(MY_NEB(1).GE.0)THEN 2494 IBEG = MYIS-IHALO 2495 IEND = MYIE+IHALO 2496 IC = 0 2497 DO J=0,JHALO-1 2498 DO I=IBEG,IEND 2499 IC = IC + 1 2500 BUF2(IC)=ARR1(I,MYJE-J) 2501 ENDDO 2502 ENDDO 2503 DO K=1,LL2 Page 32 Source Listing EXCH01 2025-03-12 18:21 module_EXCHM.F 2504 DO J=0,JHALO-1 2505 DO I=IBEG,IEND 2506 IC = IC + 1 2507 BUF2(IC)=ARR2(I,MYJE-J,K) 2508 ENDDO 2509 ENDDO 2510 ENDDO 2511 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 2512 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 2513 ENDIF 2514 C 2515 C-------------------------------------------------------------------- 2516 C SEND TO SOUTH 2517 C-------------------------------------------------------------------- 2518 C 2519 IF(MY_NEB(3).GE.0)THEN 2520 IBEG = MYIS-IHALO 2521 IEND = MYIE+IHALO 2522 IC = 0 2523 DO J=0,JHALO-1 2524 DO I=IBEG,IEND 2525 IC = IC + 1 2526 BUF3(IC)=ARR1(I,MYJS+J) 2527 ENDDO 2528 ENDDO 2529 DO K=1,LL2 2530 DO J=0,JHALO-1 2531 DO I=IBEG,IEND 2532 IC = IC + 1 2533 BUF3(IC)=ARR2(I,MYJS+J,K) 2534 ENDDO 2535 ENDDO 2536 ENDDO 2537 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 2538 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 2539 ENDIF 2540 C 2541 C-------------------------------------------------------------------- 2542 C STORE RESULTS FROM SOUTH 2543 C-------------------------------------------------------------------- 2544 C 2545 IF(MY_NEB(3).GE.0)THEN 2546 IBEG = MYIS-IHALO 2547 IEND = MYIE+IHALO 2548 IC = 0 2549 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 2550 DO J=0,JHALO-1 2551 DO I=IBEG,IEND 2552 IC = IC + 1 2553 ARR1(I,MYJS-J-1)=BUF1(IC) 2554 ENDDO 2555 ENDDO 2556 DO K=1,LL2 2557 DO J=0,JHALO-1 2558 DO I=IBEG,IEND 2559 IC = IC + 1 2560 ARR2(I,MYJS-J-1,K)=BUF1(IC) Page 33 Source Listing EXCH01 2025-03-12 18:21 module_EXCHM.F 2561 ENDDO 2562 ENDDO 2563 ENDDO 2564 ENDIF 2565 C 2566 C-------------------------------------------------------------------- 2567 C STORE FROM NORTH 2568 C-------------------------------------------------------------------- 2569 C 2570 IF(MY_NEB(1).GE.0)THEN 2571 IBEG = MYIS-IHALO 2572 IEND = MYIE+IHALO 2573 IC = 0 2574 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 2575 DO J=0,JHALO-1 2576 DO I=IBEG,IEND 2577 IC = IC + 1 2578 ARR1(I,MYJE+J+1)=BUF0(IC) 2579 ENDDO 2580 ENDDO 2581 DO K=1,LL2 2582 DO J=0,JHALO-1 2583 DO I=IBEG,IEND 2584 IC = IC + 1 2585 ARR2(I,MYJE+J+1,K)=BUF0(IC) 2586 ENDDO 2587 ENDDO 2588 ENDDO 2589 ENDIF 2590 C 2591 IF(MY_NEB(1).GE.0)THEN 2592 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 2593 ENDIF 2594 C 2595 IF(MY_NEB(3).GE.0)THEN 2596 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 2597 ENDIF 2598 C 2599 C-------------------------------------------------------------------- 2600 C-------------------------------------------------------------------- 2601 C*** 2602 C*** EAST/WEST 2603 C*** 2604 C-------------------------------------------------------------------- 2605 C-------------------------------------------------------------------- 2606 C 2607 C-------------------------------------------------------------------- 2608 C RECEIVE FROM WEST 2609 C-------------------------------------------------------------------- 2610 C 2611 IF(MY_NEB(4).GE.0)THEN 2612 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 2613 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 2614 ENDIF 2615 C 2616 C-------------------------------------------------------------------- 2617 C RECEIVE FROM EAST Page 34 Source Listing EXCH01 2025-03-12 18:21 module_EXCHM.F 2618 C-------------------------------------------------------------------- 2619 C 2620 IF(MY_NEB(2).GE.0)THEN 2621 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 2622 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 2623 ENDIF 2624 C 2625 C-------------------------------------------------------------------- 2626 C SEND TO EAST 2627 C-------------------------------------------------------------------- 2628 C 2629 IF(MY_NEB(2).GE.0)THEN 2630 IBEG = MYIE-IHALO+1 2631 IEND = MYIE 2632 IC = 0 2633 DO J=MYJS-JHALO,MYJE+JHALO 2634 DO I=IBEG,IEND 2635 IC = IC + 1 2636 BUF2(IC)=ARR1(I,J) 2637 ENDDO 2638 ENDDO 2639 DO K=1,LL2 2640 DO J=MYJS-JHALO,MYJE+JHALO 2641 DO I=IBEG,IEND 2642 IC = IC + 1 2643 BUF2(IC)=ARR2(I,J,K) 2644 ENDDO 2645 ENDDO 2646 ENDDO 2647 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 2648 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 2649 ENDIF 2650 C 2651 C-------------------------------------------------------------------- 2652 C SEND TO WEST 2653 C-------------------------------------------------------------------- 2654 C 2655 IF(MY_NEB(4).GE.0)THEN 2656 IBEG = MYIS 2657 IEND = MYIS+IHALO-1 2658 IC = 0 2659 DO J=MYJS-JHALO,MYJE+JHALO 2660 DO I=IBEG,IEND 2661 IC = IC + 1 2662 BUF3(IC)=ARR1(I,J) 2663 ENDDO 2664 ENDDO 2665 DO K=1,LL2 2666 DO J=MYJS-JHALO,MYJE+JHALO 2667 DO I=IBEG,IEND 2668 IC = IC + 1 2669 BUF3(IC)=ARR2(I,J,K) 2670 ENDDO 2671 ENDDO 2672 ENDDO 2673 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 2674 1, MPI_COMM_COMP,IHANDLE(4),ISEND) Page 35 Source Listing EXCH01 2025-03-12 18:21 module_EXCHM.F 2675 ENDIF 2676 C 2677 C-------------------------------------------------------------------- 2678 C STORE FROM WEST 2679 C-------------------------------------------------------------------- 2680 C 2681 IF(MY_NEB(4).GE.0)THEN 2682 IBEG = MYIS-IHALO 2683 IEND = MYIS-1 2684 IC = 0 2685 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 2686 DO J=MYJS-JHALO,MYJE+JHALO 2687 DO I=IBEG,IEND 2688 IC = IC + 1 2689 ARR1(I,J)=BUF0(IC) 2690 ENDDO 2691 ENDDO 2692 DO K=1,LL2 2693 DO J=MYJS-JHALO,MYJE+JHALO 2694 DO I=IBEG,IEND 2695 IC = IC + 1 2696 ARR2(I,J,K)=BUF0(IC) 2697 ENDDO 2698 ENDDO 2699 ENDDO 2700 ENDIF 2701 C 2702 C-------------------------------------------------------------------- 2703 C STORE FROM EAST 2704 C-------------------------------------------------------------------- 2705 C 2706 IF(MY_NEB(2).GE.0)THEN 2707 IBEG = MYIE+1 2708 IEND = MYIE+IHALO 2709 IC = 0 2710 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 2711 DO J=MYJS-JHALO,MYJE+JHALO 2712 DO I=IBEG,IEND 2713 IC = IC + 1 2714 ARR1(I,J)=BUF1(IC) 2715 ENDDO 2716 ENDDO 2717 DO K=1,LL2 2718 DO J=MYJS-JHALO,MYJE+JHALO 2719 DO I=IBEG,IEND 2720 IC = IC + 1 2721 ARR2(I,J,K)=BUF1(IC) 2722 ENDDO 2723 ENDDO 2724 ENDDO 2725 ENDIF 2726 C 2727 IF(MY_NEB(4).GE.0)THEN 2728 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 2729 ENDIF 2730 C 2731 IF(MY_NEB(2).GE.0)THEN Page 36 Source Listing EXCH01 2025-03-12 18:21 module_EXCHM.F 2732 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 2733 ENDIF 2734 C 2735 C-------------------------------------------------------------------- 2736 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch01_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 1807 R(4) 4 2 17955 ARG,INOUT 2500,2526,2553,2578,2636,2662,2689 ,2714 ARR2 Dummy 1807 R(4) 4 3 0 ARG,INOUT 2507,2533,2560,2585,2643,2669,2696 ,2721 BUF0 Local 2476 R(4) 4 1 2500000 2476,2578,2585,2612,2689,2696 BUF1 Local 2485 R(4) 4 1 2500000 2485,2553,2560,2621,2714,2721 BUF2 Local 2500 R(4) 4 1 2500000 2500,2507,2511,2636,2643,2647 BUF3 Local 2526 R(4) 4 1 2500000 2526,2533,2537,2662,2669,2673 EXCH01 Subr 1807 EXCH_BUF_REAL Module 1808 1808 GLB_TABLE Common 2432 128 SAVE I Local 2498 I(4) 4 scalar 2498,2500,2505,2507,2524,2526,2531 ,2533,2551,2553,2558,2560,2576,257 8,2583,2585,2634,2636,2641,2643,26 60,2662,2667,2669,2687,2689,2694,2 696,2712,2714,2719,2721 IBEG Local 2494 I(4) 4 scalar 2494,2498,2505,2520,2524,2531,2546 ,2551,2558,2571,2576,2583,2630,263 4,2641,2656,2660,2667,2682,2687,26 94,2707,2712,2719 IBUFEXCH Param 2476 I(4) 4 scalar 2476,2485,2612,2621 IC Local 2496 I(4) 4 scalar 2496,2499,2500,2506,2507,2511,2522 ,2525,2526,2532,2533,2537,2548,255 2,2553,2559,2560,2573,2577,2578,25 84,2585,2632,2635,2636,2642,2643,2 647,2658,2661,2662,2668,2669,2673, 2684,2688,2689,2695,2696,2709,2713 ,2714,2720,2721 IDIM1 Param 1828 I(4) 4 scalar 2456,2457 IDIM2 Param 1828 I(4) 4 scalar 2456,2457 IEND Local 2495 I(4) 4 scalar 2495,2498,2505,2521,2524,2531,2547 ,2551,2558,2572,2576,2583,2631,263 4,2641,2657,2660,2667,2683,2687,26 94,2708,2712,2719 IERR Local 2549 I(4) 4 scalar 2549,2574,2592,2596,2685,2710,2728 ,2732 IGSTL Param 1823 I(4) 4 scalar 1828 IGSTR Param 1823 I(4) 4 scalar 1828 IHALO Dummy 1807 I(4) 4 scalar ARG,INOUT 2494,2495,2520,2521,2546,2547,2571 Page 37 Source Listing EXCH01 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,2572,2630,2657,2682,2708 IHANDLE Local 2455 I(4) 4 1 4 2477,2486,2512,2538,2549,2574,2592 ,2596,2613,2622,2648,2674,2685,271 0,2728,2732 IM Param 1812 I(4) 4 scalar 1825,1828,2438,2439,2440,2441,2442 ,2446,2447,2452 INPES Param 1820 I(4) 4 scalar 1825,1828,2422,2423,2424,2433,2434 IRECV Local 2477 I(4) 4 scalar 2477,2486,2613,2622 ISEND Local 2512 I(4) 4 scalar 2512,2538,2648,2674 ISTAT Local 2454 I(4) 4 1 5 2549,2574,2592,2596,2685,2710,2728 ,2732 ITAIL Param 1825 I(4) 4 scalar ITYPE Local 2461 I(4) 4 scalar 2461,2476,2485,2511,2537,2612,2621 ,2647,2673 J Local 2497 I(4) 4 scalar 2497,2500,2504,2507,2523,2526,2530 ,2533,2550,2553,2557,2560,2575,257 8,2582,2585,2633,2636,2640,2643,26 59,2662,2666,2669,2686,2689,2693,2 696,2711,2714,2718,2721 JDIM1 Param 1829 I(4) 4 scalar 2456,2457 JDIM2 Param 1829 I(4) 4 scalar 2456,2457 JGSTL Param 1824 I(4) 4 scalar 1829 JGSTR Param 1824 I(4) 4 scalar 1829 JHALO Dummy 1807 I(4) 4 scalar ARG,INOUT 2497,2504,2523,2530,2550,2557,2575 ,2582,2633,2640,2659,2666,2686,269 3,2711,2718 JM Param 1812 I(4) 4 scalar 1826,1829,2438,2439,2440,2441,2442 ,2446,2447,2452 JNPES Param 1820 I(4) 4 scalar 1826,1829,2422,2423,2424,2433,2434 JTAIL Param 1826 I(4) 4 scalar K Local 2503 I(4) 4 scalar 2503,2507,2529,2533,2556,2560,2581 ,2585,2639,2643,2665,2669,2692,269 6,2717,2721 LL1 Dummy 1807 I(4) 4 scalar ARG,INOUT LL2 Dummy 1807 I(4) 4 scalar ARG,INOUT 2503,2529,2556,2581,2639,2665,2692 ,2717 LM Param 1812 I(4) 4 scalar 2447 LSM Param 1812 I(4) 4 scalar MAPPINGS Common 2451 5024 SAVE MPIFCMB5 Common 2382 4 SAVE MPIFCMB9 Common 2383 4 SAVE MPIPRIV1 Common 2387 28 SAVE MPIPRIV2 Common 2389 24 SAVE MPIPRIVC Common 2392 2 SAVE MPI_2DOUBLE_PRECISION Param 2128 I(4) 4 scalar MPI_2INT Param 2212 I(4) 4 scalar MPI_2INTEGER Param 2126 I(4) 4 scalar MPI_2REAL Param 2130 I(4) 4 scalar MPI_ADDRESS_KIND Param 2164 I(4) 4 scalar MPI_AINT Param 2242 I(4) 4 scalar MPI_ANY_SOURCE Param 2094 I(4) 4 scalar MPI_ANY_TAG Param 2096 I(4) 4 scalar MPI_APPNUM Param 2058 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 2364 L(4) 4 scalar Page 38 Source Listing EXCH01 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BAND Param 2002 I(4) 4 scalar MPI_BOR Param 2006 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 2090 I(4) 4 scalar MPI_BXOR Param 2010 I(4) 4 scalar MPI_BYTE Param 2134 I(4) 4 scalar MPI_CART Param 2102 I(4) 4 scalar MPI_CHAR Param 2172 I(4) 4 scalar MPI_CHARACTER Param 2132 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 2260 I(4) 4 scalar MPI_COMBINER_DARRAY Param 2282 I(4) 4 scalar MPI_COMBINER_DUP Param 2258 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 2286 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 2288 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 2284 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 2272 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 2292 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 2270 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 2266 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 2264 I(4) 4 scalar MPI_COMBINER_INDEXED Param 2268 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 2274 I(4) 4 scalar MPI_COMBINER_NAMED Param 2256 I(4) 4 scalar MPI_COMBINER_RESIZED Param 2290 I(4) 4 scalar MPI_COMBINER_STRUCT Param 2278 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 2276 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 2280 I(4) 4 scalar MPI_COMBINER_VECTOR Param 2262 I(4) 4 scalar MPI_COMM_DUP_FN Subr 2371 scalar MPI_COMM_NULL Param 2026 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 2372 scalar MPI_COMM_NULL_DELETE_FN Subr 2371 scalar MPI_COMM_SELF Param 2022 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 2310 I(4) 4 scalar MPI_COMM_WORLD Param 2020 I(4) 4 scalar MPI_COMPLEX Param 2114 I(4) 4 scalar MPI_COMPLEX16 Param 2160 I(4) 4 scalar MPI_COMPLEX32 Param 2162 I(4) 4 scalar MPI_COMPLEX8 Param 2158 I(4) 4 scalar MPI_CONGRUENT Param 1974 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 2377 scalar MPI_COUNT Param 2246 I(4) 4 scalar MPI_COUNT_KIND Param 2168 I(4) 4 scalar MPI_CXX_BOOL Param 2248 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 2252 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 2250 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 2254 I(4) 4 scalar MPI_C_BOOL Param 2232 I(4) 4 scalar MPI_C_COMPLEX Param 2236 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 2238 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 2234 I(4) 4 scalar Page 39 Source Listing EXCH01 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_C_LONG_DOUBLE_COMPLEX Param 2240 I(4) 4 scalar MPI_DATATYPE_NULL Param 2036 I(4) 4 scalar 2151,2249,2251,2253,2255 MPI_DISPLACEMENT_CURRENT Param 2360 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 2352 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 2354 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 2358 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 2356 I(4) 4 scalar MPI_DIST_GRAPH Param 2104 I(4) 4 scalar MPI_DOUBLE Param 2194 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 2116 I(4) 4 scalar MPI_DOUBLE_INT Param 2206 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 2122 I(4) 4 scalar MPI_DUP_FN Subr 2368 scalar MPI_ERRHANDLER_NULL Param 2040 I(4) 4 scalar MPI_ERROR Param 1841 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 1968 I(4) 4 scalar MPI_ERRORS_RETURN Param 1970 I(4) 4 scalar MPI_ERR_ACCESS Param 1960 I(4) 4 scalar MPI_ERR_AMODE Param 1946 I(4) 4 scalar MPI_ERR_ARG Param 1916 I(4) 4 scalar MPI_ERR_ASSERT Param 1922 I(4) 4 scalar MPI_ERR_BAD_FILE Param 1884 I(4) 4 scalar MPI_ERR_BASE Param 1914 I(4) 4 scalar MPI_ERR_BUFFER Param 1856 I(4) 4 scalar MPI_ERR_COMM Param 1934 I(4) 4 scalar MPI_ERR_CONVERSION Param 1950 I(4) 4 scalar MPI_ERR_COUNT Param 1860 I(4) 4 scalar MPI_ERR_DIMS Param 1898 I(4) 4 scalar MPI_ERR_DISP Param 1882 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 1864 I(4) 4 scalar MPI_ERR_FILE Param 1894 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 1876 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 1918 I(4) 4 scalar MPI_ERR_GROUP Param 1880 I(4) 4 scalar MPI_ERR_INFO Param 1908 I(4) 4 scalar MPI_ERR_INFO_KEY Param 1912 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 1892 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 1878 I(4) 4 scalar MPI_ERR_INTERN Param 1910 I(4) 4 scalar MPI_ERR_IN_STATUS Param 1896 I(4) 4 scalar MPI_ERR_IO Param 1956 I(4) 4 scalar MPI_ERR_KEYVAL Param 1902 I(4) 4 scalar MPI_ERR_LASTCODE Param 1924 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 1906 I(4) 4 scalar MPI_ERR_NAME Param 1900 I(4) 4 scalar MPI_ERR_NOT_SAME Param 1928 I(4) 4 scalar MPI_ERR_NO_MEM Param 1920 I(4) 4 scalar MPI_ERR_NO_SPACE Param 1852 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 1936 I(4) 4 scalar MPI_ERR_OP Param 1954 I(4) 4 scalar MPI_ERR_OTHER Param 1868 I(4) 4 scalar MPI_ERR_PENDING Param 1858 I(4) 4 scalar MPI_ERR_PORT Param 1940 I(4) 4 scalar MPI_ERR_QUOTA Param 1944 I(4) 4 scalar MPI_ERR_RANK Param 1866 I(4) 4 scalar Page 40 Source Listing EXCH01 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_READ_ONLY Param 1904 I(4) 4 scalar MPI_ERR_REQUEST Param 1948 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 1870 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 1874 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 1890 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 1952 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 1942 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 1854 I(4) 4 scalar MPI_ERR_ROOT Param 1886 I(4) 4 scalar MPI_ERR_SERVICE Param 1862 I(4) 4 scalar MPI_ERR_SIZE Param 1872 I(4) 4 scalar MPI_ERR_SPAWN Param 1932 I(4) 4 scalar MPI_ERR_TAG Param 1962 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 1966 I(4) 4 scalar MPI_ERR_TRUNCATE Param 1926 I(4) 4 scalar MPI_ERR_TYPE Param 1930 I(4) 4 scalar MPI_ERR_UNKNOWN Param 1964 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 1888 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 1938 I(4) 4 scalar MPI_ERR_WIN Param 1958 I(4) 4 scalar MPI_FILE_NULL Param 2030 I(4) 4 scalar MPI_FLOAT Param 2192 I(4) 4 scalar MPI_FLOAT_INT Param 2204 I(4) 4 scalar MPI_GRAPH Param 2100 I(4) 4 scalar MPI_GROUP_EMPTY Param 2024 I(4) 4 scalar MPI_GROUP_NULL Param 2032 I(4) 4 scalar MPI_HOST Param 2048 I(4) 4 scalar MPI_IDENT Param 1972 I(4) 4 scalar MPI_INFO_ENV Param 2044 I(4) 4 scalar MPI_INFO_NULL Param 2042 I(4) 4 scalar MPI_INT Param 2184 I(4) 4 scalar MPI_INT16_T Param 2218 I(4) 4 scalar MPI_INT32_T Param 2220 I(4) 4 scalar MPI_INT64_T Param 2222 I(4) 4 scalar MPI_INT8_T Param 2216 I(4) 4 scalar MPI_INTEGER Param 2124 I(4) 4 scalar MPI_INTEGER1 Param 2142 I(4) 4 scalar MPI_INTEGER16 Param 2150 I(4) 4 scalar MPI_INTEGER2 Param 2144 I(4) 4 scalar MPI_INTEGER4 Param 2146 I(4) 4 scalar MPI_INTEGER8 Param 2148 I(4) 4 scalar MPI_INTEGER_KIND Param 2170 I(4) 4 scalar MPI_IO Param 2050 I(4) 4 scalar MPI_IRECV Subr 2476 2476,2485,2612,2621 MPI_ISEND Subr 2511 2511,2537,2647,2673 MPI_KEYVAL_INVALID Param 2088 I(4) 4 scalar MPI_LAND Param 2000 I(4) 4 scalar MPI_LASTUSEDCODE Param 2056 I(4) 4 scalar MPI_LB Param 2138 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 2110 I(4) 4 scalar MPI_LOCK_SHARED Param 2112 I(4) 4 scalar MPI_LOGICAL Param 2118 I(4) 4 scalar MPI_LONG Param 2188 I(4) 4 scalar Page 41 Source Listing EXCH01 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_DOUBLE Param 2196 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 2214 I(4) 4 scalar MPI_LONG_INT Param 2208 I(4) 4 scalar MPI_LONG_LONG Param 2202 I(4) 4 scalar MPI_LONG_LONG_INT Param 2198 I(4) 4 scalar MPI_LOR Param 2004 I(4) 4 scalar MPI_LXOR Param 2008 I(4) 4 scalar MPI_MAX Param 1992 I(4) 4 scalar MPI_MAXLOC Param 2014 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 2082 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 2070 I(4) 4 scalar MPI_MAX_INFO_KEY Param 2076 I(4) 4 scalar MPI_MAX_INFO_VAL Param 2078 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 2084 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 2074 I(4) 4 scalar MPI_MAX_PORT_NAME Param 2072 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 2080 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 2314 I(4) 4 scalar MPI_MESSAGE_NULL Param 2312 I(4) 4 scalar MPI_MIN Param 1994 I(4) 4 scalar MPI_MINLOC Param 2012 I(4) 4 scalar MPI_MODE_APPEND Param 2338 I(4) 4 scalar MPI_MODE_CREATE Param 2334 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 2330 I(4) 4 scalar MPI_MODE_EXCL Param 2336 I(4) 4 scalar MPI_MODE_NOCHECK Param 2300 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 2306 I(4) 4 scalar MPI_MODE_NOPUT Param 2304 I(4) 4 scalar MPI_MODE_NOSTORE Param 2302 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 2308 I(4) 4 scalar MPI_MODE_RDONLY Param 2324 I(4) 4 scalar MPI_MODE_RDWR Param 2326 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 2340 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 2332 I(4) 4 scalar MPI_MODE_WRONLY Param 2328 I(4) 4 scalar MPI_NO_OP Param 2018 I(4) 4 scalar MPI_NULL_COPY_FN Subr 2368 scalar MPI_NULL_DELETE_FN Subr 2368 scalar MPI_OFFSET Param 2244 I(4) 4 scalar MPI_OFFSET_KIND Param 2166 I(4) 4 scalar MPI_OP_NULL Param 2034 I(4) 4 scalar MPI_ORDER_C Param 2348 I(4) 4 scalar MPI_ORDER_FORTRAN Param 2350 I(4) 4 scalar MPI_PACKED Param 2140 I(4) 4 scalar MPI_PROC_NULL Param 2092 I(4) 4 scalar MPI_PROD Param 1998 I(4) 4 scalar MPI_REAL Param 2120 I(4) 4 scalar 2461 MPI_REAL16 Param 2156 I(4) 4 scalar MPI_REAL4 Param 2152 I(4) 4 scalar MPI_REAL8 Param 2154 I(4) 4 scalar MPI_REPLACE Param 2016 I(4) 4 scalar MPI_REQUEST_NULL Param 2038 I(4) 4 scalar MPI_ROOT Param 2098 I(4) 4 scalar MPI_SEEK_CUR Param 2344 I(4) 4 scalar Page 42 Source Listing EXCH01 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SEEK_END Param 2346 I(4) 4 scalar MPI_SEEK_SET Param 2342 I(4) 4 scalar MPI_SHORT Param 2180 I(4) 4 scalar MPI_SHORT_INT Param 2210 I(4) 4 scalar MPI_SIGNED_CHAR Param 2174 I(4) 4 scalar MPI_SIMILAR Param 1976 I(4) 4 scalar MPI_SOURCE Param 1841 I(4) 4 scalar MPI_STATUS_SIZE Param 1843 I(4) 4 scalar 1845,1846,2454 MPI_SUBARRAYS_SUPPORTED Param 2362 L(4) 4 scalar MPI_SUBVERSION Param 2108 I(4) 4 scalar MPI_SUCCESS Param 1850 I(4) 4 scalar MPI_SUM Param 1996 I(4) 4 scalar MPI_TAG Param 1841 I(4) 4 scalar MPI_TAG_UB Param 2046 I(4) 4 scalar MPI_THREAD_FUNNELED Param 2318 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 2322 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 2320 I(4) 4 scalar MPI_THREAD_SINGLE Param 2316 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 2298 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 2296 I(4) 4 scalar MPI_TYPECLASS_REAL Param 2294 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 2375 scalar MPI_TYPE_NULL_COPY_FN Subr 2376 scalar MPI_TYPE_NULL_DELETE_FN Subr 2375 scalar MPI_UB Param 2136 I(4) 4 scalar MPI_UINT16_T Param 2226 I(4) 4 scalar MPI_UINT32_T Param 2228 I(4) 4 scalar MPI_UINT64_T Param 2230 I(4) 4 scalar MPI_UINT8_T Param 2224 I(4) 4 scalar MPI_UNDEFINED Param 2086 I(4) 4 scalar MPI_UNEQUAL Param 1978 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 2054 I(4) 4 scalar MPI_UNSIGNED Param 2186 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 2176 I(4) 4 scalar MPI_UNSIGNED_LONG Param 2190 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 2200 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 2182 I(4) 4 scalar MPI_VERSION Param 2106 I(4) 4 scalar MPI_WAIT Subr 2549 2549,2574,2592,2596,2685,2710,2728 ,2732 MPI_WCHAR Param 2178 I(4) 4 scalar MPI_WIN_BASE Param 2060 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 2066 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 2064 I(4) 4 scalar MPI_WIN_DUP_FN Subr 2373 scalar MPI_WIN_FLAVOR_ALLOCATE Param 1982 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 1980 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 1984 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 1986 I(4) 4 scalar MPI_WIN_MODEL Param 2068 I(4) 4 scalar MPI_WIN_NULL Param 2028 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 2374 scalar MPI_WIN_NULL_DELETE_FN Subr 2373 scalar MPI_WIN_SEPARATE Param 1988 I(4) 4 scalar MPI_WIN_SIZE Param 2062 I(4) 4 scalar Page 43 Source Listing EXCH01 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_UNIFIED Param 1990 I(4) 4 scalar MPI_WTICK Func 2369 R(8) 8 scalar MPI_WTIME Func 2369 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 2052 I(4) 4 scalar MPPCOM Common 2396 1464 SAVE PMPI_WTICK Func 2370 R(8) 8 scalar PMPI_WTIME Func 2370 R(8) 8 scalar TEMPCOM Common 2437 6603768 SAVE TOPO Common 2445 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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:21 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 652 scalar COM 2477,2486,2512,2538,2613,2622,2648 ,2674 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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 2495,2521,2547,2572,2630,2631,2707 ,2708 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 2494,2520,2546,2571,2656,2657,2682 ,2683 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 2500,2507,2578,2585,2633,2640,2659 ,2666,2686,2693,2711,2718 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:21 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 2526,2533,2553,2560,2633,2640,2659 ,2666,2686,2693,2711,2718 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 2511,2537,2647,2673 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 2475,2476,2484,2485,2493,2511,2519 ,2537,2545,2570,2591,2595,2611,261 2,2620,2621,2629,2647,2655,2673,26 81,2706,2727,2731 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:21 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:21 module_EXCHM.F 2737 2738 SUBROUTINE EXCH00(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 2739 USE EXCH_BUF_REAL 2740 INCLUDE "parmeta" 2763 INCLUDE "mpif.h" 3325 INCLUDE "mpp.h" 3326 C----------------------------------------------------------------------- 3385 INTEGER ISTAT(MPI_STATUS_SIZE) 3386 INTEGER IHANDLE(4) 3387 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 3388 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2) 3389 C 3390 C*********************************************************************** 3391 C 3392 ITYPE=MPI_REAL 3393 C 3394 C-------------------------------------------------------------------- 3395 C-------------------------------------------------------------------- 3396 C*** 3397 C*** NORTH/SOUTH 3398 C*** 3399 C-------------------------------------------------------------------- 3400 C-------------------------------------------------------------------- 3401 C 3402 C-------------------------------------------------------------------- 3403 C RECEIVE FROM NORTH 3404 C-------------------------------------------------------------------- 3405 C 3406 IF(MY_NEB(1).GE.0)THEN 3407 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 3408 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 3409 ENDIF 3410 C 3411 C-------------------------------------------------------------------- 3412 C RECEIVE FROM SOUTH 3413 C-------------------------------------------------------------------- 3414 C 3415 IF(MY_NEB(3).GE.0)THEN 3416 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 3417 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 3418 ENDIF 3419 C 3420 C-------------------------------------------------------------------- 3421 C SEND TO NORTH 3422 C-------------------------------------------------------------------- 3423 C 3424 IF(MY_NEB(1).GE.0)THEN 3425 IBEG=MYIS-IHALO 3426 IEND=MYIE+IHALO 3427 IC = 0 3428 DO J=0,JHALO-1 3429 DO I=IBEG,IEND 3430 IC = IC + 1 3431 BUF2(IC)=ARR1(I,MYJE-J) 3432 ENDDO 3433 ENDDO 3434 DO J=0,JHALO-1 Page 48 Source Listing EXCH00 2025-03-12 18:21 module_EXCHM.F 3435 DO I=IBEG,IEND 3436 IC = IC + 1 3437 BUF2(IC)=ARR2(I,MYJE-J) 3438 ENDDO 3439 ENDDO 3440 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 3441 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 3442 ENDIF 3443 C 3444 C-------------------------------------------------------------------- 3445 C SEND TO SOUTH 3446 C-------------------------------------------------------------------- 3447 C 3448 IF(MY_NEB(3).GE.0)THEN 3449 IBEG=MYIS-IHALO 3450 IEND=MYIE+IHALO 3451 IC = 0 3452 DO J=0,JHALO-1 3453 DO I=IBEG,IEND 3454 IC = IC + 1 3455 BUF3(IC)=ARR1(I,MYJS+J) 3456 ENDDO 3457 ENDDO 3458 DO J=0,JHALO-1 3459 DO I=IBEG,IEND 3460 IC = IC + 1 3461 BUF3(IC)=ARR2(I,MYJS+J) 3462 ENDDO 3463 ENDDO 3464 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 3465 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 3466 ENDIF 3467 C 3468 C-------------------------------------------------------------------- 3469 C STORE RESULTS FROM SOUTH 3470 C-------------------------------------------------------------------- 3471 C 3472 IF(MY_NEB(3).GE.0)THEN 3473 IBEG=MYIS-IHALO 3474 IEND=MYIE+IHALO 3475 IC = 0 3476 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 3477 DO J=0,JHALO-1 3478 DO I=IBEG,IEND 3479 IC = IC + 1 3480 ARR1(I,MYJS-J-1)=BUF1(IC) 3481 ENDDO 3482 ENDDO 3483 DO J=0,JHALO-1 3484 DO I=IBEG,IEND 3485 IC = IC + 1 3486 ARR2(I,MYJS-J-1)=BUF1(IC) 3487 ENDDO 3488 ENDDO 3489 ENDIF 3490 C 3491 C-------------------------------------------------------------------- Page 49 Source Listing EXCH00 2025-03-12 18:21 module_EXCHM.F 3492 C STORE FROM NORTH 3493 C-------------------------------------------------------------------- 3494 C 3495 IF(MY_NEB(1).GE.0)THEN 3496 IBEG=MYIS-IHALO 3497 IEND=MYIE+IHALO 3498 IC = 0 3499 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 3500 DO J=0,JHALO-1 3501 DO I=IBEG,IEND 3502 IC = IC + 1 3503 ARR1(I,MYJE+J+1)=BUF0(IC) 3504 ENDDO 3505 ENDDO 3506 DO J=0,JHALO-1 3507 DO I=IBEG,IEND 3508 IC = IC + 1 3509 ARR2(I,MYJE+J+1)=BUF0(IC) 3510 ENDDO 3511 ENDDO 3512 ENDIF 3513 C 3514 IF(MY_NEB(1).GE.0)THEN 3515 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 3516 ENDIF 3517 C 3518 IF(MY_NEB(3).GE.0)THEN 3519 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 3520 ENDIF 3521 C 3522 C-------------------------------------------------------------------- 3523 C-------------------------------------------------------------------- 3524 C*** 3525 C*** EAST/WEST 3526 C*** 3527 C-------------------------------------------------------------------- 3528 C-------------------------------------------------------------------- 3529 C 3530 C-------------------------------------------------------------------- 3531 C RECEIVE FROM WEST 3532 C-------------------------------------------------------------------- 3533 C 3534 IF(MY_NEB(4).GE.0)THEN 3535 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 3536 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 3537 ENDIF 3538 C 3539 C-------------------------------------------------------------------- 3540 C RECEIVE FROM EAST 3541 C-------------------------------------------------------------------- 3542 C 3543 IF(MY_NEB(2).GE.0)THEN 3544 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 3545 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 3546 ENDIF 3547 C 3548 C-------------------------------------------------------------------- Page 50 Source Listing EXCH00 2025-03-12 18:21 module_EXCHM.F 3549 C SEND TO EAST 3550 C-------------------------------------------------------------------- 3551 C 3552 IF(MY_NEB(2).GE.0)THEN 3553 IBEG=MYIE-IHALO+1 3554 IEND=MYIE 3555 IC = 0 3556 DO J=MYJS-JHALO,MYJE+JHALO 3557 DO I=IBEG,IEND 3558 IC = IC + 1 3559 BUF2(IC)=ARR1(I,J) 3560 ENDDO 3561 ENDDO 3562 DO J=MYJS-JHALO,MYJE+JHALO 3563 DO I=IBEG,IEND 3564 IC = IC + 1 3565 BUF2(IC)=ARR2(I,J) 3566 ENDDO 3567 ENDDO 3568 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 3569 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 3570 ENDIF 3571 C 3572 C-------------------------------------------------------------------- 3573 C SEND TO WEST 3574 C-------------------------------------------------------------------- 3575 C 3576 IF(MY_NEB(4).GE.0)THEN 3577 IBEG=MYIS 3578 IEND=MYIS+IHALO-1 3579 IC = 0 3580 DO J=MYJS-JHALO,MYJE+JHALO 3581 DO I=IBEG,IEND 3582 IC = IC + 1 3583 BUF3(IC)=ARR1(I,J) 3584 ENDDO 3585 ENDDO 3586 DO J=MYJS-JHALO,MYJE+JHALO 3587 DO I=IBEG,IEND 3588 IC = IC + 1 3589 BUF3(IC)=ARR2(I,J) 3590 ENDDO 3591 ENDDO 3592 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 3593 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 3594 ENDIF 3595 C 3596 C-------------------------------------------------------------------- 3597 C STORE FROM WEST 3598 C-------------------------------------------------------------------- 3599 C 3600 IF(MY_NEB(4).GE.0)THEN 3601 IBEG=MYIS-IHALO 3602 IEND=MYIS-1 3603 IC = 0 3604 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 3605 DO J=MYJS-JHALO,MYJE+JHALO Page 51 Source Listing EXCH00 2025-03-12 18:21 module_EXCHM.F 3606 DO I=IBEG,IEND 3607 IC = IC + 1 3608 ARR1(I,J)=BUF0(IC) 3609 ENDDO 3610 ENDDO 3611 DO J=MYJS-JHALO,MYJE+JHALO 3612 DO I=IBEG,IEND 3613 IC = IC + 1 3614 ARR2(I,J)=BUF0(IC) 3615 ENDDO 3616 ENDDO 3617 ENDIF 3618 C 3619 C-------------------------------------------------------------------- 3620 C STORE FROM EAST 3621 C-------------------------------------------------------------------- 3622 C 3623 IF(MY_NEB(2).GE.0)THEN 3624 IBEG=MYIE+1 3625 IEND=MYIE+IHALO 3626 IC = 0 3627 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 3628 DO J=MYJS-JHALO,MYJE+JHALO 3629 DO I=IBEG,IEND 3630 IC = IC + 1 3631 ARR1(I,J)=BUF1(IC) 3632 ENDDO 3633 ENDDO 3634 DO J=MYJS-JHALO,MYJE+JHALO 3635 DO I=IBEG,IEND 3636 IC = IC + 1 3637 ARR2(I,J)=BUF1(IC) 3638 ENDDO 3639 ENDDO 3640 ENDIF 3641 C 3642 IF(MY_NEB(4).GE.0)THEN 3643 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 3644 ENDIF 3645 C 3646 IF(MY_NEB(2).GE.0)THEN 3647 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 3648 ENDIF 3649 C 3650 C-------------------------------------------------------------------- 3651 END SUBROUTINE Page 52 Source Listing EXCH00 2025-03-12 18:21 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 2738 R(4) 4 2 17955 ARG,INOUT 3431,3455,3480,3503,3559,3583,3608 ,3631 ARR2 Dummy 2738 R(4) 4 2 17955 ARG,INOUT 3437,3461,3486,3509,3565,3589,3614 ,3637 BUF0 Local 3407 R(4) 4 1 2500000 3407,3503,3509,3535,3608,3614 BUF1 Local 3416 R(4) 4 1 2500000 3416,3480,3486,3544,3631,3637 BUF2 Local 3431 R(4) 4 1 2500000 3431,3437,3440,3559,3565,3568 BUF3 Local 3455 R(4) 4 1 2500000 3455,3461,3464,3583,3589,3592 EXCH00 Subr 2738 EXCH_BUF_REAL Module 2739 2739 GLB_TABLE Common 3363 128 SAVE I Local 3429 I(4) 4 scalar 3429,3431,3435,3437,3453,3455,3459 ,3461,3478,3480,3484,3486,3501,350 3,3507,3509,3557,3559,3563,3565,35 81,3583,3587,3589,3606,3608,3612,3 614,3629,3631,3635,3637 IBEG Local 3425 I(4) 4 scalar 3425,3429,3435,3449,3453,3459,3473 ,3478,3484,3496,3501,3507,3553,355 7,3563,3577,3581,3587,3601,3606,36 12,3624,3629,3635 IBUFEXCH Param 3407 I(4) 4 scalar 3407,3416,3535,3544 IC Local 3427 I(4) 4 scalar 3427,3430,3431,3436,3437,3440,3451 ,3454,3455,3460,3461,3464,3475,347 9,3480,3485,3486,3498,3502,3503,35 08,3509,3555,3558,3559,3564,3565,3 568,3579,3582,3583,3588,3589,3592, 3603,3607,3608,3613,3614,3626,3630 ,3631,3636,3637 IDIM1 Param 2759 I(4) 4 scalar 3387,3388 IDIM2 Param 2759 I(4) 4 scalar 3387,3388 IEND Local 3426 I(4) 4 scalar 3426,3429,3435,3450,3453,3459,3474 ,3478,3484,3497,3501,3507,3554,355 7,3563,3578,3581,3587,3602,3606,36 12,3625,3629,3635 IERR Local 3476 I(4) 4 scalar 3476,3499,3515,3519,3604,3627,3643 ,3647 IGSTL Param 2754 I(4) 4 scalar 2759 IGSTR Param 2754 I(4) 4 scalar 2759 IHALO Dummy 2738 I(4) 4 scalar ARG,INOUT 3425,3426,3449,3450,3473,3474,3496 ,3497,3553,3578,3601,3625 IHANDLE Local 3386 I(4) 4 1 4 3408,3417,3441,3465,3476,3499,3515 ,3519,3536,3545,3569,3593,3604,362 7,3643,3647 IM Param 2743 I(4) 4 scalar 2756,2759,3369,3370,3371,3372,3373 Page 53 Source Listing EXCH00 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,3377,3378,3383 INPES Param 2751 I(4) 4 scalar 2756,2759,3353,3354,3355,3364,3365 IRECV Local 3408 I(4) 4 scalar 3408,3417,3536,3545 ISEND Local 3441 I(4) 4 scalar 3441,3465,3569,3593 ISTAT Local 3385 I(4) 4 1 5 3476,3499,3515,3519,3604,3627,3643 ,3647 ITAIL Param 2756 I(4) 4 scalar ITYPE Local 3392 I(4) 4 scalar 3392,3407,3416,3440,3464,3535,3544 ,3568,3592 J Local 3428 I(4) 4 scalar 3428,3431,3434,3437,3452,3455,3458 ,3461,3477,3480,3483,3486,3500,350 3,3506,3509,3556,3559,3562,3565,35 80,3583,3586,3589,3605,3608,3611,3 614,3628,3631,3634,3637 JDIM1 Param 2760 I(4) 4 scalar 3387,3388 JDIM2 Param 2760 I(4) 4 scalar 3387,3388 JGSTL Param 2755 I(4) 4 scalar 2760 JGSTR Param 2755 I(4) 4 scalar 2760 JHALO Dummy 2738 I(4) 4 scalar ARG,INOUT 3428,3434,3452,3458,3477,3483,3500 ,3506,3556,3562,3580,3586,3605,361 1,3628,3634 JM Param 2743 I(4) 4 scalar 2757,2760,3369,3370,3371,3372,3373 ,3377,3378,3383 JNPES Param 2751 I(4) 4 scalar 2757,2760,3353,3354,3355,3364,3365 JTAIL Param 2757 I(4) 4 scalar LL1 Dummy 2738 I(4) 4 scalar ARG,INOUT LL2 Dummy 2738 I(4) 4 scalar ARG,INOUT LM Param 2743 I(4) 4 scalar 3378 LSM Param 2743 I(4) 4 scalar MAPPINGS Common 3382 5024 SAVE MPIFCMB5 Common 3313 4 SAVE MPIFCMB9 Common 3314 4 SAVE MPIPRIV1 Common 3318 28 SAVE MPIPRIV2 Common 3320 24 SAVE MPIPRIVC Common 3323 2 SAVE MPI_2DOUBLE_PRECISION Param 3059 I(4) 4 scalar MPI_2INT Param 3143 I(4) 4 scalar MPI_2INTEGER Param 3057 I(4) 4 scalar MPI_2REAL Param 3061 I(4) 4 scalar MPI_ADDRESS_KIND Param 3095 I(4) 4 scalar MPI_AINT Param 3173 I(4) 4 scalar MPI_ANY_SOURCE Param 3025 I(4) 4 scalar MPI_ANY_TAG Param 3027 I(4) 4 scalar MPI_APPNUM Param 2989 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 3295 L(4) 4 scalar MPI_BAND Param 2933 I(4) 4 scalar MPI_BOR Param 2937 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 3021 I(4) 4 scalar MPI_BXOR Param 2941 I(4) 4 scalar MPI_BYTE Param 3065 I(4) 4 scalar MPI_CART Param 3033 I(4) 4 scalar MPI_CHAR Param 3103 I(4) 4 scalar MPI_CHARACTER Param 3063 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 3191 I(4) 4 scalar Page 54 Source Listing EXCH00 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_DARRAY Param 3213 I(4) 4 scalar MPI_COMBINER_DUP Param 3189 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 3217 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 3219 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 3215 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 3203 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 3223 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 3201 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 3197 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 3195 I(4) 4 scalar MPI_COMBINER_INDEXED Param 3199 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 3205 I(4) 4 scalar MPI_COMBINER_NAMED Param 3187 I(4) 4 scalar MPI_COMBINER_RESIZED Param 3221 I(4) 4 scalar MPI_COMBINER_STRUCT Param 3209 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 3207 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 3211 I(4) 4 scalar MPI_COMBINER_VECTOR Param 3193 I(4) 4 scalar MPI_COMM_DUP_FN Subr 3302 scalar MPI_COMM_NULL Param 2957 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 3303 scalar MPI_COMM_NULL_DELETE_FN Subr 3302 scalar MPI_COMM_SELF Param 2953 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 3241 I(4) 4 scalar MPI_COMM_WORLD Param 2951 I(4) 4 scalar MPI_COMPLEX Param 3045 I(4) 4 scalar MPI_COMPLEX16 Param 3091 I(4) 4 scalar MPI_COMPLEX32 Param 3093 I(4) 4 scalar MPI_COMPLEX8 Param 3089 I(4) 4 scalar MPI_CONGRUENT Param 2905 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 3308 scalar MPI_COUNT Param 3177 I(4) 4 scalar MPI_COUNT_KIND Param 3099 I(4) 4 scalar MPI_CXX_BOOL Param 3179 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 3183 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 3181 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 3185 I(4) 4 scalar MPI_C_BOOL Param 3163 I(4) 4 scalar MPI_C_COMPLEX Param 3167 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 3169 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 3165 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 3171 I(4) 4 scalar MPI_DATATYPE_NULL Param 2967 I(4) 4 scalar 3082,3180,3182,3184,3186 MPI_DISPLACEMENT_CURRENT Param 3291 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 3283 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 3285 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 3289 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 3287 I(4) 4 scalar MPI_DIST_GRAPH Param 3035 I(4) 4 scalar MPI_DOUBLE Param 3125 I(4) 4 scalar Page 55 Source Listing EXCH00 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DOUBLE_COMPLEX Param 3047 I(4) 4 scalar MPI_DOUBLE_INT Param 3137 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 3053 I(4) 4 scalar MPI_DUP_FN Subr 3299 scalar MPI_ERRHANDLER_NULL Param 2971 I(4) 4 scalar MPI_ERROR Param 2772 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 2899 I(4) 4 scalar MPI_ERRORS_RETURN Param 2901 I(4) 4 scalar MPI_ERR_ACCESS Param 2891 I(4) 4 scalar MPI_ERR_AMODE Param 2877 I(4) 4 scalar MPI_ERR_ARG Param 2847 I(4) 4 scalar MPI_ERR_ASSERT Param 2853 I(4) 4 scalar MPI_ERR_BAD_FILE Param 2815 I(4) 4 scalar MPI_ERR_BASE Param 2845 I(4) 4 scalar MPI_ERR_BUFFER Param 2787 I(4) 4 scalar MPI_ERR_COMM Param 2865 I(4) 4 scalar MPI_ERR_CONVERSION Param 2881 I(4) 4 scalar MPI_ERR_COUNT Param 2791 I(4) 4 scalar MPI_ERR_DIMS Param 2829 I(4) 4 scalar MPI_ERR_DISP Param 2813 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 2795 I(4) 4 scalar MPI_ERR_FILE Param 2825 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 2807 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 2849 I(4) 4 scalar MPI_ERR_GROUP Param 2811 I(4) 4 scalar MPI_ERR_INFO Param 2839 I(4) 4 scalar MPI_ERR_INFO_KEY Param 2843 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 2823 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 2809 I(4) 4 scalar MPI_ERR_INTERN Param 2841 I(4) 4 scalar MPI_ERR_IN_STATUS Param 2827 I(4) 4 scalar MPI_ERR_IO Param 2887 I(4) 4 scalar MPI_ERR_KEYVAL Param 2833 I(4) 4 scalar MPI_ERR_LASTCODE Param 2855 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 2837 I(4) 4 scalar MPI_ERR_NAME Param 2831 I(4) 4 scalar MPI_ERR_NOT_SAME Param 2859 I(4) 4 scalar MPI_ERR_NO_MEM Param 2851 I(4) 4 scalar MPI_ERR_NO_SPACE Param 2783 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 2867 I(4) 4 scalar MPI_ERR_OP Param 2885 I(4) 4 scalar MPI_ERR_OTHER Param 2799 I(4) 4 scalar MPI_ERR_PENDING Param 2789 I(4) 4 scalar MPI_ERR_PORT Param 2871 I(4) 4 scalar MPI_ERR_QUOTA Param 2875 I(4) 4 scalar MPI_ERR_RANK Param 2797 I(4) 4 scalar MPI_ERR_READ_ONLY Param 2835 I(4) 4 scalar MPI_ERR_REQUEST Param 2879 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 2801 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 2805 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 2821 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 2883 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 2873 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 2785 I(4) 4 scalar MPI_ERR_ROOT Param 2817 I(4) 4 scalar Page 56 Source Listing EXCH00 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_SERVICE Param 2793 I(4) 4 scalar MPI_ERR_SIZE Param 2803 I(4) 4 scalar MPI_ERR_SPAWN Param 2863 I(4) 4 scalar MPI_ERR_TAG Param 2893 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 2897 I(4) 4 scalar MPI_ERR_TRUNCATE Param 2857 I(4) 4 scalar MPI_ERR_TYPE Param 2861 I(4) 4 scalar MPI_ERR_UNKNOWN Param 2895 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 2819 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 2869 I(4) 4 scalar MPI_ERR_WIN Param 2889 I(4) 4 scalar MPI_FILE_NULL Param 2961 I(4) 4 scalar MPI_FLOAT Param 3123 I(4) 4 scalar MPI_FLOAT_INT Param 3135 I(4) 4 scalar MPI_GRAPH Param 3031 I(4) 4 scalar MPI_GROUP_EMPTY Param 2955 I(4) 4 scalar MPI_GROUP_NULL Param 2963 I(4) 4 scalar MPI_HOST Param 2979 I(4) 4 scalar MPI_IDENT Param 2903 I(4) 4 scalar MPI_INFO_ENV Param 2975 I(4) 4 scalar MPI_INFO_NULL Param 2973 I(4) 4 scalar MPI_INT Param 3115 I(4) 4 scalar MPI_INT16_T Param 3149 I(4) 4 scalar MPI_INT32_T Param 3151 I(4) 4 scalar MPI_INT64_T Param 3153 I(4) 4 scalar MPI_INT8_T Param 3147 I(4) 4 scalar MPI_INTEGER Param 3055 I(4) 4 scalar MPI_INTEGER1 Param 3073 I(4) 4 scalar MPI_INTEGER16 Param 3081 I(4) 4 scalar MPI_INTEGER2 Param 3075 I(4) 4 scalar MPI_INTEGER4 Param 3077 I(4) 4 scalar MPI_INTEGER8 Param 3079 I(4) 4 scalar MPI_INTEGER_KIND Param 3101 I(4) 4 scalar MPI_IO Param 2981 I(4) 4 scalar MPI_IRECV Subr 3407 3407,3416,3535,3544 MPI_ISEND Subr 3440 3440,3464,3568,3592 MPI_KEYVAL_INVALID Param 3019 I(4) 4 scalar MPI_LAND Param 2931 I(4) 4 scalar MPI_LASTUSEDCODE Param 2987 I(4) 4 scalar MPI_LB Param 3069 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 3041 I(4) 4 scalar MPI_LOCK_SHARED Param 3043 I(4) 4 scalar MPI_LOGICAL Param 3049 I(4) 4 scalar MPI_LONG Param 3119 I(4) 4 scalar MPI_LONG_DOUBLE Param 3127 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 3145 I(4) 4 scalar MPI_LONG_INT Param 3139 I(4) 4 scalar MPI_LONG_LONG Param 3133 I(4) 4 scalar MPI_LONG_LONG_INT Param 3129 I(4) 4 scalar MPI_LOR Param 2935 I(4) 4 scalar MPI_LXOR Param 2939 I(4) 4 scalar MPI_MAX Param 2923 I(4) 4 scalar MPI_MAXLOC Param 2945 I(4) 4 scalar Page 57 Source Listing EXCH00 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MAX_DATAREP_STRING Param 3013 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 3001 I(4) 4 scalar MPI_MAX_INFO_KEY Param 3007 I(4) 4 scalar MPI_MAX_INFO_VAL Param 3009 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 3015 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 3005 I(4) 4 scalar MPI_MAX_PORT_NAME Param 3003 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 3011 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 3245 I(4) 4 scalar MPI_MESSAGE_NULL Param 3243 I(4) 4 scalar MPI_MIN Param 2925 I(4) 4 scalar MPI_MINLOC Param 2943 I(4) 4 scalar MPI_MODE_APPEND Param 3269 I(4) 4 scalar MPI_MODE_CREATE Param 3265 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 3261 I(4) 4 scalar MPI_MODE_EXCL Param 3267 I(4) 4 scalar MPI_MODE_NOCHECK Param 3231 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 3237 I(4) 4 scalar MPI_MODE_NOPUT Param 3235 I(4) 4 scalar MPI_MODE_NOSTORE Param 3233 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 3239 I(4) 4 scalar MPI_MODE_RDONLY Param 3255 I(4) 4 scalar MPI_MODE_RDWR Param 3257 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 3271 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 3263 I(4) 4 scalar MPI_MODE_WRONLY Param 3259 I(4) 4 scalar MPI_NO_OP Param 2949 I(4) 4 scalar MPI_NULL_COPY_FN Subr 3299 scalar MPI_NULL_DELETE_FN Subr 3299 scalar MPI_OFFSET Param 3175 I(4) 4 scalar MPI_OFFSET_KIND Param 3097 I(4) 4 scalar MPI_OP_NULL Param 2965 I(4) 4 scalar MPI_ORDER_C Param 3279 I(4) 4 scalar MPI_ORDER_FORTRAN Param 3281 I(4) 4 scalar MPI_PACKED Param 3071 I(4) 4 scalar MPI_PROC_NULL Param 3023 I(4) 4 scalar MPI_PROD Param 2929 I(4) 4 scalar MPI_REAL Param 3051 I(4) 4 scalar 3392 MPI_REAL16 Param 3087 I(4) 4 scalar MPI_REAL4 Param 3083 I(4) 4 scalar MPI_REAL8 Param 3085 I(4) 4 scalar MPI_REPLACE Param 2947 I(4) 4 scalar MPI_REQUEST_NULL Param 2969 I(4) 4 scalar MPI_ROOT Param 3029 I(4) 4 scalar MPI_SEEK_CUR Param 3275 I(4) 4 scalar MPI_SEEK_END Param 3277 I(4) 4 scalar MPI_SEEK_SET Param 3273 I(4) 4 scalar MPI_SHORT Param 3111 I(4) 4 scalar MPI_SHORT_INT Param 3141 I(4) 4 scalar MPI_SIGNED_CHAR Param 3105 I(4) 4 scalar MPI_SIMILAR Param 2907 I(4) 4 scalar MPI_SOURCE Param 2772 I(4) 4 scalar MPI_STATUS_SIZE Param 2774 I(4) 4 scalar 2776,2777,3385 MPI_SUBARRAYS_SUPPORTED Param 3293 L(4) 4 scalar Page 58 Source Listing EXCH00 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SUBVERSION Param 3039 I(4) 4 scalar MPI_SUCCESS Param 2781 I(4) 4 scalar MPI_SUM Param 2927 I(4) 4 scalar MPI_TAG Param 2772 I(4) 4 scalar MPI_TAG_UB Param 2977 I(4) 4 scalar MPI_THREAD_FUNNELED Param 3249 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 3253 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 3251 I(4) 4 scalar MPI_THREAD_SINGLE Param 3247 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 3229 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 3227 I(4) 4 scalar MPI_TYPECLASS_REAL Param 3225 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 3306 scalar MPI_TYPE_NULL_COPY_FN Subr 3307 scalar MPI_TYPE_NULL_DELETE_FN Subr 3306 scalar MPI_UB Param 3067 I(4) 4 scalar MPI_UINT16_T Param 3157 I(4) 4 scalar MPI_UINT32_T Param 3159 I(4) 4 scalar MPI_UINT64_T Param 3161 I(4) 4 scalar MPI_UINT8_T Param 3155 I(4) 4 scalar MPI_UNDEFINED Param 3017 I(4) 4 scalar MPI_UNEQUAL Param 2909 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 2985 I(4) 4 scalar MPI_UNSIGNED Param 3117 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 3107 I(4) 4 scalar MPI_UNSIGNED_LONG Param 3121 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 3131 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 3113 I(4) 4 scalar MPI_VERSION Param 3037 I(4) 4 scalar MPI_WAIT Subr 3476 3476,3499,3515,3519,3604,3627,3643 ,3647 MPI_WCHAR Param 3109 I(4) 4 scalar MPI_WIN_BASE Param 2991 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 2997 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 2995 I(4) 4 scalar MPI_WIN_DUP_FN Subr 3304 scalar MPI_WIN_FLAVOR_ALLOCATE Param 2913 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 2911 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 2915 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 2917 I(4) 4 scalar MPI_WIN_MODEL Param 2999 I(4) 4 scalar MPI_WIN_NULL Param 2959 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 3305 scalar MPI_WIN_NULL_DELETE_FN Subr 3304 scalar MPI_WIN_SEPARATE Param 2919 I(4) 4 scalar MPI_WIN_SIZE Param 2993 I(4) 4 scalar MPI_WIN_UNIFIED Param 2921 I(4) 4 scalar MPI_WTICK Func 3300 R(8) 8 scalar MPI_WTIME Func 3300 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 2983 I(4) 4 scalar MPPCOM Common 3327 1464 SAVE PMPI_WTICK Func 3301 R(8) 8 scalar PMPI_WTIME Func 3301 R(8) 8 scalar TEMPCOM Common 3368 6603768 SAVE TOPO Common 3376 17478548 SAVE Page 59 Source Listing EXCH00 2025-03-12 18:21 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 3408,3417,3441,3465,3536,3545,3569 ,3593 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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:21 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 3426,3450,3474,3497,3553,3554,3624 ,3625 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 3425,3449,3473,3496,3577,3578,3601 ,3602 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 3431,3437,3503,3509,3556,3562,3580 ,3586,3605,3611,3628,3634 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:21 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 3455,3461,3480,3486,3556,3562,3580 ,3586,3605,3611,3628,3634 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 3440,3464,3568,3592 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 3406,3407,3415,3416,3424,3440,3448 ,3464,3472,3495,3514,3518,3534,353 5,3543,3544,3552,3568,3576,3592,36 00,3623,3642,3646 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:21 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:21 module_EXCHM.F 3652 3653 SUBROUTINE EXCH11(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 3654 USE EXCH_BUF_REAL 3655 INCLUDE "parmeta" 3678 INCLUDE "mpif.h" 4240 INCLUDE "mpp.h" 4241 C----------------------------------------------------------------------- 4300 INTEGER ISTAT(MPI_STATUS_SIZE) 4301 INTEGER IHANDLE(4) 4302 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 4303 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 4304 C 4305 C*********************************************************************** 4306 C 4307 ITYPE=MPI_REAL 4308 C 4309 C-------------------------------------------------------------------- 4310 C-------------------------------------------------------------------- 4311 C*** 4312 C*** NORTH/SOUTH 4313 C*** 4314 C-------------------------------------------------------------------- 4315 C-------------------------------------------------------------------- 4316 C 4317 C-------------------------------------------------------------------- 4318 C RECEIVE FROM NORTH 4319 C-------------------------------------------------------------------- 4320 C 4321 IF(MY_NEB(1).GE.0)THEN 4322 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 4323 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 4324 ENDIF 4325 C 4326 C-------------------------------------------------------------------- 4327 C RECEIVE FROM SOUTH 4328 C-------------------------------------------------------------------- 4329 C 4330 IF(MY_NEB(3).GE.0)THEN 4331 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 4332 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 4333 ENDIF 4334 C 4335 C-------------------------------------------------------------------- 4336 C SEND TO NORTH 4337 C-------------------------------------------------------------------- 4338 C 4339 IF(MY_NEB(1).GE.0)THEN 4340 IBEG = MYIS-IHALO 4341 IEND = MYIE+IHALO 4342 IC = 0 4343 DO K=1,LL1 4344 DO J=0,JHALO-1 4345 DO I=IBEG,IEND 4346 IC = IC + 1 4347 BUF2(IC)=ARR1(I,MYJE-J,K) 4348 ENDDO 4349 ENDDO Page 64 Source Listing EXCH11 2025-03-12 18:21 module_EXCHM.F 4350 ENDDO 4351 DO K=1,LL2 4352 DO J=0,JHALO-1 4353 DO I=IBEG,IEND 4354 IC = IC + 1 4355 BUF2(IC)=ARR2(I,MYJE-J,K) 4356 ENDDO 4357 ENDDO 4358 ENDDO 4359 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 4360 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 4361 ENDIF 4362 C 4363 C-------------------------------------------------------------------- 4364 C SEND TO SOUTH 4365 C-------------------------------------------------------------------- 4366 C 4367 IF(MY_NEB(3).GE.0)THEN 4368 IBEG = MYIS-IHALO 4369 IEND = MYIE+IHALO 4370 IC = 0 4371 DO K=1,LL1 4372 DO J=0,JHALO-1 4373 DO I=IBEG,IEND 4374 IC = IC + 1 4375 BUF3(IC)=ARR1(I,MYJS+J,K) 4376 ENDDO 4377 ENDDO 4378 ENDDO 4379 DO K=1,LL2 4380 DO J=0,JHALO-1 4381 DO I=IBEG,IEND 4382 IC = IC + 1 4383 BUF3(IC)=ARR2(I,MYJS+J,K) 4384 ENDDO 4385 ENDDO 4386 ENDDO 4387 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 4388 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 4389 ENDIF 4390 C 4391 C-------------------------------------------------------------------- 4392 C STORE RESULTS FROM SOUTH 4393 C-------------------------------------------------------------------- 4394 C 4395 IF(MY_NEB(3).GE.0)THEN 4396 IBEG = MYIS-IHALO 4397 IEND = MYIE+IHALO 4398 IC = 0 4399 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 4400 DO K=1,LL1 4401 DO J=0,JHALO-1 4402 DO I=IBEG,IEND 4403 IC = IC + 1 4404 ARR1(I,MYJS-J-1,K)=BUF1(IC) 4405 ENDDO 4406 ENDDO Page 65 Source Listing EXCH11 2025-03-12 18:21 module_EXCHM.F 4407 ENDDO 4408 DO K=1,LL2 4409 DO J=0,JHALO-1 4410 DO I=IBEG,IEND 4411 IC = IC + 1 4412 ARR2(I,MYJS-J-1,K)=BUF1(IC) 4413 ENDDO 4414 ENDDO 4415 ENDDO 4416 ENDIF 4417 C 4418 C-------------------------------------------------------------------- 4419 C STORE FROM NORTH 4420 C-------------------------------------------------------------------- 4421 C 4422 IF(MY_NEB(1).GE.0)THEN 4423 IBEG = MYIS-IHALO 4424 IEND = MYIE+IHALO 4425 IC = 0 4426 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 4427 DO K=1,LL1 4428 DO J=0,JHALO-1 4429 DO I=IBEG,IEND 4430 IC = IC + 1 4431 ARR1(I,MYJE+J+1,K)=BUF0(IC) 4432 ENDDO 4433 ENDDO 4434 ENDDO 4435 DO K=1,LL2 4436 DO J=0,JHALO-1 4437 DO I=IBEG,IEND 4438 IC = IC + 1 4439 ARR2(I,MYJE+J+1,K)=BUF0(IC) 4440 ENDDO 4441 ENDDO 4442 ENDDO 4443 ENDIF 4444 C 4445 IF(MY_NEB(1).GE.0)THEN 4446 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 4447 ENDIF 4448 C 4449 IF(MY_NEB(3).GE.0)THEN 4450 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 4451 ENDIF 4452 C 4453 C-------------------------------------------------------------------- 4454 C-------------------------------------------------------------------- 4455 C*** 4456 C*** EAST/WEST 4457 C*** 4458 C-------------------------------------------------------------------- 4459 C-------------------------------------------------------------------- 4460 C 4461 C-------------------------------------------------------------------- 4462 C RECEIVE FROM WEST 4463 C-------------------------------------------------------------------- Page 66 Source Listing EXCH11 2025-03-12 18:21 module_EXCHM.F 4464 C 4465 IF(MY_NEB(4).GE.0)THEN 4466 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 4467 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 4468 ENDIF 4469 C 4470 C-------------------------------------------------------------------- 4471 C RECEIVE FROM EAST 4472 C-------------------------------------------------------------------- 4473 C 4474 IF(MY_NEB(2).GE.0)THEN 4475 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 4476 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 4477 ENDIF 4478 C 4479 C-------------------------------------------------------------------- 4480 C SEND TO EAST 4481 C-------------------------------------------------------------------- 4482 C 4483 IF(MY_NEB(2).GE.0)THEN 4484 IBEG = MYIE-IHALO+1 4485 IEND = MYIE 4486 IC = 0 4487 DO K=1,LL1 4488 DO J=MYJS-JHALO,MYJE+JHALO 4489 DO I=IBEG,IEND 4490 IC = IC + 1 4491 BUF2(IC)=ARR1(I,J,K) 4492 ENDDO 4493 ENDDO 4494 ENDDO 4495 DO K=1,LL2 4496 DO J=MYJS-JHALO,MYJE+JHALO 4497 DO I=IBEG,IEND 4498 IC = IC + 1 4499 BUF2(IC)=ARR2(I,J,K) 4500 ENDDO 4501 ENDDO 4502 ENDDO 4503 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 4504 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 4505 ENDIF 4506 C 4507 C-------------------------------------------------------------------- 4508 C SEND TO WEST 4509 C-------------------------------------------------------------------- 4510 C 4511 IF(MY_NEB(4).GE.0)THEN 4512 IBEG = MYIS 4513 IEND = MYIS+IHALO-1 4514 IC = 0 4515 DO K=1,LL1 4516 DO J=MYJS-JHALO,MYJE+JHALO 4517 DO I=IBEG,IEND 4518 IC = IC + 1 4519 BUF3(IC)=ARR1(I,J,K) 4520 ENDDO Page 67 Source Listing EXCH11 2025-03-12 18:21 module_EXCHM.F 4521 ENDDO 4522 ENDDO 4523 DO K=1,LL2 4524 DO J=MYJS-JHALO,MYJE+JHALO 4525 DO I=IBEG,IEND 4526 IC = IC + 1 4527 BUF3(IC)=ARR2(I,J,K) 4528 ENDDO 4529 ENDDO 4530 ENDDO 4531 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 4532 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 4533 ENDIF 4534 C 4535 C-------------------------------------------------------------------- 4536 C STORE FROM WEST 4537 C-------------------------------------------------------------------- 4538 C 4539 IF(MY_NEB(4).GE.0)THEN 4540 IBEG = MYIS-IHALO 4541 IEND = MYIS-1 4542 IC = 0 4543 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 4544 DO K=1,LL1 4545 DO J=MYJS-JHALO,MYJE+JHALO 4546 DO I=IBEG,IEND 4547 IC = IC + 1 4548 ARR1(I,J,K)=BUF0(IC) 4549 ENDDO 4550 ENDDO 4551 ENDDO 4552 DO K=1,LL2 4553 DO J=MYJS-JHALO,MYJE+JHALO 4554 DO I=IBEG,IEND 4555 IC = IC + 1 4556 ARR2(I,J,K)=BUF0(IC) 4557 ENDDO 4558 ENDDO 4559 ENDDO 4560 ENDIF 4561 C 4562 C-------------------------------------------------------------------- 4563 C STORE FROM EAST 4564 C-------------------------------------------------------------------- 4565 C 4566 IF(MY_NEB(2).GE.0)THEN 4567 IBEG = MYIE+1 4568 IEND = MYIE+IHALO 4569 IC = 0 4570 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 4571 DO K=1,LL1 4572 DO J=MYJS-JHALO,MYJE+JHALO 4573 DO I=IBEG,IEND 4574 IC = IC + 1 4575 ARR1(I,J,K)=BUF1(IC) 4576 ENDDO 4577 ENDDO Page 68 Source Listing EXCH11 2025-03-12 18:21 module_EXCHM.F 4578 ENDDO 4579 DO K=1,LL2 4580 DO J=MYJS-JHALO,MYJE+JHALO 4581 DO I=IBEG,IEND 4582 IC = IC + 1 4583 ARR2(I,J,K)=BUF1(IC) 4584 ENDDO 4585 ENDDO 4586 ENDDO 4587 ENDIF 4588 C 4589 IF(MY_NEB(4).GE.0)THEN 4590 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 4591 ENDIF 4592 C 4593 IF(MY_NEB(2).GE.0)THEN 4594 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 4595 ENDIF 4596 C 4597 C-------------------------------------------------------------------- 4598 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch11_ Page 69 Source Listing EXCH11 2025-03-12 18:21 Symbol Table module_EXCHM.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 3653 R(4) 4 3 0 ARG,INOUT 4347,4375,4404,4431,4491,4519,4548 ,4575 ARR2 Dummy 3653 R(4) 4 3 0 ARG,INOUT 4355,4383,4412,4439,4499,4527,4556 ,4583 BUF0 Local 4322 R(4) 4 1 2500000 4322,4431,4439,4466,4548,4556 BUF1 Local 4331 R(4) 4 1 2500000 4331,4404,4412,4475,4575,4583 BUF2 Local 4347 R(4) 4 1 2500000 4347,4355,4359,4491,4499,4503 BUF3 Local 4375 R(4) 4 1 2500000 4375,4383,4387,4519,4527,4531 EXCH11 Subr 3653 EXCH_BUF_REAL Module 3654 3654 GLB_TABLE Common 4278 128 SAVE I Local 4345 I(4) 4 scalar 4345,4347,4353,4355,4373,4375,4381 ,4383,4402,4404,4410,4412,4429,443 1,4437,4439,4489,4491,4497,4499,45 17,4519,4525,4527,4546,4548,4554,4 556,4573,4575,4581,4583 IBEG Local 4340 I(4) 4 scalar 4340,4345,4353,4368,4373,4381,4396 ,4402,4410,4423,4429,4437,4484,448 9,4497,4512,4517,4525,4540,4546,45 54,4567,4573,4581 IBUFEXCH Param 4322 I(4) 4 scalar 4322,4331,4466,4475 IC Local 4342 I(4) 4 scalar 4342,4346,4347,4354,4355,4359,4370 ,4374,4375,4382,4383,4387,4398,440 3,4404,4411,4412,4425,4430,4431,44 38,4439,4486,4490,4491,4498,4499,4 503,4514,4518,4519,4526,4527,4531, 4542,4547,4548,4555,4556,4569,4574 ,4575,4582,4583 IDIM1 Param 3674 I(4) 4 scalar 4302,4303 IDIM2 Param 3674 I(4) 4 scalar 4302,4303 IEND Local 4341 I(4) 4 scalar 4341,4345,4353,4369,4373,4381,4397 ,4402,4410,4424,4429,4437,4485,448 9,4497,4513,4517,4525,4541,4546,45 54,4568,4573,4581 IERR Local 4399 I(4) 4 scalar 4399,4426,4446,4450,4543,4570,4590 ,4594 IGSTL Param 3669 I(4) 4 scalar 3674 IGSTR Param 3669 I(4) 4 scalar 3674 IHALO Dummy 3653 I(4) 4 scalar ARG,INOUT 4340,4341,4368,4369,4396,4397,4423 ,4424,4484,4513,4540,4568 IHANDLE Local 4301 I(4) 4 1 4 4323,4332,4360,4388,4399,4426,4446 ,4450,4467,4476,4504,4532,4543,457 0,4590,4594 IM Param 3658 I(4) 4 scalar 3671,3674,4284,4285,4286,4287,4288 ,4292,4293,4298 INPES Param 3666 I(4) 4 scalar 3671,3674,4268,4269,4270,4279,4280 IRECV Local 4323 I(4) 4 scalar 4323,4332,4467,4476 ISEND Local 4360 I(4) 4 scalar 4360,4388,4504,4532 ISTAT Local 4300 I(4) 4 1 5 4399,4426,4446,4450,4543,4570,4590 ,4594 ITAIL Param 3671 I(4) 4 scalar Page 70 Source Listing EXCH11 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ITYPE Local 4307 I(4) 4 scalar 4307,4322,4331,4359,4387,4466,4475 ,4503,4531 J Local 4344 I(4) 4 scalar 4344,4347,4352,4355,4372,4375,4380 ,4383,4401,4404,4409,4412,4428,443 1,4436,4439,4488,4491,4496,4499,45 16,4519,4524,4527,4545,4548,4553,4 556,4572,4575,4580,4583 JDIM1 Param 3675 I(4) 4 scalar 4302,4303 JDIM2 Param 3675 I(4) 4 scalar 4302,4303 JGSTL Param 3670 I(4) 4 scalar 3675 JGSTR Param 3670 I(4) 4 scalar 3675 JHALO Dummy 3653 I(4) 4 scalar ARG,INOUT 4344,4352,4372,4380,4401,4409,4428 ,4436,4488,4496,4516,4524,4545,455 3,4572,4580 JM Param 3658 I(4) 4 scalar 3672,3675,4284,4285,4286,4287,4288 ,4292,4293,4298 JNPES Param 3666 I(4) 4 scalar 3672,3675,4268,4269,4270,4279,4280 JTAIL Param 3672 I(4) 4 scalar K Local 4343 I(4) 4 scalar 4343,4347,4351,4355,4371,4375,4379 ,4383,4400,4404,4408,4412,4427,443 1,4435,4439,4487,4491,4495,4499,45 15,4519,4523,4527,4544,4548,4552,4 556,4571,4575,4579,4583 LL1 Dummy 3653 I(4) 4 scalar ARG,INOUT 4343,4371,4400,4427,4487,4515,4544 ,4571 LL2 Dummy 3653 I(4) 4 scalar ARG,INOUT 4351,4379,4408,4435,4495,4523,4552 ,4579 LM Param 3658 I(4) 4 scalar 4293 LSM Param 3658 I(4) 4 scalar MAPPINGS Common 4297 5024 SAVE MPIFCMB5 Common 4228 4 SAVE MPIFCMB9 Common 4229 4 SAVE MPIPRIV1 Common 4233 28 SAVE MPIPRIV2 Common 4235 24 SAVE MPIPRIVC Common 4238 2 SAVE MPI_2DOUBLE_PRECISION Param 3974 I(4) 4 scalar MPI_2INT Param 4058 I(4) 4 scalar MPI_2INTEGER Param 3972 I(4) 4 scalar MPI_2REAL Param 3976 I(4) 4 scalar MPI_ADDRESS_KIND Param 4010 I(4) 4 scalar MPI_AINT Param 4088 I(4) 4 scalar MPI_ANY_SOURCE Param 3940 I(4) 4 scalar MPI_ANY_TAG Param 3942 I(4) 4 scalar MPI_APPNUM Param 3904 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 4210 L(4) 4 scalar MPI_BAND Param 3848 I(4) 4 scalar MPI_BOR Param 3852 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 3936 I(4) 4 scalar MPI_BXOR Param 3856 I(4) 4 scalar MPI_BYTE Param 3980 I(4) 4 scalar MPI_CART Param 3948 I(4) 4 scalar MPI_CHAR Param 4018 I(4) 4 scalar MPI_CHARACTER Param 3978 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 4106 I(4) 4 scalar Page 71 Source Listing EXCH11 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_DARRAY Param 4128 I(4) 4 scalar MPI_COMBINER_DUP Param 4104 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 4132 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 4134 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 4130 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 4118 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 4138 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 4116 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 4112 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 4110 I(4) 4 scalar MPI_COMBINER_INDEXED Param 4114 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 4120 I(4) 4 scalar MPI_COMBINER_NAMED Param 4102 I(4) 4 scalar MPI_COMBINER_RESIZED Param 4136 I(4) 4 scalar MPI_COMBINER_STRUCT Param 4124 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 4122 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 4126 I(4) 4 scalar MPI_COMBINER_VECTOR Param 4108 I(4) 4 scalar MPI_COMM_DUP_FN Subr 4217 scalar MPI_COMM_NULL Param 3872 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 4218 scalar MPI_COMM_NULL_DELETE_FN Subr 4217 scalar MPI_COMM_SELF Param 3868 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 4156 I(4) 4 scalar MPI_COMM_WORLD Param 3866 I(4) 4 scalar MPI_COMPLEX Param 3960 I(4) 4 scalar MPI_COMPLEX16 Param 4006 I(4) 4 scalar MPI_COMPLEX32 Param 4008 I(4) 4 scalar MPI_COMPLEX8 Param 4004 I(4) 4 scalar MPI_CONGRUENT Param 3820 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 4223 scalar MPI_COUNT Param 4092 I(4) 4 scalar MPI_COUNT_KIND Param 4014 I(4) 4 scalar MPI_CXX_BOOL Param 4094 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 4098 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 4096 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 4100 I(4) 4 scalar MPI_C_BOOL Param 4078 I(4) 4 scalar MPI_C_COMPLEX Param 4082 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 4084 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 4080 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 4086 I(4) 4 scalar MPI_DATATYPE_NULL Param 3882 I(4) 4 scalar 3997,4095,4097,4099,4101 MPI_DISPLACEMENT_CURRENT Param 4206 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 4198 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 4200 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 4204 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 4202 I(4) 4 scalar MPI_DIST_GRAPH Param 3950 I(4) 4 scalar MPI_DOUBLE Param 4040 I(4) 4 scalar Page 72 Source Listing EXCH11 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DOUBLE_COMPLEX Param 3962 I(4) 4 scalar MPI_DOUBLE_INT Param 4052 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 3968 I(4) 4 scalar MPI_DUP_FN Subr 4214 scalar MPI_ERRHANDLER_NULL Param 3886 I(4) 4 scalar MPI_ERROR Param 3687 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 3814 I(4) 4 scalar MPI_ERRORS_RETURN Param 3816 I(4) 4 scalar MPI_ERR_ACCESS Param 3806 I(4) 4 scalar MPI_ERR_AMODE Param 3792 I(4) 4 scalar MPI_ERR_ARG Param 3762 I(4) 4 scalar MPI_ERR_ASSERT Param 3768 I(4) 4 scalar MPI_ERR_BAD_FILE Param 3730 I(4) 4 scalar MPI_ERR_BASE Param 3760 I(4) 4 scalar MPI_ERR_BUFFER Param 3702 I(4) 4 scalar MPI_ERR_COMM Param 3780 I(4) 4 scalar MPI_ERR_CONVERSION Param 3796 I(4) 4 scalar MPI_ERR_COUNT Param 3706 I(4) 4 scalar MPI_ERR_DIMS Param 3744 I(4) 4 scalar MPI_ERR_DISP Param 3728 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 3710 I(4) 4 scalar MPI_ERR_FILE Param 3740 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 3722 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 3764 I(4) 4 scalar MPI_ERR_GROUP Param 3726 I(4) 4 scalar MPI_ERR_INFO Param 3754 I(4) 4 scalar MPI_ERR_INFO_KEY Param 3758 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 3738 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 3724 I(4) 4 scalar MPI_ERR_INTERN Param 3756 I(4) 4 scalar MPI_ERR_IN_STATUS Param 3742 I(4) 4 scalar MPI_ERR_IO Param 3802 I(4) 4 scalar MPI_ERR_KEYVAL Param 3748 I(4) 4 scalar MPI_ERR_LASTCODE Param 3770 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 3752 I(4) 4 scalar MPI_ERR_NAME Param 3746 I(4) 4 scalar MPI_ERR_NOT_SAME Param 3774 I(4) 4 scalar MPI_ERR_NO_MEM Param 3766 I(4) 4 scalar MPI_ERR_NO_SPACE Param 3698 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 3782 I(4) 4 scalar MPI_ERR_OP Param 3800 I(4) 4 scalar MPI_ERR_OTHER Param 3714 I(4) 4 scalar MPI_ERR_PENDING Param 3704 I(4) 4 scalar MPI_ERR_PORT Param 3786 I(4) 4 scalar MPI_ERR_QUOTA Param 3790 I(4) 4 scalar MPI_ERR_RANK Param 3712 I(4) 4 scalar MPI_ERR_READ_ONLY Param 3750 I(4) 4 scalar MPI_ERR_REQUEST Param 3794 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 3716 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 3720 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 3736 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 3798 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 3788 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 3700 I(4) 4 scalar MPI_ERR_ROOT Param 3732 I(4) 4 scalar Page 73 Source Listing EXCH11 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_SERVICE Param 3708 I(4) 4 scalar MPI_ERR_SIZE Param 3718 I(4) 4 scalar MPI_ERR_SPAWN Param 3778 I(4) 4 scalar MPI_ERR_TAG Param 3808 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 3812 I(4) 4 scalar MPI_ERR_TRUNCATE Param 3772 I(4) 4 scalar MPI_ERR_TYPE Param 3776 I(4) 4 scalar MPI_ERR_UNKNOWN Param 3810 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 3734 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 3784 I(4) 4 scalar MPI_ERR_WIN Param 3804 I(4) 4 scalar MPI_FILE_NULL Param 3876 I(4) 4 scalar MPI_FLOAT Param 4038 I(4) 4 scalar MPI_FLOAT_INT Param 4050 I(4) 4 scalar MPI_GRAPH Param 3946 I(4) 4 scalar MPI_GROUP_EMPTY Param 3870 I(4) 4 scalar MPI_GROUP_NULL Param 3878 I(4) 4 scalar MPI_HOST Param 3894 I(4) 4 scalar MPI_IDENT Param 3818 I(4) 4 scalar MPI_INFO_ENV Param 3890 I(4) 4 scalar MPI_INFO_NULL Param 3888 I(4) 4 scalar MPI_INT Param 4030 I(4) 4 scalar MPI_INT16_T Param 4064 I(4) 4 scalar MPI_INT32_T Param 4066 I(4) 4 scalar MPI_INT64_T Param 4068 I(4) 4 scalar MPI_INT8_T Param 4062 I(4) 4 scalar MPI_INTEGER Param 3970 I(4) 4 scalar MPI_INTEGER1 Param 3988 I(4) 4 scalar MPI_INTEGER16 Param 3996 I(4) 4 scalar MPI_INTEGER2 Param 3990 I(4) 4 scalar MPI_INTEGER4 Param 3992 I(4) 4 scalar MPI_INTEGER8 Param 3994 I(4) 4 scalar MPI_INTEGER_KIND Param 4016 I(4) 4 scalar MPI_IO Param 3896 I(4) 4 scalar MPI_IRECV Subr 4322 4322,4331,4466,4475 MPI_ISEND Subr 4359 4359,4387,4503,4531 MPI_KEYVAL_INVALID Param 3934 I(4) 4 scalar MPI_LAND Param 3846 I(4) 4 scalar MPI_LASTUSEDCODE Param 3902 I(4) 4 scalar MPI_LB Param 3984 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 3956 I(4) 4 scalar MPI_LOCK_SHARED Param 3958 I(4) 4 scalar MPI_LOGICAL Param 3964 I(4) 4 scalar MPI_LONG Param 4034 I(4) 4 scalar MPI_LONG_DOUBLE Param 4042 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 4060 I(4) 4 scalar MPI_LONG_INT Param 4054 I(4) 4 scalar MPI_LONG_LONG Param 4048 I(4) 4 scalar MPI_LONG_LONG_INT Param 4044 I(4) 4 scalar MPI_LOR Param 3850 I(4) 4 scalar MPI_LXOR Param 3854 I(4) 4 scalar MPI_MAX Param 3838 I(4) 4 scalar MPI_MAXLOC Param 3860 I(4) 4 scalar Page 74 Source Listing EXCH11 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MAX_DATAREP_STRING Param 3928 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 3916 I(4) 4 scalar MPI_MAX_INFO_KEY Param 3922 I(4) 4 scalar MPI_MAX_INFO_VAL Param 3924 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 3930 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 3920 I(4) 4 scalar MPI_MAX_PORT_NAME Param 3918 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 3926 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 4160 I(4) 4 scalar MPI_MESSAGE_NULL Param 4158 I(4) 4 scalar MPI_MIN Param 3840 I(4) 4 scalar MPI_MINLOC Param 3858 I(4) 4 scalar MPI_MODE_APPEND Param 4184 I(4) 4 scalar MPI_MODE_CREATE Param 4180 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 4176 I(4) 4 scalar MPI_MODE_EXCL Param 4182 I(4) 4 scalar MPI_MODE_NOCHECK Param 4146 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 4152 I(4) 4 scalar MPI_MODE_NOPUT Param 4150 I(4) 4 scalar MPI_MODE_NOSTORE Param 4148 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 4154 I(4) 4 scalar MPI_MODE_RDONLY Param 4170 I(4) 4 scalar MPI_MODE_RDWR Param 4172 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 4186 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 4178 I(4) 4 scalar MPI_MODE_WRONLY Param 4174 I(4) 4 scalar MPI_NO_OP Param 3864 I(4) 4 scalar MPI_NULL_COPY_FN Subr 4214 scalar MPI_NULL_DELETE_FN Subr 4214 scalar MPI_OFFSET Param 4090 I(4) 4 scalar MPI_OFFSET_KIND Param 4012 I(4) 4 scalar MPI_OP_NULL Param 3880 I(4) 4 scalar MPI_ORDER_C Param 4194 I(4) 4 scalar MPI_ORDER_FORTRAN Param 4196 I(4) 4 scalar MPI_PACKED Param 3986 I(4) 4 scalar MPI_PROC_NULL Param 3938 I(4) 4 scalar MPI_PROD Param 3844 I(4) 4 scalar MPI_REAL Param 3966 I(4) 4 scalar 4307 MPI_REAL16 Param 4002 I(4) 4 scalar MPI_REAL4 Param 3998 I(4) 4 scalar MPI_REAL8 Param 4000 I(4) 4 scalar MPI_REPLACE Param 3862 I(4) 4 scalar MPI_REQUEST_NULL Param 3884 I(4) 4 scalar MPI_ROOT Param 3944 I(4) 4 scalar MPI_SEEK_CUR Param 4190 I(4) 4 scalar MPI_SEEK_END Param 4192 I(4) 4 scalar MPI_SEEK_SET Param 4188 I(4) 4 scalar MPI_SHORT Param 4026 I(4) 4 scalar MPI_SHORT_INT Param 4056 I(4) 4 scalar MPI_SIGNED_CHAR Param 4020 I(4) 4 scalar MPI_SIMILAR Param 3822 I(4) 4 scalar MPI_SOURCE Param 3687 I(4) 4 scalar MPI_STATUS_SIZE Param 3689 I(4) 4 scalar 3691,3692,4300 MPI_SUBARRAYS_SUPPORTED Param 4208 L(4) 4 scalar Page 75 Source Listing EXCH11 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SUBVERSION Param 3954 I(4) 4 scalar MPI_SUCCESS Param 3696 I(4) 4 scalar MPI_SUM Param 3842 I(4) 4 scalar MPI_TAG Param 3687 I(4) 4 scalar MPI_TAG_UB Param 3892 I(4) 4 scalar MPI_THREAD_FUNNELED Param 4164 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 4168 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 4166 I(4) 4 scalar MPI_THREAD_SINGLE Param 4162 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 4144 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 4142 I(4) 4 scalar MPI_TYPECLASS_REAL Param 4140 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 4221 scalar MPI_TYPE_NULL_COPY_FN Subr 4222 scalar MPI_TYPE_NULL_DELETE_FN Subr 4221 scalar MPI_UB Param 3982 I(4) 4 scalar MPI_UINT16_T Param 4072 I(4) 4 scalar MPI_UINT32_T Param 4074 I(4) 4 scalar MPI_UINT64_T Param 4076 I(4) 4 scalar MPI_UINT8_T Param 4070 I(4) 4 scalar MPI_UNDEFINED Param 3932 I(4) 4 scalar MPI_UNEQUAL Param 3824 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 3900 I(4) 4 scalar MPI_UNSIGNED Param 4032 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 4022 I(4) 4 scalar MPI_UNSIGNED_LONG Param 4036 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 4046 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 4028 I(4) 4 scalar MPI_VERSION Param 3952 I(4) 4 scalar MPI_WAIT Subr 4399 4399,4426,4446,4450,4543,4570,4590 ,4594 MPI_WCHAR Param 4024 I(4) 4 scalar MPI_WIN_BASE Param 3906 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 3912 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 3910 I(4) 4 scalar MPI_WIN_DUP_FN Subr 4219 scalar MPI_WIN_FLAVOR_ALLOCATE Param 3828 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 3826 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 3830 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 3832 I(4) 4 scalar MPI_WIN_MODEL Param 3914 I(4) 4 scalar MPI_WIN_NULL Param 3874 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 4220 scalar MPI_WIN_NULL_DELETE_FN Subr 4219 scalar MPI_WIN_SEPARATE Param 3834 I(4) 4 scalar MPI_WIN_SIZE Param 3908 I(4) 4 scalar MPI_WIN_UNIFIED Param 3836 I(4) 4 scalar MPI_WTICK Func 4215 R(8) 8 scalar MPI_WTIME Func 4215 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 3898 I(4) 4 scalar MPPCOM Common 4242 1464 SAVE PMPI_WTICK Func 4216 R(8) 8 scalar PMPI_WTIME Func 4216 R(8) 8 scalar TEMPCOM Common 4283 6603768 SAVE TOPO Common 4291 17478548 SAVE Page 76 Source Listing EXCH11 2025-03-12 18:21 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 4323,4332,4360,4388,4467,4476,4504 ,4532 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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:21 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 4341,4369,4397,4424,4484,4485,4567 ,4568 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 4340,4368,4396,4423,4512,4513,4540 ,4541 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 4347,4355,4431,4439,4488,4496,4516 ,4524,4545,4553,4572,4580 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:21 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 4375,4383,4404,4412,4488,4496,4516 ,4524,4545,4553,4572,4580 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 4359,4387,4503,4531 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 4321,4322,4330,4331,4339,4359,4367 ,4387,4395,4422,4445,4449,4465,446 6,4474,4475,4483,4503,4511,4531,45 39,4566,4589,4593 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:21 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:21 module_EXCHM.F 4599 4600 SUBROUTINE EXCH111(ARR1,LL1,ARR2,LL2,ARR3,LL3,IHALO,JHALO) 4601 USE EXCH_BUF_REAL 4602 INCLUDE "parmeta" 4625 INCLUDE "mpif.h" 5187 INCLUDE "mpp.h" 5188 C----------------------------------------------------------------------- 5247 INTEGER ISTAT(MPI_STATUS_SIZE) 5248 INTEGER IHANDLE(4) 5249 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 5250 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 5251 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 5252 C 5253 C*********************************************************************** 5254 C 5255 ITYPE=MPI_REAL 5256 C 5257 C-------------------------------------------------------------------- 5258 C-------------------------------------------------------------------- 5259 C*** 5260 C*** NORTH/SOUTH 5261 C*** 5262 C-------------------------------------------------------------------- 5263 C-------------------------------------------------------------------- 5264 C 5265 C-------------------------------------------------------------------- 5266 C RECEIVE FROM NORTH 5267 C-------------------------------------------------------------------- 5268 C 5269 IF(MY_NEB(1).GE.0)THEN 5270 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 5271 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 5272 ENDIF 5273 C 5274 C-------------------------------------------------------------------- 5275 C RECEIVE FROM SOUTH 5276 C-------------------------------------------------------------------- 5277 C 5278 IF(MY_NEB(3).GE.0)THEN 5279 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 5280 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 5281 ENDIF 5282 C 5283 C-------------------------------------------------------------------- 5284 C SEND TO NORTH 5285 C-------------------------------------------------------------------- 5286 C 5287 IF(MY_NEB(1).GE.0)THEN 5288 IBEG=MYIS-IHALO 5289 IEND=MYIE+IHALO 5290 IC = 0 5291 DO K=1,LL1 5292 DO J=0,JHALO-1 5293 DO I=IBEG,IEND 5294 IC = IC + 1 5295 BUF2(IC)=ARR1(I,MYJE-J,K) 5296 ENDDO Page 81 Source Listing EXCH111 2025-03-12 18:21 module_EXCHM.F 5297 ENDDO 5298 ENDDO 5299 DO K=1,LL2 5300 DO J=0,JHALO-1 5301 DO I=IBEG,IEND 5302 IC = IC + 1 5303 BUF2(IC)=ARR2(I,MYJE-J,K) 5304 ENDDO 5305 ENDDO 5306 ENDDO 5307 DO K=1,LL3 5308 DO J=0,JHALO-1 5309 DO I=IBEG,IEND 5310 IC = IC + 1 5311 BUF2(IC)=ARR3(I,MYJE-J,K) 5312 ENDDO 5313 ENDDO 5314 ENDDO 5315 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 5316 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 5317 ENDIF 5318 C 5319 C-------------------------------------------------------------------- 5320 C SEND TO SOUTH 5321 C-------------------------------------------------------------------- 5322 C 5323 IF(MY_NEB(3).GE.0)THEN 5324 IBEG=MYIS-IHALO 5325 IEND=MYIE+IHALO 5326 IC = 0 5327 DO K=1,LL1 5328 DO J=0,JHALO-1 5329 DO I=IBEG,IEND 5330 IC = IC + 1 5331 BUF3(IC)=ARR1(I,MYJS+J,K) 5332 ENDDO 5333 ENDDO 5334 ENDDO 5335 DO K=1,LL2 5336 DO J=0,JHALO-1 5337 DO I=IBEG,IEND 5338 IC = IC + 1 5339 BUF3(IC)=ARR2(I,MYJS+J,K) 5340 ENDDO 5341 ENDDO 5342 ENDDO 5343 DO K=1,LL3 5344 DO J=0,JHALO-1 5345 DO I=IBEG,IEND 5346 IC = IC + 1 5347 BUF3(IC)=ARR3(I,MYJS+J,K) 5348 ENDDO 5349 ENDDO 5350 ENDDO 5351 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 5352 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 5353 ENDIF Page 82 Source Listing EXCH111 2025-03-12 18:21 module_EXCHM.F 5354 C 5355 C-------------------------------------------------------------------- 5356 C STORE RESULTS FROM SOUTH 5357 C-------------------------------------------------------------------- 5358 C 5359 IF(MY_NEB(3).GE.0)THEN 5360 IBEG=MYIS-IHALO 5361 IEND=MYIE+IHALO 5362 IC = 0 5363 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 5364 DO K=1,LL1 5365 DO J=0,JHALO-1 5366 DO I=IBEG,IEND 5367 IC = IC + 1 5368 ARR1(I,MYJS-J-1,K)=BUF1(IC) 5369 ENDDO 5370 ENDDO 5371 ENDDO 5372 DO K=1,LL2 5373 DO J=0,JHALO-1 5374 DO I=IBEG,IEND 5375 IC = IC + 1 5376 ARR2(I,MYJS-J-1,K)=BUF1(IC) 5377 ENDDO 5378 ENDDO 5379 ENDDO 5380 DO K=1,LL3 5381 DO J=0,JHALO-1 5382 DO I=IBEG,IEND 5383 IC = IC + 1 5384 ARR3(I,MYJS-J-1,K)=BUF1(IC) 5385 ENDDO 5386 ENDDO 5387 ENDDO 5388 ENDIF 5389 C 5390 C-------------------------------------------------------------------- 5391 C STORE FROM NORTH 5392 C-------------------------------------------------------------------- 5393 C 5394 IF(MY_NEB(1).GE.0)THEN 5395 IBEG=MYIS-IHALO 5396 IEND=MYIE+IHALO 5397 IC = 0 5398 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 5399 DO K=1,LL1 5400 DO J=0,JHALO-1 5401 DO I=IBEG,IEND 5402 IC = IC + 1 5403 ARR1(I,MYJE+J+1,K)=BUF0(IC) 5404 ENDDO 5405 ENDDO 5406 ENDDO 5407 DO K=1,LL2 5408 DO J=0,JHALO-1 5409 DO I=IBEG,IEND 5410 IC = IC + 1 Page 83 Source Listing EXCH111 2025-03-12 18:21 module_EXCHM.F 5411 ARR2(I,MYJE+J+1,K)=BUF0(IC) 5412 ENDDO 5413 ENDDO 5414 ENDDO 5415 DO K=1,LL3 5416 DO J=0,JHALO-1 5417 DO I=IBEG,IEND 5418 IC = IC + 1 5419 ARR3(I,MYJE+J+1,K)=BUF0(IC) 5420 ENDDO 5421 ENDDO 5422 ENDDO 5423 ENDIF 5424 C 5425 IF(MY_NEB(1).GE.0)THEN 5426 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 5427 ENDIF 5428 C 5429 IF(MY_NEB(3).GE.0)THEN 5430 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 5431 ENDIF 5432 C 5433 C-------------------------------------------------------------------- 5434 C-------------------------------------------------------------------- 5435 C*** 5436 C*** EAST/WEST 5437 C*** 5438 C-------------------------------------------------------------------- 5439 C-------------------------------------------------------------------- 5440 C 5441 C-------------------------------------------------------------------- 5442 C RECEIVE FROM WEST 5443 C-------------------------------------------------------------------- 5444 C 5445 IF(MY_NEB(4).GE.0)THEN 5446 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 5447 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 5448 ENDIF 5449 C 5450 C-------------------------------------------------------------------- 5451 C RECEIVE FROM EAST 5452 C-------------------------------------------------------------------- 5453 C 5454 IF(MY_NEB(2).GE.0)THEN 5455 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 5456 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 5457 ENDIF 5458 C 5459 C-------------------------------------------------------------------- 5460 C SEND TO EAST 5461 C-------------------------------------------------------------------- 5462 C 5463 IF(MY_NEB(2).GE.0)THEN 5464 IBEG=MYIE-IHALO+1 5465 IEND=MYIE 5466 IC = 0 5467 DO K=1,LL1 Page 84 Source Listing EXCH111 2025-03-12 18:21 module_EXCHM.F 5468 DO J=MYJS-JHALO,MYJE+JHALO 5469 DO I=IBEG,IEND 5470 IC = IC + 1 5471 BUF2(IC)=ARR1(I,J,K) 5472 ENDDO 5473 ENDDO 5474 ENDDO 5475 DO K=1,LL2 5476 DO J=MYJS-JHALO,MYJE+JHALO 5477 DO I=IBEG,IEND 5478 IC = IC + 1 5479 BUF2(IC)=ARR2(I,J,K) 5480 ENDDO 5481 ENDDO 5482 ENDDO 5483 DO K=1,LL3 5484 DO J=MYJS-JHALO,MYJE+JHALO 5485 DO I=IBEG,IEND 5486 IC = IC + 1 5487 BUF2(IC)=ARR3(I,J,K) 5488 ENDDO 5489 ENDDO 5490 ENDDO 5491 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 5492 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 5493 ENDIF 5494 C 5495 C-------------------------------------------------------------------- 5496 C SEND TO WEST 5497 C-------------------------------------------------------------------- 5498 C 5499 IF(MY_NEB(4).GE.0)THEN 5500 NEBPE=MY_NEB(4) 5501 IBEG=MYIS 5502 IEND=MYIS+IHALO-1 5503 IC = 0 5504 DO K=1,LL1 5505 DO J=MYJS-JHALO,MYJE+JHALO 5506 DO I=IBEG,IEND 5507 IC = IC + 1 5508 BUF3(IC)=ARR1(I,J,K) 5509 ENDDO 5510 ENDDO 5511 ENDDO 5512 DO K=1,LL2 5513 DO J=MYJS-JHALO,MYJE+JHALO 5514 DO I=IBEG,IEND 5515 IC = IC + 1 5516 BUF3(IC)=ARR2(I,J,K) 5517 ENDDO 5518 ENDDO 5519 ENDDO 5520 DO K=1,LL3 5521 DO J=MYJS-JHALO,MYJE+JHALO 5522 DO I=IBEG,IEND 5523 IC = IC + 1 5524 BUF3(IC)=ARR3(I,J,K) Page 85 Source Listing EXCH111 2025-03-12 18:21 module_EXCHM.F 5525 ENDDO 5526 ENDDO 5527 ENDDO 5528 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 5529 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 5530 ENDIF 5531 C 5532 C-------------------------------------------------------------------- 5533 C STORE FROM WEST 5534 C-------------------------------------------------------------------- 5535 C 5536 IF(MY_NEB(4).GE.0)THEN 5537 IBEG=MYIS-IHALO 5538 IEND=MYIS-1 5539 IC = 0 5540 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 5541 DO K=1,LL1 5542 DO J=MYJS-JHALO,MYJE+JHALO 5543 DO I=IBEG,IEND 5544 IC = IC + 1 5545 ARR1(I,J,K)=BUF0(IC) 5546 ENDDO 5547 ENDDO 5548 ENDDO 5549 DO K=1,LL2 5550 DO J=MYJS-JHALO,MYJE+JHALO 5551 DO I=IBEG,IEND 5552 IC = IC + 1 5553 ARR2(I,J,K)=BUF0(IC) 5554 ENDDO 5555 ENDDO 5556 ENDDO 5557 DO K=1,LL3 5558 DO J=MYJS-JHALO,MYJE+JHALO 5559 DO I=IBEG,IEND 5560 IC = IC + 1 5561 ARR3(I,J,K)=BUF0(IC) 5562 ENDDO 5563 ENDDO 5564 ENDDO 5565 ENDIF 5566 C 5567 C-------------------------------------------------------------------- 5568 C STORE FROM EAST 5569 C-------------------------------------------------------------------- 5570 C 5571 IF(MY_NEB(2).GE.0)THEN 5572 IBEG=MYIE+1 5573 IEND=MYIE+IHALO 5574 IC = 0 5575 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 5576 DO K=1,LL1 5577 DO J=MYJS-JHALO,MYJE+JHALO 5578 DO I=IBEG,IEND 5579 IC = IC + 1 5580 ARR1(I,J,K)=BUF1(IC) 5581 ENDDO Page 86 Source Listing EXCH111 2025-03-12 18:21 module_EXCHM.F 5582 ENDDO 5583 ENDDO 5584 DO K=1,LL2 5585 DO J=MYJS-JHALO,MYJE+JHALO 5586 DO I=IBEG,IEND 5587 IC = IC + 1 5588 ARR2(I,J,K)=BUF1(IC) 5589 ENDDO 5590 ENDDO 5591 ENDDO 5592 DO K=1,LL3 5593 DO J=MYJS-JHALO,MYJE+JHALO 5594 DO I=IBEG,IEND 5595 IC = IC + 1 5596 ARR3(I,J,K)=BUF1(IC) 5597 ENDDO 5598 ENDDO 5599 ENDDO 5600 ENDIF 5601 C 5602 IF(MY_NEB(4).GE.0)THEN 5603 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 5604 ENDIF 5605 C 5606 IF(MY_NEB(2).GE.0)THEN 5607 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 5608 ENDIF 5609 C 5610 C-------------------------------------------------------------------- 5611 END SUBROUTINE Page 87 Source Listing EXCH111 2025-03-12 18:21 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 4600 R(4) 4 3 0 ARG,INOUT 5295,5331,5368,5403,5471,5508,5545 ,5580 ARR2 Dummy 4600 R(4) 4 3 0 ARG,INOUT 5303,5339,5376,5411,5479,5516,5553 ,5588 ARR3 Dummy 4600 R(4) 4 3 0 ARG,INOUT 5311,5347,5384,5419,5487,5524,5561 ,5596 BUF0 Local 5270 R(4) 4 1 2500000 5270,5403,5411,5419,5446,5545,5553 ,5561 BUF1 Local 5279 R(4) 4 1 2500000 5279,5368,5376,5384,5455,5580,5588 ,5596 BUF2 Local 5295 R(4) 4 1 2500000 5295,5303,5311,5315,5471,5479,5487 ,5491 BUF3 Local 5331 R(4) 4 1 2500000 5331,5339,5347,5351,5508,5516,5524 ,5528 EXCH111 Subr 4600 EXCH_BUF_REAL Module 4601 4601 GLB_TABLE Common 5225 128 SAVE I Local 5293 I(4) 4 scalar 5293,5295,5301,5303,5309,5311,5329 ,5331,5337,5339,5345,5347,5366,536 8,5374,5376,5382,5384,5401,5403,54 09,5411,5417,5419,5469,5471,5477,5 479,5485,5487,5506,5508,5514,5516, 5522,5524,5543,5545,5551,5553,5559 ,5561,5578,5580,5586,5588,5594,559 6 IBEG Local 5288 I(4) 4 scalar 5288,5293,5301,5309,5324,5329,5337 ,5345,5360,5366,5374,5382,5395,540 1,5409,5417,5464,5469,5477,5485,55 01,5506,5514,5522,5537,5543,5551,5 559,5572,5578,5586,5594 IBUFEXCH Param 5270 I(4) 4 scalar 5270,5279,5446,5455 IC Local 5290 I(4) 4 scalar 5290,5294,5295,5302,5303,5310,5311 ,5315,5326,5330,5331,5338,5339,534 6,5347,5351,5362,5367,5368,5375,53 76,5383,5384,5397,5402,5403,5410,5 411,5418,5419,5466,5470,5471,5478, 5479,5486,5487,5491,5503,5507,5508 ,5515,5516,5523,5524,5528,5539,554 4,5545,5552,5553,5560,5561,5574,55 79,5580,5587,5588,5595,5596 IDIM1 Param 4621 I(4) 4 scalar 5249,5250,5251 IDIM2 Param 4621 I(4) 4 scalar 5249,5250,5251 IEND Local 5289 I(4) 4 scalar 5289,5293,5301,5309,5325,5329,5337 ,5345,5361,5366,5374,5382,5396,540 Page 88 Source Listing EXCH111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 1,5409,5417,5465,5469,5477,5485,55 02,5506,5514,5522,5538,5543,5551,5 559,5573,5578,5586,5594 IERR Local 5363 I(4) 4 scalar 5363,5398,5426,5430,5540,5575,5603 ,5607 IGSTL Param 4616 I(4) 4 scalar 4621 IGSTR Param 4616 I(4) 4 scalar 4621 IHALO Dummy 4600 I(4) 4 scalar ARG,INOUT 5288,5289,5324,5325,5360,5361,5395 ,5396,5464,5502,5537,5573 IHANDLE Local 5248 I(4) 4 1 4 5271,5280,5316,5352,5363,5398,5426 ,5430,5447,5456,5492,5529,5540,557 5,5603,5607 IM Param 4605 I(4) 4 scalar 4618,4621,5231,5232,5233,5234,5235 ,5239,5240,5245 INPES Param 4613 I(4) 4 scalar 4618,4621,5215,5216,5217,5226,5227 IRECV Local 5271 I(4) 4 scalar 5271,5280,5447,5456 ISEND Local 5316 I(4) 4 scalar 5316,5352,5492,5529 ISTAT Local 5247 I(4) 4 1 5 5363,5398,5426,5430,5540,5575,5603 ,5607 ITAIL Param 4618 I(4) 4 scalar ITYPE Local 5255 I(4) 4 scalar 5255,5270,5279,5315,5351,5446,5455 ,5491,5528 J Local 5292 I(4) 4 scalar 5292,5295,5300,5303,5308,5311,5328 ,5331,5336,5339,5344,5347,5365,536 8,5373,5376,5381,5384,5400,5403,54 08,5411,5416,5419,5468,5471,5476,5 479,5484,5487,5505,5508,5513,5516, 5521,5524,5542,5545,5550,5553,5558 ,5561,5577,5580,5585,5588,5593,559 6 JDIM1 Param 4622 I(4) 4 scalar 5249,5250,5251 JDIM2 Param 4622 I(4) 4 scalar 5249,5250,5251 JGSTL Param 4617 I(4) 4 scalar 4622 JGSTR Param 4617 I(4) 4 scalar 4622 JHALO Dummy 4600 I(4) 4 scalar ARG,INOUT 5292,5300,5308,5328,5336,5344,5365 ,5373,5381,5400,5408,5416,5468,547 6,5484,5505,5513,5521,5542,5550,55 58,5577,5585,5593 JM Param 4605 I(4) 4 scalar 4619,4622,5231,5232,5233,5234,5235 ,5239,5240,5245 JNPES Param 4613 I(4) 4 scalar 4619,4622,5215,5216,5217,5226,5227 JTAIL Param 4619 I(4) 4 scalar K Local 5291 I(4) 4 scalar 5291,5295,5299,5303,5307,5311,5327 ,5331,5335,5339,5343,5347,5364,536 8,5372,5376,5380,5384,5399,5403,54 07,5411,5415,5419,5467,5471,5475,5 479,5483,5487,5504,5508,5512,5516, 5520,5524,5541,5545,5549,5553,5557 ,5561,5576,5580,5584,5588,5592,559 6 LL1 Dummy 4600 I(4) 4 scalar ARG,INOUT 5291,5327,5364,5399,5467,5504,5541 ,5576 LL2 Dummy 4600 I(4) 4 scalar ARG,INOUT 5299,5335,5372,5407,5475,5512,5549 ,5584 LL3 Dummy 4600 I(4) 4 scalar ARG,INOUT 5307,5343,5380,5415,5483,5520,5557 Page 89 Source Listing EXCH111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,5592 LM Param 4605 I(4) 4 scalar 5240 LSM Param 4605 I(4) 4 scalar MAPPINGS Common 5244 5024 SAVE MPIFCMB5 Common 5175 4 SAVE MPIFCMB9 Common 5176 4 SAVE MPIPRIV1 Common 5180 28 SAVE MPIPRIV2 Common 5182 24 SAVE MPIPRIVC Common 5185 2 SAVE MPI_2DOUBLE_PRECISION Param 4921 I(4) 4 scalar MPI_2INT Param 5005 I(4) 4 scalar MPI_2INTEGER Param 4919 I(4) 4 scalar MPI_2REAL Param 4923 I(4) 4 scalar MPI_ADDRESS_KIND Param 4957 I(4) 4 scalar MPI_AINT Param 5035 I(4) 4 scalar MPI_ANY_SOURCE Param 4887 I(4) 4 scalar MPI_ANY_TAG Param 4889 I(4) 4 scalar MPI_APPNUM Param 4851 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 5157 L(4) 4 scalar MPI_BAND Param 4795 I(4) 4 scalar MPI_BOR Param 4799 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 4883 I(4) 4 scalar MPI_BXOR Param 4803 I(4) 4 scalar MPI_BYTE Param 4927 I(4) 4 scalar MPI_CART Param 4895 I(4) 4 scalar MPI_CHAR Param 4965 I(4) 4 scalar MPI_CHARACTER Param 4925 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 5053 I(4) 4 scalar MPI_COMBINER_DARRAY Param 5075 I(4) 4 scalar MPI_COMBINER_DUP Param 5051 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 5079 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 5081 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 5077 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 5065 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 5085 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 5063 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 5059 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 5057 I(4) 4 scalar MPI_COMBINER_INDEXED Param 5061 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 5067 I(4) 4 scalar MPI_COMBINER_NAMED Param 5049 I(4) 4 scalar MPI_COMBINER_RESIZED Param 5083 I(4) 4 scalar MPI_COMBINER_STRUCT Param 5071 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 5069 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 5073 I(4) 4 scalar MPI_COMBINER_VECTOR Param 5055 I(4) 4 scalar MPI_COMM_DUP_FN Subr 5164 scalar MPI_COMM_NULL Param 4819 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 5165 scalar MPI_COMM_NULL_DELETE_FN Subr 5164 scalar Page 90 Source Listing EXCH111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_SELF Param 4815 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 5103 I(4) 4 scalar MPI_COMM_WORLD Param 4813 I(4) 4 scalar MPI_COMPLEX Param 4907 I(4) 4 scalar MPI_COMPLEX16 Param 4953 I(4) 4 scalar MPI_COMPLEX32 Param 4955 I(4) 4 scalar MPI_COMPLEX8 Param 4951 I(4) 4 scalar MPI_CONGRUENT Param 4767 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 5170 scalar MPI_COUNT Param 5039 I(4) 4 scalar MPI_COUNT_KIND Param 4961 I(4) 4 scalar MPI_CXX_BOOL Param 5041 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 5045 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 5043 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 5047 I(4) 4 scalar MPI_C_BOOL Param 5025 I(4) 4 scalar MPI_C_COMPLEX Param 5029 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 5031 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 5027 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 5033 I(4) 4 scalar MPI_DATATYPE_NULL Param 4829 I(4) 4 scalar 4944,5042,5044,5046,5048 MPI_DISPLACEMENT_CURRENT Param 5153 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 5145 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 5147 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 5151 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 5149 I(4) 4 scalar MPI_DIST_GRAPH Param 4897 I(4) 4 scalar MPI_DOUBLE Param 4987 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 4909 I(4) 4 scalar MPI_DOUBLE_INT Param 4999 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 4915 I(4) 4 scalar MPI_DUP_FN Subr 5161 scalar MPI_ERRHANDLER_NULL Param 4833 I(4) 4 scalar MPI_ERROR Param 4634 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 4761 I(4) 4 scalar MPI_ERRORS_RETURN Param 4763 I(4) 4 scalar MPI_ERR_ACCESS Param 4753 I(4) 4 scalar MPI_ERR_AMODE Param 4739 I(4) 4 scalar MPI_ERR_ARG Param 4709 I(4) 4 scalar MPI_ERR_ASSERT Param 4715 I(4) 4 scalar MPI_ERR_BAD_FILE Param 4677 I(4) 4 scalar MPI_ERR_BASE Param 4707 I(4) 4 scalar MPI_ERR_BUFFER Param 4649 I(4) 4 scalar MPI_ERR_COMM Param 4727 I(4) 4 scalar MPI_ERR_CONVERSION Param 4743 I(4) 4 scalar MPI_ERR_COUNT Param 4653 I(4) 4 scalar MPI_ERR_DIMS Param 4691 I(4) 4 scalar MPI_ERR_DISP Param 4675 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 4657 I(4) 4 scalar MPI_ERR_FILE Param 4687 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 4669 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 4711 I(4) 4 scalar MPI_ERR_GROUP Param 4673 I(4) 4 scalar MPI_ERR_INFO Param 4701 I(4) 4 scalar Page 91 Source Listing EXCH111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO_KEY Param 4705 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 4685 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 4671 I(4) 4 scalar MPI_ERR_INTERN Param 4703 I(4) 4 scalar MPI_ERR_IN_STATUS Param 4689 I(4) 4 scalar MPI_ERR_IO Param 4749 I(4) 4 scalar MPI_ERR_KEYVAL Param 4695 I(4) 4 scalar MPI_ERR_LASTCODE Param 4717 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 4699 I(4) 4 scalar MPI_ERR_NAME Param 4693 I(4) 4 scalar MPI_ERR_NOT_SAME Param 4721 I(4) 4 scalar MPI_ERR_NO_MEM Param 4713 I(4) 4 scalar MPI_ERR_NO_SPACE Param 4645 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 4729 I(4) 4 scalar MPI_ERR_OP Param 4747 I(4) 4 scalar MPI_ERR_OTHER Param 4661 I(4) 4 scalar MPI_ERR_PENDING Param 4651 I(4) 4 scalar MPI_ERR_PORT Param 4733 I(4) 4 scalar MPI_ERR_QUOTA Param 4737 I(4) 4 scalar MPI_ERR_RANK Param 4659 I(4) 4 scalar MPI_ERR_READ_ONLY Param 4697 I(4) 4 scalar MPI_ERR_REQUEST Param 4741 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 4663 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 4667 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 4683 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 4745 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 4735 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 4647 I(4) 4 scalar MPI_ERR_ROOT Param 4679 I(4) 4 scalar MPI_ERR_SERVICE Param 4655 I(4) 4 scalar MPI_ERR_SIZE Param 4665 I(4) 4 scalar MPI_ERR_SPAWN Param 4725 I(4) 4 scalar MPI_ERR_TAG Param 4755 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 4759 I(4) 4 scalar MPI_ERR_TRUNCATE Param 4719 I(4) 4 scalar MPI_ERR_TYPE Param 4723 I(4) 4 scalar MPI_ERR_UNKNOWN Param 4757 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 4681 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 4731 I(4) 4 scalar MPI_ERR_WIN Param 4751 I(4) 4 scalar MPI_FILE_NULL Param 4823 I(4) 4 scalar MPI_FLOAT Param 4985 I(4) 4 scalar MPI_FLOAT_INT Param 4997 I(4) 4 scalar MPI_GRAPH Param 4893 I(4) 4 scalar MPI_GROUP_EMPTY Param 4817 I(4) 4 scalar MPI_GROUP_NULL Param 4825 I(4) 4 scalar MPI_HOST Param 4841 I(4) 4 scalar MPI_IDENT Param 4765 I(4) 4 scalar MPI_INFO_ENV Param 4837 I(4) 4 scalar MPI_INFO_NULL Param 4835 I(4) 4 scalar MPI_INT Param 4977 I(4) 4 scalar MPI_INT16_T Param 5011 I(4) 4 scalar MPI_INT32_T Param 5013 I(4) 4 scalar Page 92 Source Listing EXCH111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INT64_T Param 5015 I(4) 4 scalar MPI_INT8_T Param 5009 I(4) 4 scalar MPI_INTEGER Param 4917 I(4) 4 scalar MPI_INTEGER1 Param 4935 I(4) 4 scalar MPI_INTEGER16 Param 4943 I(4) 4 scalar MPI_INTEGER2 Param 4937 I(4) 4 scalar MPI_INTEGER4 Param 4939 I(4) 4 scalar MPI_INTEGER8 Param 4941 I(4) 4 scalar MPI_INTEGER_KIND Param 4963 I(4) 4 scalar MPI_IO Param 4843 I(4) 4 scalar MPI_IRECV Subr 5270 5270,5279,5446,5455 MPI_ISEND Subr 5315 5315,5351,5491,5528 MPI_KEYVAL_INVALID Param 4881 I(4) 4 scalar MPI_LAND Param 4793 I(4) 4 scalar MPI_LASTUSEDCODE Param 4849 I(4) 4 scalar MPI_LB Param 4931 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 4903 I(4) 4 scalar MPI_LOCK_SHARED Param 4905 I(4) 4 scalar MPI_LOGICAL Param 4911 I(4) 4 scalar MPI_LONG Param 4981 I(4) 4 scalar MPI_LONG_DOUBLE Param 4989 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 5007 I(4) 4 scalar MPI_LONG_INT Param 5001 I(4) 4 scalar MPI_LONG_LONG Param 4995 I(4) 4 scalar MPI_LONG_LONG_INT Param 4991 I(4) 4 scalar MPI_LOR Param 4797 I(4) 4 scalar MPI_LXOR Param 4801 I(4) 4 scalar MPI_MAX Param 4785 I(4) 4 scalar MPI_MAXLOC Param 4807 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 4875 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 4863 I(4) 4 scalar MPI_MAX_INFO_KEY Param 4869 I(4) 4 scalar MPI_MAX_INFO_VAL Param 4871 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 4877 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 4867 I(4) 4 scalar MPI_MAX_PORT_NAME Param 4865 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 4873 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 5107 I(4) 4 scalar MPI_MESSAGE_NULL Param 5105 I(4) 4 scalar MPI_MIN Param 4787 I(4) 4 scalar MPI_MINLOC Param 4805 I(4) 4 scalar MPI_MODE_APPEND Param 5131 I(4) 4 scalar MPI_MODE_CREATE Param 5127 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 5123 I(4) 4 scalar MPI_MODE_EXCL Param 5129 I(4) 4 scalar MPI_MODE_NOCHECK Param 5093 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 5099 I(4) 4 scalar MPI_MODE_NOPUT Param 5097 I(4) 4 scalar MPI_MODE_NOSTORE Param 5095 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 5101 I(4) 4 scalar MPI_MODE_RDONLY Param 5117 I(4) 4 scalar MPI_MODE_RDWR Param 5119 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 5133 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 5125 I(4) 4 scalar Page 93 Source Listing EXCH111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_WRONLY Param 5121 I(4) 4 scalar MPI_NO_OP Param 4811 I(4) 4 scalar MPI_NULL_COPY_FN Subr 5161 scalar MPI_NULL_DELETE_FN Subr 5161 scalar MPI_OFFSET Param 5037 I(4) 4 scalar MPI_OFFSET_KIND Param 4959 I(4) 4 scalar MPI_OP_NULL Param 4827 I(4) 4 scalar MPI_ORDER_C Param 5141 I(4) 4 scalar MPI_ORDER_FORTRAN Param 5143 I(4) 4 scalar MPI_PACKED Param 4933 I(4) 4 scalar MPI_PROC_NULL Param 4885 I(4) 4 scalar MPI_PROD Param 4791 I(4) 4 scalar MPI_REAL Param 4913 I(4) 4 scalar 5255 MPI_REAL16 Param 4949 I(4) 4 scalar MPI_REAL4 Param 4945 I(4) 4 scalar MPI_REAL8 Param 4947 I(4) 4 scalar MPI_REPLACE Param 4809 I(4) 4 scalar MPI_REQUEST_NULL Param 4831 I(4) 4 scalar MPI_ROOT Param 4891 I(4) 4 scalar MPI_SEEK_CUR Param 5137 I(4) 4 scalar MPI_SEEK_END Param 5139 I(4) 4 scalar MPI_SEEK_SET Param 5135 I(4) 4 scalar MPI_SHORT Param 4973 I(4) 4 scalar MPI_SHORT_INT Param 5003 I(4) 4 scalar MPI_SIGNED_CHAR Param 4967 I(4) 4 scalar MPI_SIMILAR Param 4769 I(4) 4 scalar MPI_SOURCE Param 4634 I(4) 4 scalar MPI_STATUS_SIZE Param 4636 I(4) 4 scalar 4638,4639,5247 MPI_SUBARRAYS_SUPPORTED Param 5155 L(4) 4 scalar MPI_SUBVERSION Param 4901 I(4) 4 scalar MPI_SUCCESS Param 4643 I(4) 4 scalar MPI_SUM Param 4789 I(4) 4 scalar MPI_TAG Param 4634 I(4) 4 scalar MPI_TAG_UB Param 4839 I(4) 4 scalar MPI_THREAD_FUNNELED Param 5111 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 5115 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 5113 I(4) 4 scalar MPI_THREAD_SINGLE Param 5109 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 5091 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 5089 I(4) 4 scalar MPI_TYPECLASS_REAL Param 5087 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 5168 scalar MPI_TYPE_NULL_COPY_FN Subr 5169 scalar MPI_TYPE_NULL_DELETE_FN Subr 5168 scalar MPI_UB Param 4929 I(4) 4 scalar MPI_UINT16_T Param 5019 I(4) 4 scalar MPI_UINT32_T Param 5021 I(4) 4 scalar MPI_UINT64_T Param 5023 I(4) 4 scalar MPI_UINT8_T Param 5017 I(4) 4 scalar MPI_UNDEFINED Param 4879 I(4) 4 scalar MPI_UNEQUAL Param 4771 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 4847 I(4) 4 scalar MPI_UNSIGNED Param 4979 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 4969 I(4) 4 scalar MPI_UNSIGNED_LONG Param 4983 I(4) 4 scalar Page 94 Source Listing EXCH111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNSIGNED_LONG_LONG Param 4993 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 4975 I(4) 4 scalar MPI_VERSION Param 4899 I(4) 4 scalar MPI_WAIT Subr 5363 5363,5398,5426,5430,5540,5575,5603 ,5607 MPI_WCHAR Param 4971 I(4) 4 scalar MPI_WIN_BASE Param 4853 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 4859 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 4857 I(4) 4 scalar MPI_WIN_DUP_FN Subr 5166 scalar MPI_WIN_FLAVOR_ALLOCATE Param 4775 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 4773 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 4777 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 4779 I(4) 4 scalar MPI_WIN_MODEL Param 4861 I(4) 4 scalar MPI_WIN_NULL Param 4821 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 5167 scalar MPI_WIN_NULL_DELETE_FN Subr 5166 scalar MPI_WIN_SEPARATE Param 4781 I(4) 4 scalar MPI_WIN_SIZE Param 4855 I(4) 4 scalar MPI_WIN_UNIFIED Param 4783 I(4) 4 scalar MPI_WTICK Func 5162 R(8) 8 scalar MPI_WTIME Func 5162 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 4845 I(4) 4 scalar MPPCOM Common 5189 1464 SAVE NEBPE Local 5500 I(4) 4 scalar 5500 PMPI_WTICK Func 5163 R(8) 8 scalar PMPI_WTIME Func 5163 R(8) 8 scalar TEMPCOM Common 5230 6603768 SAVE TOPO Common 5238 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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:21 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 5271,5280,5316,5352,5447,5456,5492 ,5529 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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 5289,5325,5361,5396,5464,5465,5572 ,5573 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 5288,5324,5360,5395,5501,5502,5537 ,5538 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:21 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 5295,5303,5311,5403,5411,5419,5468 ,5476,5484,5505,5513,5521,5542,555 0,5558,5577,5585,5593 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 5331,5339,5347,5368,5376,5384,5468 ,5476,5484,5505,5513,5521,5542,555 0,5558,5577,5585,5593 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:21 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 5315,5351,5491,5528 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 5269,5270,5278,5279,5287,5315,5323 ,5351,5359,5394,5425,5429,5445,544 6,5454,5455,5463,5491,5499,5500,55 28,5536,5571,5602,5606 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:21 module_EXCHM.F 5612 5613 SUBROUTINE EXCH1111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 5614 * ARR4,LL4,IHALO,JHALO) 5615 USE EXCH_BUF_REAL 5616 INCLUDE "parmeta" 5639 INCLUDE "mpif.h" 6201 INCLUDE "mpp.h" 6202 C----------------------------------------------------------------------- 6261 INTEGER ISTAT(MPI_STATUS_SIZE) 6262 INTEGER IHANDLE(4) 6263 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 6264 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 6265 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 6266 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 6267 C 6268 C*********************************************************************** 6269 C 6270 ITYPE=MPI_REAL 6271 C 6272 C-------------------------------------------------------------------- 6273 C-------------------------------------------------------------------- 6274 C*** 6275 C*** NORTH/SOUTH 6276 C*** 6277 C-------------------------------------------------------------------- 6278 C-------------------------------------------------------------------- 6279 C 6280 C-------------------------------------------------------------------- 6281 C RECEIVE FROM NORTH 6282 C-------------------------------------------------------------------- 6283 C 6284 IF(MY_NEB(1).GE.0)THEN 6285 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 6286 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 6287 ENDIF 6288 C 6289 C-------------------------------------------------------------------- 6290 C RECEIVE FROM SOUTH 6291 C-------------------------------------------------------------------- 6292 C 6293 IF(MY_NEB(3).GE.0)THEN 6294 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 6295 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 6296 ENDIF 6297 C 6298 C-------------------------------------------------------------------- 6299 C SEND TO NORTH 6300 C-------------------------------------------------------------------- 6301 C 6302 IF(MY_NEB(1).GE.0)THEN 6303 IBEG=MYIS-IHALO 6304 IEND=MYIE+IHALO 6305 IC = 0 6306 DO K=1,LL1 6307 DO J=0,JHALO-1 6308 DO I=IBEG,IEND 6309 IC = IC + 1 Page 99 Source Listing EXCH1111 2025-03-12 18:21 module_EXCHM.F 6310 BUF2(IC)=ARR1(I,MYJE-J,K) 6311 ENDDO 6312 ENDDO 6313 ENDDO 6314 DO K=1,LL2 6315 DO J=0,JHALO-1 6316 DO I=IBEG,IEND 6317 IC = IC + 1 6318 BUF2(IC)=ARR2(I,MYJE-J,K) 6319 ENDDO 6320 ENDDO 6321 ENDDO 6322 DO K=1,LL3 6323 DO J=0,JHALO-1 6324 DO I=IBEG,IEND 6325 IC = IC + 1 6326 BUF2(IC)=ARR3(I,MYJE-J,K) 6327 ENDDO 6328 ENDDO 6329 ENDDO 6330 DO K=1,LL4 6331 DO J=0,JHALO-1 6332 DO I=IBEG,IEND 6333 IC = IC + 1 6334 BUF2(IC)=ARR4(I,MYJE-J,K) 6335 ENDDO 6336 ENDDO 6337 ENDDO 6338 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 6339 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 6340 ENDIF 6341 C 6342 C-------------------------------------------------------------------- 6343 C SEND TO SOUTH 6344 C-------------------------------------------------------------------- 6345 C 6346 IF(MY_NEB(3).GE.0)THEN 6347 IBEG=MYIS-IHALO 6348 IEND=MYIE+IHALO 6349 IC = 0 6350 DO K=1,LL1 6351 DO J=0,JHALO-1 6352 DO I=IBEG,IEND 6353 IC = IC + 1 6354 BUF3(IC)=ARR1(I,MYJS+J,K) 6355 ENDDO 6356 ENDDO 6357 ENDDO 6358 DO K=1,LL2 6359 DO J=0,JHALO-1 6360 DO I=IBEG,IEND 6361 IC = IC + 1 6362 BUF3(IC)=ARR2(I,MYJS+J,K) 6363 ENDDO 6364 ENDDO 6365 ENDDO 6366 DO K=1,LL3 Page 100 Source Listing EXCH1111 2025-03-12 18:21 module_EXCHM.F 6367 DO J=0,JHALO-1 6368 DO I=IBEG,IEND 6369 IC = IC + 1 6370 BUF3(IC)=ARR3(I,MYJS+J,K) 6371 ENDDO 6372 ENDDO 6373 ENDDO 6374 DO K=1,LL4 6375 DO J=0,JHALO-1 6376 DO I=IBEG,IEND 6377 IC = IC + 1 6378 BUF3(IC)=ARR4(I,MYJS+J,K) 6379 ENDDO 6380 ENDDO 6381 ENDDO 6382 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 6383 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 6384 ENDIF 6385 C 6386 C-------------------------------------------------------------------- 6387 C STORE RESULTS FROM SOUTH 6388 C-------------------------------------------------------------------- 6389 C 6390 IF(MY_NEB(3).GE.0)THEN 6391 IBEG=MYIS-IHALO 6392 IEND=MYIE+IHALO 6393 IC = 0 6394 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 6395 DO K=1,LL1 6396 DO J=0,JHALO-1 6397 DO I=IBEG,IEND 6398 IC = IC + 1 6399 ARR1(I,MYJS-J-1,K)=BUF1(IC) 6400 ENDDO 6401 ENDDO 6402 ENDDO 6403 DO K=1,LL2 6404 DO J=0,JHALO-1 6405 DO I=IBEG,IEND 6406 IC = IC + 1 6407 ARR2(I,MYJS-J-1,K)=BUF1(IC) 6408 ENDDO 6409 ENDDO 6410 ENDDO 6411 DO K=1,LL3 6412 DO J=0,JHALO-1 6413 DO I=IBEG,IEND 6414 IC = IC + 1 6415 ARR3(I,MYJS-J-1,K)=BUF1(IC) 6416 ENDDO 6417 ENDDO 6418 ENDDO 6419 DO K=1,LL4 6420 DO J=0,JHALO-1 6421 DO I=IBEG,IEND 6422 IC = IC + 1 6423 ARR4(I,MYJS-J-1,K)=BUF1(IC) Page 101 Source Listing EXCH1111 2025-03-12 18:21 module_EXCHM.F 6424 ENDDO 6425 ENDDO 6426 ENDDO 6427 ENDIF 6428 C 6429 C-------------------------------------------------------------------- 6430 C STORE FROM NORTH 6431 C-------------------------------------------------------------------- 6432 C 6433 IF(MY_NEB(1).GE.0)THEN 6434 IBEG=MYIS-IHALO 6435 IEND=MYIE+IHALO 6436 IC = 0 6437 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 6438 DO K=1,LL1 6439 DO J=0,JHALO-1 6440 DO I=IBEG,IEND 6441 IC = IC + 1 6442 ARR1(I,MYJE+J+1,K)=BUF0(IC) 6443 ENDDO 6444 ENDDO 6445 ENDDO 6446 DO K=1,LL2 6447 DO J=0,JHALO-1 6448 DO I=IBEG,IEND 6449 IC = IC + 1 6450 ARR2(I,MYJE+J+1,K)=BUF0(IC) 6451 ENDDO 6452 ENDDO 6453 ENDDO 6454 DO K=1,LL3 6455 DO J=0,JHALO-1 6456 DO I=IBEG,IEND 6457 IC = IC + 1 6458 ARR3(I,MYJE+J+1,K)=BUF0(IC) 6459 ENDDO 6460 ENDDO 6461 ENDDO 6462 DO K=1,LL4 6463 DO J=0,JHALO-1 6464 DO I=IBEG,IEND 6465 IC = IC + 1 6466 ARR4(I,MYJE+J+1,K)=BUF0(IC) 6467 ENDDO 6468 ENDDO 6469 ENDDO 6470 ENDIF 6471 C 6472 IF(MY_NEB(1).GE.0)THEN 6473 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 6474 ENDIF 6475 C 6476 IF(MY_NEB(3).GE.0)THEN 6477 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 6478 ENDIF 6479 C 6480 C-------------------------------------------------------------------- Page 102 Source Listing EXCH1111 2025-03-12 18:21 module_EXCHM.F 6481 C-------------------------------------------------------------------- 6482 C*** 6483 C*** EAST/WEST 6484 C*** 6485 C-------------------------------------------------------------------- 6486 C-------------------------------------------------------------------- 6487 C 6488 C-------------------------------------------------------------------- 6489 C RECEIVE FROM WEST 6490 C-------------------------------------------------------------------- 6491 C 6492 IF(MY_NEB(4).GE.0)THEN 6493 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 6494 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 6495 ENDIF 6496 C 6497 C-------------------------------------------------------------------- 6498 C RECEIVE FROM EAST 6499 C-------------------------------------------------------------------- 6500 C 6501 IF(MY_NEB(2).GE.0)THEN 6502 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 6503 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 6504 ENDIF 6505 C 6506 C-------------------------------------------------------------------- 6507 C SEND TO EAST 6508 C-------------------------------------------------------------------- 6509 C 6510 IF(MY_NEB(2).GE.0)THEN 6511 NEBPE=MY_NEB(2) 6512 IBEG=MYIE-IHALO+1 6513 IEND=MYIE 6514 IC = 0 6515 DO K=1,LL1 6516 DO J=MYJS-JHALO,MYJE+JHALO 6517 DO I=IBEG,IEND 6518 IC = IC + 1 6519 BUF2(IC)=ARR1(I,J,K) 6520 ENDDO 6521 ENDDO 6522 ENDDO 6523 DO K=1,LL2 6524 DO J=MYJS-JHALO,MYJE+JHALO 6525 DO I=IBEG,IEND 6526 IC = IC + 1 6527 BUF2(IC)=ARR2(I,J,K) 6528 ENDDO 6529 ENDDO 6530 ENDDO 6531 DO K=1,LL3 6532 DO J=MYJS-JHALO,MYJE+JHALO 6533 DO I=IBEG,IEND 6534 IC = IC + 1 6535 BUF2(IC)=ARR3(I,J,K) 6536 ENDDO 6537 ENDDO Page 103 Source Listing EXCH1111 2025-03-12 18:21 module_EXCHM.F 6538 ENDDO 6539 DO K=1,LL4 6540 DO J=MYJS-JHALO,MYJE+JHALO 6541 DO I=IBEG,IEND 6542 IC = IC + 1 6543 BUF2(IC)=ARR4(I,J,K) 6544 ENDDO 6545 ENDDO 6546 ENDDO 6547 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 6548 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 6549 ENDIF 6550 C 6551 C-------------------------------------------------------------------- 6552 C SEND TO WEST 6553 C-------------------------------------------------------------------- 6554 C 6555 IF(MY_NEB(4).GE.0)THEN 6556 IBEG=MYIS 6557 IEND=MYIS+IHALO-1 6558 IC = 0 6559 DO K=1,LL1 6560 DO J=MYJS-JHALO,MYJE+JHALO 6561 DO I=IBEG,IEND 6562 IC = IC + 1 6563 BUF3(IC)=ARR1(I,J,K) 6564 ENDDO 6565 ENDDO 6566 ENDDO 6567 DO K=1,LL2 6568 DO J=MYJS-JHALO,MYJE+JHALO 6569 DO I=IBEG,IEND 6570 IC = IC + 1 6571 BUF3(IC)=ARR2(I,J,K) 6572 ENDDO 6573 ENDDO 6574 ENDDO 6575 DO K=1,LL3 6576 DO J=MYJS-JHALO,MYJE+JHALO 6577 DO I=IBEG,IEND 6578 IC = IC + 1 6579 BUF3(IC)=ARR3(I,J,K) 6580 ENDDO 6581 ENDDO 6582 ENDDO 6583 DO K=1,LL4 6584 DO J=MYJS-JHALO,MYJE+JHALO 6585 DO I=IBEG,IEND 6586 IC = IC + 1 6587 BUF3(IC)=ARR4(I,J,K) 6588 ENDDO 6589 ENDDO 6590 ENDDO 6591 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 6592 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 6593 ENDIF 6594 C Page 104 Source Listing EXCH1111 2025-03-12 18:21 module_EXCHM.F 6595 C-------------------------------------------------------------------- 6596 C STORE FROM WEST 6597 C-------------------------------------------------------------------- 6598 C 6599 IF(MY_NEB(4).GE.0)THEN 6600 IBEG=MYIS-IHALO 6601 IEND=MYIS-1 6602 IC = 0 6603 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 6604 DO K=1,LL1 6605 DO J=MYJS-JHALO,MYJE+JHALO 6606 DO I=IBEG,IEND 6607 IC = IC + 1 6608 ARR1(I,J,K)=BUF0(IC) 6609 ENDDO 6610 ENDDO 6611 ENDDO 6612 DO K=1,LL2 6613 DO J=MYJS-JHALO,MYJE+JHALO 6614 DO I=IBEG,IEND 6615 IC = IC + 1 6616 ARR2(I,J,K)=BUF0(IC) 6617 ENDDO 6618 ENDDO 6619 ENDDO 6620 DO K=1,LL3 6621 DO J=MYJS-JHALO,MYJE+JHALO 6622 DO I=IBEG,IEND 6623 IC = IC + 1 6624 ARR3(I,J,K)=BUF0(IC) 6625 ENDDO 6626 ENDDO 6627 ENDDO 6628 DO K=1,LL4 6629 DO J=MYJS-JHALO,MYJE+JHALO 6630 DO I=IBEG,IEND 6631 IC = IC + 1 6632 ARR4(I,J,K)=BUF0(IC) 6633 ENDDO 6634 ENDDO 6635 ENDDO 6636 ENDIF 6637 C 6638 C-------------------------------------------------------------------- 6639 C STORE FROM EAST 6640 C-------------------------------------------------------------------- 6641 C 6642 IF(MY_NEB(2).GE.0)THEN 6643 IBEG=MYIE+1 6644 IEND=MYIE+IHALO 6645 IC = 0 6646 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 6647 DO K=1,LL1 6648 DO J=MYJS-JHALO,MYJE+JHALO 6649 DO I=IBEG,IEND 6650 IC = IC + 1 6651 ARR1(I,J,K)=BUF1(IC) Page 105 Source Listing EXCH1111 2025-03-12 18:21 module_EXCHM.F 6652 ENDDO 6653 ENDDO 6654 ENDDO 6655 DO K=1,LL2 6656 DO J=MYJS-JHALO,MYJE+JHALO 6657 DO I=IBEG,IEND 6658 IC = IC + 1 6659 ARR2(I,J,K)=BUF1(IC) 6660 ENDDO 6661 ENDDO 6662 ENDDO 6663 DO K=1,LL3 6664 DO J=MYJS-JHALO,MYJE+JHALO 6665 DO I=IBEG,IEND 6666 IC = IC + 1 6667 ARR3(I,J,K)=BUF1(IC) 6668 ENDDO 6669 ENDDO 6670 ENDDO 6671 DO K=1,LL4 6672 DO J=MYJS-JHALO,MYJE+JHALO 6673 DO I=IBEG,IEND 6674 IC = IC + 1 6675 ARR4(I,J,K)=BUF1(IC) 6676 ENDDO 6677 ENDDO 6678 ENDDO 6679 ENDIF 6680 C 6681 IF(MY_NEB(4).GE.0)THEN 6682 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 6683 ENDIF 6684 C 6685 IF(MY_NEB(2).GE.0)THEN 6686 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 6687 ENDIF 6688 C 6689 C-------------------------------------------------------------------- 6690 END SUBROUTINE Page 106 Source Listing EXCH1111 2025-03-12 18:21 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 5613 R(4) 4 3 0 ARG,INOUT 6310,6354,6399,6442,6519,6563,6608 ,6651 ARR2 Dummy 5613 R(4) 4 3 0 ARG,INOUT 6318,6362,6407,6450,6527,6571,6616 ,6659 ARR3 Dummy 5613 R(4) 4 3 0 ARG,INOUT 6326,6370,6415,6458,6535,6579,6624 ,6667 ARR4 Dummy 5614 R(4) 4 3 0 ARG,INOUT 6334,6378,6423,6466,6543,6587,6632 ,6675 BUF0 Local 6285 R(4) 4 1 2500000 6285,6442,6450,6458,6466,6493,6608 ,6616,6624,6632 BUF1 Local 6294 R(4) 4 1 2500000 6294,6399,6407,6415,6423,6502,6651 ,6659,6667,6675 BUF2 Local 6310 R(4) 4 1 2500000 6310,6318,6326,6334,6338,6519,6527 ,6535,6543,6547 BUF3 Local 6354 R(4) 4 1 2500000 6354,6362,6370,6378,6382,6563,6571 ,6579,6587,6591 EXCH1111 Subr 5613 EXCH_BUF_REAL Module 5615 5615 GLB_TABLE Common 6239 128 SAVE I Local 6308 I(4) 4 scalar 6308,6310,6316,6318,6324,6326,6332 ,6334,6352,6354,6360,6362,6368,637 0,6376,6378,6397,6399,6405,6407,64 13,6415,6421,6423,6440,6442,6448,6 450,6456,6458,6464,6466,6517,6519, 6525,6527,6533,6535,6541,6543,6561 ,6563,6569,6571,6577,6579,6585,658 7,6606,6608,6614,6616,6622,6624,66 30,6632,6649,6651,6657,6659,6665,6 667,6673,6675 IBEG Local 6303 I(4) 4 scalar 6303,6308,6316,6324,6332,6347,6352 ,6360,6368,6376,6391,6397,6405,641 3,6421,6434,6440,6448,6456,6464,65 12,6517,6525,6533,6541,6556,6561,6 569,6577,6585,6600,6606,6614,6622, 6630,6643,6649,6657,6665,6673 IBUFEXCH Param 6285 I(4) 4 scalar 6285,6294,6493,6502 IC Local 6305 I(4) 4 scalar 6305,6309,6310,6317,6318,6325,6326 ,6333,6334,6338,6349,6353,6354,636 1,6362,6369,6370,6377,6378,6382,63 93,6398,6399,6406,6407,6414,6415,6 422,6423,6436,6441,6442,6449,6450, 6457,6458,6465,6466,6514,6518,6519 ,6526,6527,6534,6535,6542,6543,654 7,6558,6562,6563,6570,6571,6578,65 Page 107 Source Listing EXCH1111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 79,6586,6587,6591,6602,6607,6608,6 615,6616,6623,6624,6631,6632,6645, 6650,6651,6658,6659,6666,6667,6674 ,6675 IDIM1 Param 5635 I(4) 4 scalar 6263,6264,6265,6266 IDIM2 Param 5635 I(4) 4 scalar 6263,6264,6265,6266 IEND Local 6304 I(4) 4 scalar 6304,6308,6316,6324,6332,6348,6352 ,6360,6368,6376,6392,6397,6405,641 3,6421,6435,6440,6448,6456,6464,65 13,6517,6525,6533,6541,6557,6561,6 569,6577,6585,6601,6606,6614,6622, 6630,6644,6649,6657,6665,6673 IERR Local 6394 I(4) 4 scalar 6394,6437,6473,6477,6603,6646,6682 ,6686 IGSTL Param 5630 I(4) 4 scalar 5635 IGSTR Param 5630 I(4) 4 scalar 5635 IHALO Dummy 5614 I(4) 4 scalar ARG,INOUT 6303,6304,6347,6348,6391,6392,6434 ,6435,6512,6557,6600,6644 IHANDLE Local 6262 I(4) 4 1 4 6286,6295,6339,6383,6394,6437,6473 ,6477,6494,6503,6548,6592,6603,664 6,6682,6686 IM Param 5619 I(4) 4 scalar 5632,5635,6245,6246,6247,6248,6249 ,6253,6254,6259 INPES Param 5627 I(4) 4 scalar 5632,5635,6229,6230,6231,6240,6241 IRECV Local 6286 I(4) 4 scalar 6286,6295,6494,6503 ISEND Local 6339 I(4) 4 scalar 6339,6383,6548,6592 ISTAT Local 6261 I(4) 4 1 5 6394,6437,6473,6477,6603,6646,6682 ,6686 ITAIL Param 5632 I(4) 4 scalar ITYPE Local 6270 I(4) 4 scalar 6270,6285,6294,6338,6382,6493,6502 ,6547,6591 J Local 6307 I(4) 4 scalar 6307,6310,6315,6318,6323,6326,6331 ,6334,6351,6354,6359,6362,6367,637 0,6375,6378,6396,6399,6404,6407,64 12,6415,6420,6423,6439,6442,6447,6 450,6455,6458,6463,6466,6516,6519, 6524,6527,6532,6535,6540,6543,6560 ,6563,6568,6571,6576,6579,6584,658 7,6605,6608,6613,6616,6621,6624,66 29,6632,6648,6651,6656,6659,6664,6 667,6672,6675 JDIM1 Param 5636 I(4) 4 scalar 6263,6264,6265,6266 JDIM2 Param 5636 I(4) 4 scalar 6263,6264,6265,6266 JGSTL Param 5631 I(4) 4 scalar 5636 JGSTR Param 5631 I(4) 4 scalar 5636 JHALO Dummy 5614 I(4) 4 scalar ARG,INOUT 6307,6315,6323,6331,6351,6359,6367 ,6375,6396,6404,6412,6420,6439,644 7,6455,6463,6516,6524,6532,6540,65 60,6568,6576,6584,6605,6613,6621,6 629,6648,6656,6664,6672 JM Param 5619 I(4) 4 scalar 5633,5636,6245,6246,6247,6248,6249 ,6253,6254,6259 JNPES Param 5627 I(4) 4 scalar 5633,5636,6229,6230,6231,6240,6241 JTAIL Param 5633 I(4) 4 scalar K Local 6306 I(4) 4 scalar 6306,6310,6314,6318,6322,6326,6330 Page 108 Source Listing EXCH1111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,6334,6350,6354,6358,6362,6366,637 0,6374,6378,6395,6399,6403,6407,64 11,6415,6419,6423,6438,6442,6446,6 450,6454,6458,6462,6466,6515,6519, 6523,6527,6531,6535,6539,6543,6559 ,6563,6567,6571,6575,6579,6583,658 7,6604,6608,6612,6616,6620,6624,66 28,6632,6647,6651,6655,6659,6663,6 667,6671,6675 LL1 Dummy 5613 I(4) 4 scalar ARG,INOUT 6306,6350,6395,6438,6515,6559,6604 ,6647 LL2 Dummy 5613 I(4) 4 scalar ARG,INOUT 6314,6358,6403,6446,6523,6567,6612 ,6655 LL3 Dummy 5613 I(4) 4 scalar ARG,INOUT 6322,6366,6411,6454,6531,6575,6620 ,6663 LL4 Dummy 5614 I(4) 4 scalar ARG,INOUT 6330,6374,6419,6462,6539,6583,6628 ,6671 LM Param 5619 I(4) 4 scalar 6254 LSM Param 5619 I(4) 4 scalar MAPPINGS Common 6258 5024 SAVE MPIFCMB5 Common 6189 4 SAVE MPIFCMB9 Common 6190 4 SAVE MPIPRIV1 Common 6194 28 SAVE MPIPRIV2 Common 6196 24 SAVE MPIPRIVC Common 6199 2 SAVE MPI_2DOUBLE_PRECISION Param 5935 I(4) 4 scalar MPI_2INT Param 6019 I(4) 4 scalar MPI_2INTEGER Param 5933 I(4) 4 scalar MPI_2REAL Param 5937 I(4) 4 scalar MPI_ADDRESS_KIND Param 5971 I(4) 4 scalar MPI_AINT Param 6049 I(4) 4 scalar MPI_ANY_SOURCE Param 5901 I(4) 4 scalar MPI_ANY_TAG Param 5903 I(4) 4 scalar MPI_APPNUM Param 5865 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 6171 L(4) 4 scalar MPI_BAND Param 5809 I(4) 4 scalar MPI_BOR Param 5813 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 5897 I(4) 4 scalar MPI_BXOR Param 5817 I(4) 4 scalar MPI_BYTE Param 5941 I(4) 4 scalar MPI_CART Param 5909 I(4) 4 scalar MPI_CHAR Param 5979 I(4) 4 scalar MPI_CHARACTER Param 5939 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 6067 I(4) 4 scalar MPI_COMBINER_DARRAY Param 6089 I(4) 4 scalar MPI_COMBINER_DUP Param 6065 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 6093 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 6095 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 6091 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 6079 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 6099 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 6077 I(4) 4 scalar Page 109 Source Listing EXCH1111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_HVECTOR Param 6073 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 6071 I(4) 4 scalar MPI_COMBINER_INDEXED Param 6075 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 6081 I(4) 4 scalar MPI_COMBINER_NAMED Param 6063 I(4) 4 scalar MPI_COMBINER_RESIZED Param 6097 I(4) 4 scalar MPI_COMBINER_STRUCT Param 6085 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 6083 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 6087 I(4) 4 scalar MPI_COMBINER_VECTOR Param 6069 I(4) 4 scalar MPI_COMM_DUP_FN Subr 6178 scalar MPI_COMM_NULL Param 5833 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 6179 scalar MPI_COMM_NULL_DELETE_FN Subr 6178 scalar MPI_COMM_SELF Param 5829 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 6117 I(4) 4 scalar MPI_COMM_WORLD Param 5827 I(4) 4 scalar MPI_COMPLEX Param 5921 I(4) 4 scalar MPI_COMPLEX16 Param 5967 I(4) 4 scalar MPI_COMPLEX32 Param 5969 I(4) 4 scalar MPI_COMPLEX8 Param 5965 I(4) 4 scalar MPI_CONGRUENT Param 5781 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 6184 scalar MPI_COUNT Param 6053 I(4) 4 scalar MPI_COUNT_KIND Param 5975 I(4) 4 scalar MPI_CXX_BOOL Param 6055 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 6059 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 6057 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 6061 I(4) 4 scalar MPI_C_BOOL Param 6039 I(4) 4 scalar MPI_C_COMPLEX Param 6043 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 6045 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 6041 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 6047 I(4) 4 scalar MPI_DATATYPE_NULL Param 5843 I(4) 4 scalar 5958,6056,6058,6060,6062 MPI_DISPLACEMENT_CURRENT Param 6167 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 6159 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 6161 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 6165 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 6163 I(4) 4 scalar MPI_DIST_GRAPH Param 5911 I(4) 4 scalar MPI_DOUBLE Param 6001 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 5923 I(4) 4 scalar MPI_DOUBLE_INT Param 6013 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 5929 I(4) 4 scalar MPI_DUP_FN Subr 6175 scalar MPI_ERRHANDLER_NULL Param 5847 I(4) 4 scalar MPI_ERROR Param 5648 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 5775 I(4) 4 scalar MPI_ERRORS_RETURN Param 5777 I(4) 4 scalar MPI_ERR_ACCESS Param 5767 I(4) 4 scalar MPI_ERR_AMODE Param 5753 I(4) 4 scalar Page 110 Source Listing EXCH1111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_ARG Param 5723 I(4) 4 scalar MPI_ERR_ASSERT Param 5729 I(4) 4 scalar MPI_ERR_BAD_FILE Param 5691 I(4) 4 scalar MPI_ERR_BASE Param 5721 I(4) 4 scalar MPI_ERR_BUFFER Param 5663 I(4) 4 scalar MPI_ERR_COMM Param 5741 I(4) 4 scalar MPI_ERR_CONVERSION Param 5757 I(4) 4 scalar MPI_ERR_COUNT Param 5667 I(4) 4 scalar MPI_ERR_DIMS Param 5705 I(4) 4 scalar MPI_ERR_DISP Param 5689 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 5671 I(4) 4 scalar MPI_ERR_FILE Param 5701 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 5683 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 5725 I(4) 4 scalar MPI_ERR_GROUP Param 5687 I(4) 4 scalar MPI_ERR_INFO Param 5715 I(4) 4 scalar MPI_ERR_INFO_KEY Param 5719 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 5699 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 5685 I(4) 4 scalar MPI_ERR_INTERN Param 5717 I(4) 4 scalar MPI_ERR_IN_STATUS Param 5703 I(4) 4 scalar MPI_ERR_IO Param 5763 I(4) 4 scalar MPI_ERR_KEYVAL Param 5709 I(4) 4 scalar MPI_ERR_LASTCODE Param 5731 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 5713 I(4) 4 scalar MPI_ERR_NAME Param 5707 I(4) 4 scalar MPI_ERR_NOT_SAME Param 5735 I(4) 4 scalar MPI_ERR_NO_MEM Param 5727 I(4) 4 scalar MPI_ERR_NO_SPACE Param 5659 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 5743 I(4) 4 scalar MPI_ERR_OP Param 5761 I(4) 4 scalar MPI_ERR_OTHER Param 5675 I(4) 4 scalar MPI_ERR_PENDING Param 5665 I(4) 4 scalar MPI_ERR_PORT Param 5747 I(4) 4 scalar MPI_ERR_QUOTA Param 5751 I(4) 4 scalar MPI_ERR_RANK Param 5673 I(4) 4 scalar MPI_ERR_READ_ONLY Param 5711 I(4) 4 scalar MPI_ERR_REQUEST Param 5755 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 5677 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 5681 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 5697 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 5759 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 5749 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 5661 I(4) 4 scalar MPI_ERR_ROOT Param 5693 I(4) 4 scalar MPI_ERR_SERVICE Param 5669 I(4) 4 scalar MPI_ERR_SIZE Param 5679 I(4) 4 scalar MPI_ERR_SPAWN Param 5739 I(4) 4 scalar MPI_ERR_TAG Param 5769 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 5773 I(4) 4 scalar MPI_ERR_TRUNCATE Param 5733 I(4) 4 scalar MPI_ERR_TYPE Param 5737 I(4) 4 scalar MPI_ERR_UNKNOWN Param 5771 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 5695 I(4) 4 scalar Page 111 Source Listing EXCH1111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_UNSUPPORTED_OPERAT ION Param 5745 I(4) 4 scalar MPI_ERR_WIN Param 5765 I(4) 4 scalar MPI_FILE_NULL Param 5837 I(4) 4 scalar MPI_FLOAT Param 5999 I(4) 4 scalar MPI_FLOAT_INT Param 6011 I(4) 4 scalar MPI_GRAPH Param 5907 I(4) 4 scalar MPI_GROUP_EMPTY Param 5831 I(4) 4 scalar MPI_GROUP_NULL Param 5839 I(4) 4 scalar MPI_HOST Param 5855 I(4) 4 scalar MPI_IDENT Param 5779 I(4) 4 scalar MPI_INFO_ENV Param 5851 I(4) 4 scalar MPI_INFO_NULL Param 5849 I(4) 4 scalar MPI_INT Param 5991 I(4) 4 scalar MPI_INT16_T Param 6025 I(4) 4 scalar MPI_INT32_T Param 6027 I(4) 4 scalar MPI_INT64_T Param 6029 I(4) 4 scalar MPI_INT8_T Param 6023 I(4) 4 scalar MPI_INTEGER Param 5931 I(4) 4 scalar MPI_INTEGER1 Param 5949 I(4) 4 scalar MPI_INTEGER16 Param 5957 I(4) 4 scalar MPI_INTEGER2 Param 5951 I(4) 4 scalar MPI_INTEGER4 Param 5953 I(4) 4 scalar MPI_INTEGER8 Param 5955 I(4) 4 scalar MPI_INTEGER_KIND Param 5977 I(4) 4 scalar MPI_IO Param 5857 I(4) 4 scalar MPI_IRECV Subr 6285 6285,6294,6493,6502 MPI_ISEND Subr 6338 6338,6382,6547,6591 MPI_KEYVAL_INVALID Param 5895 I(4) 4 scalar MPI_LAND Param 5807 I(4) 4 scalar MPI_LASTUSEDCODE Param 5863 I(4) 4 scalar MPI_LB Param 5945 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 5917 I(4) 4 scalar MPI_LOCK_SHARED Param 5919 I(4) 4 scalar MPI_LOGICAL Param 5925 I(4) 4 scalar MPI_LONG Param 5995 I(4) 4 scalar MPI_LONG_DOUBLE Param 6003 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 6021 I(4) 4 scalar MPI_LONG_INT Param 6015 I(4) 4 scalar MPI_LONG_LONG Param 6009 I(4) 4 scalar MPI_LONG_LONG_INT Param 6005 I(4) 4 scalar MPI_LOR Param 5811 I(4) 4 scalar MPI_LXOR Param 5815 I(4) 4 scalar MPI_MAX Param 5799 I(4) 4 scalar MPI_MAXLOC Param 5821 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 5889 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 5877 I(4) 4 scalar MPI_MAX_INFO_KEY Param 5883 I(4) 4 scalar MPI_MAX_INFO_VAL Param 5885 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 5891 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 5881 I(4) 4 scalar MPI_MAX_PORT_NAME Param 5879 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 5887 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 6121 I(4) 4 scalar Page 112 Source Listing EXCH1111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MESSAGE_NULL Param 6119 I(4) 4 scalar MPI_MIN Param 5801 I(4) 4 scalar MPI_MINLOC Param 5819 I(4) 4 scalar MPI_MODE_APPEND Param 6145 I(4) 4 scalar MPI_MODE_CREATE Param 6141 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 6137 I(4) 4 scalar MPI_MODE_EXCL Param 6143 I(4) 4 scalar MPI_MODE_NOCHECK Param 6107 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 6113 I(4) 4 scalar MPI_MODE_NOPUT Param 6111 I(4) 4 scalar MPI_MODE_NOSTORE Param 6109 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 6115 I(4) 4 scalar MPI_MODE_RDONLY Param 6131 I(4) 4 scalar MPI_MODE_RDWR Param 6133 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 6147 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 6139 I(4) 4 scalar MPI_MODE_WRONLY Param 6135 I(4) 4 scalar MPI_NO_OP Param 5825 I(4) 4 scalar MPI_NULL_COPY_FN Subr 6175 scalar MPI_NULL_DELETE_FN Subr 6175 scalar MPI_OFFSET Param 6051 I(4) 4 scalar MPI_OFFSET_KIND Param 5973 I(4) 4 scalar MPI_OP_NULL Param 5841 I(4) 4 scalar MPI_ORDER_C Param 6155 I(4) 4 scalar MPI_ORDER_FORTRAN Param 6157 I(4) 4 scalar MPI_PACKED Param 5947 I(4) 4 scalar MPI_PROC_NULL Param 5899 I(4) 4 scalar MPI_PROD Param 5805 I(4) 4 scalar MPI_REAL Param 5927 I(4) 4 scalar 6270 MPI_REAL16 Param 5963 I(4) 4 scalar MPI_REAL4 Param 5959 I(4) 4 scalar MPI_REAL8 Param 5961 I(4) 4 scalar MPI_REPLACE Param 5823 I(4) 4 scalar MPI_REQUEST_NULL Param 5845 I(4) 4 scalar MPI_ROOT Param 5905 I(4) 4 scalar MPI_SEEK_CUR Param 6151 I(4) 4 scalar MPI_SEEK_END Param 6153 I(4) 4 scalar MPI_SEEK_SET Param 6149 I(4) 4 scalar MPI_SHORT Param 5987 I(4) 4 scalar MPI_SHORT_INT Param 6017 I(4) 4 scalar MPI_SIGNED_CHAR Param 5981 I(4) 4 scalar MPI_SIMILAR Param 5783 I(4) 4 scalar MPI_SOURCE Param 5648 I(4) 4 scalar MPI_STATUS_SIZE Param 5650 I(4) 4 scalar 5652,5653,6261 MPI_SUBARRAYS_SUPPORTED Param 6169 L(4) 4 scalar MPI_SUBVERSION Param 5915 I(4) 4 scalar MPI_SUCCESS Param 5657 I(4) 4 scalar MPI_SUM Param 5803 I(4) 4 scalar MPI_TAG Param 5648 I(4) 4 scalar MPI_TAG_UB Param 5853 I(4) 4 scalar MPI_THREAD_FUNNELED Param 6125 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 6129 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 6127 I(4) 4 scalar MPI_THREAD_SINGLE Param 6123 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 6105 I(4) 4 scalar Page 113 Source Listing EXCH1111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_TYPECLASS_INTEGER Param 6103 I(4) 4 scalar MPI_TYPECLASS_REAL Param 6101 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 6182 scalar MPI_TYPE_NULL_COPY_FN Subr 6183 scalar MPI_TYPE_NULL_DELETE_FN Subr 6182 scalar MPI_UB Param 5943 I(4) 4 scalar MPI_UINT16_T Param 6033 I(4) 4 scalar MPI_UINT32_T Param 6035 I(4) 4 scalar MPI_UINT64_T Param 6037 I(4) 4 scalar MPI_UINT8_T Param 6031 I(4) 4 scalar MPI_UNDEFINED Param 5893 I(4) 4 scalar MPI_UNEQUAL Param 5785 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 5861 I(4) 4 scalar MPI_UNSIGNED Param 5993 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 5983 I(4) 4 scalar MPI_UNSIGNED_LONG Param 5997 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 6007 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 5989 I(4) 4 scalar MPI_VERSION Param 5913 I(4) 4 scalar MPI_WAIT Subr 6394 6394,6437,6473,6477,6603,6646,6682 ,6686 MPI_WCHAR Param 5985 I(4) 4 scalar MPI_WIN_BASE Param 5867 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 5873 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 5871 I(4) 4 scalar MPI_WIN_DUP_FN Subr 6180 scalar MPI_WIN_FLAVOR_ALLOCATE Param 5789 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 5787 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 5791 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 5793 I(4) 4 scalar MPI_WIN_MODEL Param 5875 I(4) 4 scalar MPI_WIN_NULL Param 5835 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 6181 scalar MPI_WIN_NULL_DELETE_FN Subr 6180 scalar MPI_WIN_SEPARATE Param 5795 I(4) 4 scalar MPI_WIN_SIZE Param 5869 I(4) 4 scalar MPI_WIN_UNIFIED Param 5797 I(4) 4 scalar MPI_WTICK Func 6176 R(8) 8 scalar MPI_WTIME Func 6176 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 5859 I(4) 4 scalar MPPCOM Common 6203 1464 SAVE NEBPE Local 6511 I(4) 4 scalar 6511 PMPI_WTICK Func 6177 R(8) 8 scalar PMPI_WTIME Func 6177 R(8) 8 scalar TEMPCOM Common 6244 6603768 SAVE TOPO Common 6252 17478548 SAVE Page 114 Source Listing EXCH1111 2025-03-12 18:21 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 6286,6295,6339,6383,6494,6503,6548 ,6592 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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:21 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 6304,6348,6392,6435,6512,6513,6643 ,6644 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 6303,6347,6391,6434,6556,6557,6600 ,6601 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 6310,6318,6326,6334,6442,6450,6458 ,6466,6516,6524,6532,6540,6560,656 8,6576,6584,6605,6613,6621,6629,66 48,6656,6664,6672 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:21 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 6354,6362,6370,6378,6399,6407,6415 ,6423,6516,6524,6532,6540,6560,656 8,6576,6584,6605,6613,6621,6629,66 48,6656,6664,6672 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 6338,6382,6547,6591 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 6284,6285,6293,6294,6302,6338,6346 ,6382,6390,6433,6472,6476,6492,649 3,6501,6502,6510,6511,6547,6555,65 91,6599,6642,6681,6685 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:21 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:21 module_EXCHM.F 6691 6692 SUBROUTINE EXCH11111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 6693 * ARR4,LL4,ARR5,LL5,IHALO,JHALO) 6694 USE EXCH_BUF_REAL 6695 INCLUDE "parmeta" 6718 INCLUDE "mpif.h" 7280 INCLUDE "mpp.h" 7281 C----------------------------------------------------------------------- 7340 INTEGER ISTAT(MPI_STATUS_SIZE) 7341 INTEGER IHANDLE(4) 7342 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 7343 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 7344 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 7345 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 7346 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 7347 C 7348 C*********************************************************************** 7349 C 7350 ITYPE=MPI_REAL 7351 C 7352 C-------------------------------------------------------------------- 7353 C-------------------------------------------------------------------- 7354 C*** 7355 C*** NORTH/SOUTH 7356 C*** 7357 C-------------------------------------------------------------------- 7358 C-------------------------------------------------------------------- 7359 C 7360 C-------------------------------------------------------------------- 7361 C RECEIVE FROM NORTH 7362 C-------------------------------------------------------------------- 7363 C 7364 IF(MY_NEB(1).GE.0)THEN 7365 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 7366 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 7367 ENDIF 7368 C 7369 C-------------------------------------------------------------------- 7370 C RECEIVE FROM SOUTH 7371 C-------------------------------------------------------------------- 7372 C 7373 IF(MY_NEB(3).GE.0)THEN 7374 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 7375 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 7376 ENDIF 7377 C 7378 C-------------------------------------------------------------------- 7379 C SEND TO NORTH 7380 C-------------------------------------------------------------------- 7381 C 7382 IF(MY_NEB(1).GE.0)THEN 7383 IBEG=MYIS-IHALO 7384 IEND=MYIE+IHALO 7385 IC = 0 7386 DO K=1,LL1 7387 DO J=0,JHALO-1 7388 DO I=IBEG,IEND Page 119 Source Listing EXCH11111 2025-03-12 18:21 module_EXCHM.F 7389 IC = IC + 1 7390 BUF2(IC)=ARR1(I,MYJE-J,K) 7391 ENDDO 7392 ENDDO 7393 ENDDO 7394 DO K=1,LL2 7395 DO J=0,JHALO-1 7396 DO I=IBEG,IEND 7397 IC = IC + 1 7398 BUF2(IC)=ARR2(I,MYJE-J,K) 7399 ENDDO 7400 ENDDO 7401 ENDDO 7402 DO K=1,LL3 7403 DO J=0,JHALO-1 7404 DO I=IBEG,IEND 7405 IC = IC + 1 7406 BUF2(IC)=ARR3(I,MYJE-J,K) 7407 ENDDO 7408 ENDDO 7409 ENDDO 7410 DO K=1,LL4 7411 DO J=0,JHALO-1 7412 DO I=IBEG,IEND 7413 IC = IC + 1 7414 BUF2(IC)=ARR4(I,MYJE-J,K) 7415 ENDDO 7416 ENDDO 7417 ENDDO 7418 DO K=1,LL5 7419 DO J=0,JHALO-1 7420 DO I=IBEG,IEND 7421 IC = IC + 1 7422 BUF2(IC)=ARR5(I,MYJE-J,K) 7423 ENDDO 7424 ENDDO 7425 ENDDO 7426 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 7427 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 7428 ENDIF 7429 C 7430 C-------------------------------------------------------------------- 7431 C SEND TO SOUTH 7432 C-------------------------------------------------------------------- 7433 C 7434 IF(MY_NEB(3).GE.0)THEN 7435 IBEG=MYIS-IHALO 7436 IEND=MYIE+IHALO 7437 IC = 0 7438 DO K=1,LL1 7439 DO J=0,JHALO-1 7440 DO I=IBEG,IEND 7441 IC = IC + 1 7442 BUF3(IC)=ARR1(I,MYJS+J,K) 7443 ENDDO 7444 ENDDO 7445 ENDDO Page 120 Source Listing EXCH11111 2025-03-12 18:21 module_EXCHM.F 7446 DO K=1,LL2 7447 DO J=0,JHALO-1 7448 DO I=IBEG,IEND 7449 IC = IC + 1 7450 BUF3(IC)=ARR2(I,MYJS+J,K) 7451 ENDDO 7452 ENDDO 7453 ENDDO 7454 DO K=1,LL3 7455 DO J=0,JHALO-1 7456 DO I=IBEG,IEND 7457 IC = IC + 1 7458 BUF3(IC)=ARR3(I,MYJS+J,K) 7459 ENDDO 7460 ENDDO 7461 ENDDO 7462 DO K=1,LL4 7463 DO J=0,JHALO-1 7464 DO I=IBEG,IEND 7465 IC = IC + 1 7466 BUF3(IC)=ARR4(I,MYJS+J,K) 7467 ENDDO 7468 ENDDO 7469 ENDDO 7470 DO K=1,LL5 7471 DO J=0,JHALO-1 7472 DO I=IBEG,IEND 7473 IC = IC + 1 7474 BUF3(IC)=ARR5(I,MYJS+J,K) 7475 ENDDO 7476 ENDDO 7477 ENDDO 7478 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 7479 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 7480 ENDIF 7481 C 7482 C-------------------------------------------------------------------- 7483 C STORE RESULTS FROM SOUTH 7484 C-------------------------------------------------------------------- 7485 C 7486 IF(MY_NEB(3).GE.0)THEN 7487 IBEG=MYIS-IHALO 7488 IEND=MYIE+IHALO 7489 IC = 0 7490 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 7491 DO K=1,LL1 7492 DO J=0,JHALO-1 7493 DO I=IBEG,IEND 7494 IC = IC + 1 7495 ARR1(I,MYJS-J-1,K)=BUF1(IC) 7496 ENDDO 7497 ENDDO 7498 ENDDO 7499 DO K=1,LL2 7500 DO J=0,JHALO-1 7501 DO I=IBEG,IEND 7502 IC = IC + 1 Page 121 Source Listing EXCH11111 2025-03-12 18:21 module_EXCHM.F 7503 ARR2(I,MYJS-J-1,K)=BUF1(IC) 7504 ENDDO 7505 ENDDO 7506 ENDDO 7507 DO K=1,LL3 7508 DO J=0,JHALO-1 7509 DO I=IBEG,IEND 7510 IC = IC + 1 7511 ARR3(I,MYJS-J-1,K)=BUF1(IC) 7512 ENDDO 7513 ENDDO 7514 ENDDO 7515 DO K=1,LL4 7516 DO J=0,JHALO-1 7517 DO I=IBEG,IEND 7518 IC = IC + 1 7519 ARR4(I,MYJS-J-1,K)=BUF1(IC) 7520 ENDDO 7521 ENDDO 7522 ENDDO 7523 DO K=1,LL5 7524 DO J=0,JHALO-1 7525 DO I=IBEG,IEND 7526 IC = IC + 1 7527 ARR5(I,MYJS-J-1,K)=BUF1(IC) 7528 ENDDO 7529 ENDDO 7530 ENDDO 7531 ENDIF 7532 C 7533 C-------------------------------------------------------------------- 7534 C STORE FROM NORTH 7535 C-------------------------------------------------------------------- 7536 C 7537 IF(MY_NEB(1).GE.0)THEN 7538 IBEG=MYIS-IHALO 7539 IEND=MYIE+IHALO 7540 IC = 0 7541 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 7542 DO K=1,LL1 7543 DO J=0,JHALO-1 7544 DO I=IBEG,IEND 7545 IC = IC + 1 7546 ARR1(I,MYJE+J+1,K)=BUF0(IC) 7547 ENDDO 7548 ENDDO 7549 ENDDO 7550 DO K=1,LL2 7551 DO J=0,JHALO-1 7552 DO I=IBEG,IEND 7553 IC = IC + 1 7554 ARR2(I,MYJE+J+1,K)=BUF0(IC) 7555 ENDDO 7556 ENDDO 7557 ENDDO 7558 DO K=1,LL3 7559 DO J=0,JHALO-1 Page 122 Source Listing EXCH11111 2025-03-12 18:21 module_EXCHM.F 7560 DO I=IBEG,IEND 7561 IC = IC + 1 7562 ARR3(I,MYJE+J+1,K)=BUF0(IC) 7563 ENDDO 7564 ENDDO 7565 ENDDO 7566 DO K=1,LL4 7567 DO J=0,JHALO-1 7568 DO I=IBEG,IEND 7569 IC = IC + 1 7570 ARR4(I,MYJE+J+1,K)=BUF0(IC) 7571 ENDDO 7572 ENDDO 7573 ENDDO 7574 DO K=1,LL5 7575 DO J=0,JHALO-1 7576 DO I=IBEG,IEND 7577 IC = IC + 1 7578 ARR5(I,MYJE+J+1,K)=BUF0(IC) 7579 ENDDO 7580 ENDDO 7581 ENDDO 7582 ENDIF 7583 C 7584 IF(MY_NEB(1).GE.0)THEN 7585 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 7586 ENDIF 7587 C 7588 IF(MY_NEB(3).GE.0)THEN 7589 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 7590 ENDIF 7591 C 7592 C-------------------------------------------------------------------- 7593 C-------------------------------------------------------------------- 7594 C*** 7595 C*** EAST/WEST 7596 C*** 7597 C-------------------------------------------------------------------- 7598 C-------------------------------------------------------------------- 7599 C 7600 C-------------------------------------------------------------------- 7601 C RECEIVE FROM WEST 7602 C-------------------------------------------------------------------- 7603 C 7604 IF(MY_NEB(4).GE.0)THEN 7605 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 7606 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 7607 ENDIF 7608 C 7609 C-------------------------------------------------------------------- 7610 C RECEIVE FROM EAST 7611 C-------------------------------------------------------------------- 7612 C 7613 IF(MY_NEB(2).GE.0)THEN 7614 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 7615 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 7616 ENDIF Page 123 Source Listing EXCH11111 2025-03-12 18:21 module_EXCHM.F 7617 C 7618 C-------------------------------------------------------------------- 7619 C SEND TO EAST 7620 C-------------------------------------------------------------------- 7621 C 7622 IF(MY_NEB(2).GE.0)THEN 7623 IBEG=MYIE-IHALO+1 7624 IEND=MYIE 7625 IC = 0 7626 DO K=1,LL1 7627 DO J=MYJS-JHALO,MYJE+JHALO 7628 DO I=IBEG,IEND 7629 IC = IC + 1 7630 BUF2(IC)=ARR1(I,J,K) 7631 ENDDO 7632 ENDDO 7633 ENDDO 7634 DO K=1,LL2 7635 DO J=MYJS-JHALO,MYJE+JHALO 7636 DO I=IBEG,IEND 7637 IC = IC + 1 7638 BUF2(IC)=ARR2(I,J,K) 7639 ENDDO 7640 ENDDO 7641 ENDDO 7642 DO K=1,LL3 7643 DO J=MYJS-JHALO,MYJE+JHALO 7644 DO I=IBEG,IEND 7645 IC = IC + 1 7646 BUF2(IC)=ARR3(I,J,K) 7647 ENDDO 7648 ENDDO 7649 ENDDO 7650 DO K=1,LL4 7651 DO J=MYJS-JHALO,MYJE+JHALO 7652 DO I=IBEG,IEND 7653 IC = IC + 1 7654 BUF2(IC)=ARR4(I,J,K) 7655 ENDDO 7656 ENDDO 7657 ENDDO 7658 DO K=1,LL5 7659 DO J=MYJS-JHALO,MYJE+JHALO 7660 DO I=IBEG,IEND 7661 IC = IC + 1 7662 BUF2(IC)=ARR5(I,J,K) 7663 ENDDO 7664 ENDDO 7665 ENDDO 7666 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 7667 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 7668 ENDIF 7669 C 7670 C-------------------------------------------------------------------- 7671 C SEND TO WEST 7672 C-------------------------------------------------------------------- 7673 C Page 124 Source Listing EXCH11111 2025-03-12 18:21 module_EXCHM.F 7674 IF(MY_NEB(4).GE.0)THEN 7675 IBEG=MYIS 7676 IEND=MYIS+IHALO-1 7677 IC = 0 7678 DO K=1,LL1 7679 DO J=MYJS-JHALO,MYJE+JHALO 7680 DO I=IBEG,IEND 7681 IC = IC + 1 7682 BUF3(IC)=ARR1(I,J,K) 7683 ENDDO 7684 ENDDO 7685 ENDDO 7686 DO K=1,LL2 7687 DO J=MYJS-JHALO,MYJE+JHALO 7688 DO I=IBEG,IEND 7689 IC = IC + 1 7690 BUF3(IC)=ARR2(I,J,K) 7691 ENDDO 7692 ENDDO 7693 ENDDO 7694 DO K=1,LL3 7695 DO J=MYJS-JHALO,MYJE+JHALO 7696 DO I=IBEG,IEND 7697 IC = IC + 1 7698 BUF3(IC)=ARR3(I,J,K) 7699 ENDDO 7700 ENDDO 7701 ENDDO 7702 DO K=1,LL4 7703 DO J=MYJS-JHALO,MYJE+JHALO 7704 DO I=IBEG,IEND 7705 IC = IC + 1 7706 BUF3(IC)=ARR4(I,J,K) 7707 ENDDO 7708 ENDDO 7709 ENDDO 7710 DO K=1,LL5 7711 DO J=MYJS-JHALO,MYJE+JHALO 7712 DO I=IBEG,IEND 7713 IC = IC + 1 7714 BUF3(IC)=ARR5(I,J,K) 7715 ENDDO 7716 ENDDO 7717 ENDDO 7718 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 7719 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 7720 ENDIF 7721 C 7722 C-------------------------------------------------------------------- 7723 C STORE FROM WEST 7724 C-------------------------------------------------------------------- 7725 C 7726 IF(MY_NEB(4).GE.0)THEN 7727 IBEG=MYIS-IHALO 7728 IEND=MYIS-1 7729 IC = 0 7730 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) Page 125 Source Listing EXCH11111 2025-03-12 18:21 module_EXCHM.F 7731 DO K=1,LL1 7732 DO J=MYJS-JHALO,MYJE+JHALO 7733 DO I=IBEG,IEND 7734 IC = IC + 1 7735 ARR1(I,J,K)=BUF0(IC) 7736 ENDDO 7737 ENDDO 7738 ENDDO 7739 DO K=1,LL2 7740 DO J=MYJS-JHALO,MYJE+JHALO 7741 DO I=IBEG,IEND 7742 IC = IC + 1 7743 ARR2(I,J,K)=BUF0(IC) 7744 ENDDO 7745 ENDDO 7746 ENDDO 7747 DO K=1,LL3 7748 DO J=MYJS-JHALO,MYJE+JHALO 7749 DO I=IBEG,IEND 7750 IC = IC + 1 7751 ARR3(I,J,K)=BUF0(IC) 7752 ENDDO 7753 ENDDO 7754 ENDDO 7755 DO K=1,LL4 7756 DO J=MYJS-JHALO,MYJE+JHALO 7757 DO I=IBEG,IEND 7758 IC = IC + 1 7759 ARR4(I,J,K)=BUF0(IC) 7760 ENDDO 7761 ENDDO 7762 ENDDO 7763 DO K=1,LL5 7764 DO J=MYJS-JHALO,MYJE+JHALO 7765 DO I=IBEG,IEND 7766 IC = IC + 1 7767 ARR5(I,J,K)=BUF0(IC) 7768 ENDDO 7769 ENDDO 7770 ENDDO 7771 ENDIF 7772 C 7773 C-------------------------------------------------------------------- 7774 C STORE FROM EAST 7775 C-------------------------------------------------------------------- 7776 C 7777 IF(MY_NEB(2).GE.0)THEN 7778 IBEG=MYIE+1 7779 IEND=MYIE+IHALO 7780 IC = 0 7781 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 7782 DO K=1,LL1 7783 DO J=MYJS-JHALO,MYJE+JHALO 7784 DO I=IBEG,IEND 7785 IC = IC + 1 7786 ARR1(I,J,K)=BUF1(IC) 7787 ENDDO Page 126 Source Listing EXCH11111 2025-03-12 18:21 module_EXCHM.F 7788 ENDDO 7789 ENDDO 7790 DO K=1,LL2 7791 DO J=MYJS-JHALO,MYJE+JHALO 7792 DO I=IBEG,IEND 7793 IC = IC + 1 7794 ARR2(I,J,K)=BUF1(IC) 7795 ENDDO 7796 ENDDO 7797 ENDDO 7798 DO K=1,LL3 7799 DO J=MYJS-JHALO,MYJE+JHALO 7800 DO I=IBEG,IEND 7801 IC = IC + 1 7802 ARR3(I,J,K)=BUF1(IC) 7803 ENDDO 7804 ENDDO 7805 ENDDO 7806 DO K=1,LL4 7807 DO J=MYJS-JHALO,MYJE+JHALO 7808 DO I=IBEG,IEND 7809 IC = IC + 1 7810 ARR4(I,J,K)=BUF1(IC) 7811 ENDDO 7812 ENDDO 7813 ENDDO 7814 DO K=1,LL5 7815 DO J=MYJS-JHALO,MYJE+JHALO 7816 DO I=IBEG,IEND 7817 IC = IC + 1 7818 ARR5(I,J,K)=BUF1(IC) 7819 ENDDO 7820 ENDDO 7821 ENDDO 7822 ENDIF 7823 C 7824 IF(MY_NEB(4).GE.0)THEN 7825 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 7826 ENDIF 7827 C 7828 IF(MY_NEB(2).GE.0)THEN 7829 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 7830 ENDIF 7831 C 7832 C-------------------------------------------------------------------- 7833 END SUBROUTINE Page 127 Source Listing EXCH11111 2025-03-12 18:21 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 6692 R(4) 4 3 0 ARG,INOUT 7390,7442,7495,7546,7630,7682,7735 ,7786 ARR2 Dummy 6692 R(4) 4 3 0 ARG,INOUT 7398,7450,7503,7554,7638,7690,7743 ,7794 ARR3 Dummy 6692 R(4) 4 3 0 ARG,INOUT 7406,7458,7511,7562,7646,7698,7751 ,7802 ARR4 Dummy 6693 R(4) 4 3 0 ARG,INOUT 7414,7466,7519,7570,7654,7706,7759 ,7810 ARR5 Dummy 6693 R(4) 4 3 0 ARG,INOUT 7422,7474,7527,7578,7662,7714,7767 ,7818 BUF0 Local 7365 R(4) 4 1 2500000 7365,7546,7554,7562,7570,7578,7605 ,7735,7743,7751,7759,7767 BUF1 Local 7374 R(4) 4 1 2500000 7374,7495,7503,7511,7519,7527,7614 ,7786,7794,7802,7810,7818 BUF2 Local 7390 R(4) 4 1 2500000 7390,7398,7406,7414,7422,7426,7630 ,7638,7646,7654,7662,7666 BUF3 Local 7442 R(4) 4 1 2500000 7442,7450,7458,7466,7474,7478,7682 ,7690,7698,7706,7714,7718 EXCH11111 Subr 6692 EXCH_BUF_REAL Module 6694 6694 GLB_TABLE Common 7318 128 SAVE I Local 7388 I(4) 4 scalar 7388,7390,7396,7398,7404,7406,7412 ,7414,7420,7422,7440,7442,7448,745 0,7456,7458,7464,7466,7472,7474,74 93,7495,7501,7503,7509,7511,7517,7 519,7525,7527,7544,7546,7552,7554, 7560,7562,7568,7570,7576,7578,7628 ,7630,7636,7638,7644,7646,7652,765 4,7660,7662,7680,7682,7688,7690,76 96,7698,7704,7706,7712,7714,7733,7 735,7741,7743,7749,7751,7757,7759, 7765,7767,7784,7786,7792,7794,7800 ,7802,7808,7810,7816,7818 IBEG Local 7383 I(4) 4 scalar 7383,7388,7396,7404,7412,7420,7435 ,7440,7448,7456,7464,7472,7487,749 3,7501,7509,7517,7525,7538,7544,75 52,7560,7568,7576,7623,7628,7636,7 644,7652,7660,7675,7680,7688,7696, 7704,7712,7727,7733,7741,7749,7757 ,7765,7778,7784,7792,7800,7808,781 6 IBUFEXCH Param 7365 I(4) 4 scalar 7365,7374,7605,7614 IC Local 7385 I(4) 4 scalar 7385,7389,7390,7397,7398,7405,7406 ,7413,7414,7421,7422,7426,7437,744 Page 128 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 1,7442,7449,7450,7457,7458,7465,74 66,7473,7474,7478,7489,7494,7495,7 502,7503,7510,7511,7518,7519,7526, 7527,7540,7545,7546,7553,7554,7561 ,7562,7569,7570,7577,7578,7625,762 9,7630,7637,7638,7645,7646,7653,76 54,7661,7662,7666,7677,7681,7682,7 689,7690,7697,7698,7705,7706,7713, 7714,7718,7729,7734,7735,7742,7743 ,7750,7751,7758,7759,7766,7767,778 0,7785,7786,7793,7794,7801,7802,78 09,7810,7817,7818 IDIM1 Param 6714 I(4) 4 scalar 7342,7343,7344,7345,7346 IDIM2 Param 6714 I(4) 4 scalar 7342,7343,7344,7345,7346 IEND Local 7384 I(4) 4 scalar 7384,7388,7396,7404,7412,7420,7436 ,7440,7448,7456,7464,7472,7488,749 3,7501,7509,7517,7525,7539,7544,75 52,7560,7568,7576,7624,7628,7636,7 644,7652,7660,7676,7680,7688,7696, 7704,7712,7728,7733,7741,7749,7757 ,7765,7779,7784,7792,7800,7808,781 6 IERR Local 7490 I(4) 4 scalar 7490,7541,7585,7589,7730,7781,7825 ,7829 IGSTL Param 6709 I(4) 4 scalar 6714 IGSTR Param 6709 I(4) 4 scalar 6714 IHALO Dummy 6693 I(4) 4 scalar ARG,INOUT 7383,7384,7435,7436,7487,7488,7538 ,7539,7623,7676,7727,7779 IHANDLE Local 7341 I(4) 4 1 4 7366,7375,7427,7479,7490,7541,7585 ,7589,7606,7615,7667,7719,7730,778 1,7825,7829 IM Param 6698 I(4) 4 scalar 6711,6714,7324,7325,7326,7327,7328 ,7332,7333,7338 INPES Param 6706 I(4) 4 scalar 6711,6714,7308,7309,7310,7319,7320 IRECV Local 7366 I(4) 4 scalar 7366,7375,7606,7615 ISEND Local 7427 I(4) 4 scalar 7427,7479,7667,7719 ISTAT Local 7340 I(4) 4 1 5 7490,7541,7585,7589,7730,7781,7825 ,7829 ITAIL Param 6711 I(4) 4 scalar ITYPE Local 7350 I(4) 4 scalar 7350,7365,7374,7426,7478,7605,7614 ,7666,7718 J Local 7387 I(4) 4 scalar 7387,7390,7395,7398,7403,7406,7411 ,7414,7419,7422,7439,7442,7447,745 0,7455,7458,7463,7466,7471,7474,74 92,7495,7500,7503,7508,7511,7516,7 519,7524,7527,7543,7546,7551,7554, 7559,7562,7567,7570,7575,7578,7627 ,7630,7635,7638,7643,7646,7651,765 4,7659,7662,7679,7682,7687,7690,76 95,7698,7703,7706,7711,7714,7732,7 735,7740,7743,7748,7751,7756,7759, 7764,7767,7783,7786,7791,7794,7799 ,7802,7807,7810,7815,7818 JDIM1 Param 6715 I(4) 4 scalar 7342,7343,7344,7345,7346 JDIM2 Param 6715 I(4) 4 scalar 7342,7343,7344,7345,7346 Page 129 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References JGSTL Param 6710 I(4) 4 scalar 6715 JGSTR Param 6710 I(4) 4 scalar 6715 JHALO Dummy 6693 I(4) 4 scalar ARG,INOUT 7387,7395,7403,7411,7419,7439,7447 ,7455,7463,7471,7492,7500,7508,751 6,7524,7543,7551,7559,7567,7575,76 27,7635,7643,7651,7659,7679,7687,7 695,7703,7711,7732,7740,7748,7756, 7764,7783,7791,7799,7807,7815 JM Param 6698 I(4) 4 scalar 6712,6715,7324,7325,7326,7327,7328 ,7332,7333,7338 JNPES Param 6706 I(4) 4 scalar 6712,6715,7308,7309,7310,7319,7320 JTAIL Param 6712 I(4) 4 scalar K Local 7386 I(4) 4 scalar 7386,7390,7394,7398,7402,7406,7410 ,7414,7418,7422,7438,7442,7446,745 0,7454,7458,7462,7466,7470,7474,74 91,7495,7499,7503,7507,7511,7515,7 519,7523,7527,7542,7546,7550,7554, 7558,7562,7566,7570,7574,7578,7626 ,7630,7634,7638,7642,7646,7650,765 4,7658,7662,7678,7682,7686,7690,76 94,7698,7702,7706,7710,7714,7731,7 735,7739,7743,7747,7751,7755,7759, 7763,7767,7782,7786,7790,7794,7798 ,7802,7806,7810,7814,7818 LL1 Dummy 6692 I(4) 4 scalar ARG,INOUT 7386,7438,7491,7542,7626,7678,7731 ,7782 LL2 Dummy 6692 I(4) 4 scalar ARG,INOUT 7394,7446,7499,7550,7634,7686,7739 ,7790 LL3 Dummy 6692 I(4) 4 scalar ARG,INOUT 7402,7454,7507,7558,7642,7694,7747 ,7798 LL4 Dummy 6693 I(4) 4 scalar ARG,INOUT 7410,7462,7515,7566,7650,7702,7755 ,7806 LL5 Dummy 6693 I(4) 4 scalar ARG,INOUT 7418,7470,7523,7574,7658,7710,7763 ,7814 LM Param 6698 I(4) 4 scalar 7333 LSM Param 6698 I(4) 4 scalar MAPPINGS Common 7337 5024 SAVE MPIFCMB5 Common 7268 4 SAVE MPIFCMB9 Common 7269 4 SAVE MPIPRIV1 Common 7273 28 SAVE MPIPRIV2 Common 7275 24 SAVE MPIPRIVC Common 7278 2 SAVE MPI_2DOUBLE_PRECISION Param 7014 I(4) 4 scalar MPI_2INT Param 7098 I(4) 4 scalar MPI_2INTEGER Param 7012 I(4) 4 scalar MPI_2REAL Param 7016 I(4) 4 scalar MPI_ADDRESS_KIND Param 7050 I(4) 4 scalar MPI_AINT Param 7128 I(4) 4 scalar MPI_ANY_SOURCE Param 6980 I(4) 4 scalar MPI_ANY_TAG Param 6982 I(4) 4 scalar MPI_APPNUM Param 6944 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 7250 L(4) 4 scalar MPI_BAND Param 6888 I(4) 4 scalar MPI_BOR Param 6892 I(4) 4 scalar Page 130 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BSEND_OVERHEAD Param 6976 I(4) 4 scalar MPI_BXOR Param 6896 I(4) 4 scalar MPI_BYTE Param 7020 I(4) 4 scalar MPI_CART Param 6988 I(4) 4 scalar MPI_CHAR Param 7058 I(4) 4 scalar MPI_CHARACTER Param 7018 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 7146 I(4) 4 scalar MPI_COMBINER_DARRAY Param 7168 I(4) 4 scalar MPI_COMBINER_DUP Param 7144 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 7172 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 7174 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 7170 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 7158 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 7178 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 7156 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 7152 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 7150 I(4) 4 scalar MPI_COMBINER_INDEXED Param 7154 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 7160 I(4) 4 scalar MPI_COMBINER_NAMED Param 7142 I(4) 4 scalar MPI_COMBINER_RESIZED Param 7176 I(4) 4 scalar MPI_COMBINER_STRUCT Param 7164 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 7162 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 7166 I(4) 4 scalar MPI_COMBINER_VECTOR Param 7148 I(4) 4 scalar MPI_COMM_DUP_FN Subr 7257 scalar MPI_COMM_NULL Param 6912 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 7258 scalar MPI_COMM_NULL_DELETE_FN Subr 7257 scalar MPI_COMM_SELF Param 6908 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 7196 I(4) 4 scalar MPI_COMM_WORLD Param 6906 I(4) 4 scalar MPI_COMPLEX Param 7000 I(4) 4 scalar MPI_COMPLEX16 Param 7046 I(4) 4 scalar MPI_COMPLEX32 Param 7048 I(4) 4 scalar MPI_COMPLEX8 Param 7044 I(4) 4 scalar MPI_CONGRUENT Param 6860 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 7263 scalar MPI_COUNT Param 7132 I(4) 4 scalar MPI_COUNT_KIND Param 7054 I(4) 4 scalar MPI_CXX_BOOL Param 7134 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 7138 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 7136 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 7140 I(4) 4 scalar MPI_C_BOOL Param 7118 I(4) 4 scalar MPI_C_COMPLEX Param 7122 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 7124 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 7120 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 7126 I(4) 4 scalar MPI_DATATYPE_NULL Param 6922 I(4) 4 scalar 7037,7135,7137,7139,7141 Page 131 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DISPLACEMENT_CURRENT Param 7246 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 7238 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 7240 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 7244 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 7242 I(4) 4 scalar MPI_DIST_GRAPH Param 6990 I(4) 4 scalar MPI_DOUBLE Param 7080 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 7002 I(4) 4 scalar MPI_DOUBLE_INT Param 7092 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 7008 I(4) 4 scalar MPI_DUP_FN Subr 7254 scalar MPI_ERRHANDLER_NULL Param 6926 I(4) 4 scalar MPI_ERROR Param 6727 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 6854 I(4) 4 scalar MPI_ERRORS_RETURN Param 6856 I(4) 4 scalar MPI_ERR_ACCESS Param 6846 I(4) 4 scalar MPI_ERR_AMODE Param 6832 I(4) 4 scalar MPI_ERR_ARG Param 6802 I(4) 4 scalar MPI_ERR_ASSERT Param 6808 I(4) 4 scalar MPI_ERR_BAD_FILE Param 6770 I(4) 4 scalar MPI_ERR_BASE Param 6800 I(4) 4 scalar MPI_ERR_BUFFER Param 6742 I(4) 4 scalar MPI_ERR_COMM Param 6820 I(4) 4 scalar MPI_ERR_CONVERSION Param 6836 I(4) 4 scalar MPI_ERR_COUNT Param 6746 I(4) 4 scalar MPI_ERR_DIMS Param 6784 I(4) 4 scalar MPI_ERR_DISP Param 6768 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 6750 I(4) 4 scalar MPI_ERR_FILE Param 6780 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 6762 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 6804 I(4) 4 scalar MPI_ERR_GROUP Param 6766 I(4) 4 scalar MPI_ERR_INFO Param 6794 I(4) 4 scalar MPI_ERR_INFO_KEY Param 6798 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 6778 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 6764 I(4) 4 scalar MPI_ERR_INTERN Param 6796 I(4) 4 scalar MPI_ERR_IN_STATUS Param 6782 I(4) 4 scalar MPI_ERR_IO Param 6842 I(4) 4 scalar MPI_ERR_KEYVAL Param 6788 I(4) 4 scalar MPI_ERR_LASTCODE Param 6810 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 6792 I(4) 4 scalar MPI_ERR_NAME Param 6786 I(4) 4 scalar MPI_ERR_NOT_SAME Param 6814 I(4) 4 scalar MPI_ERR_NO_MEM Param 6806 I(4) 4 scalar MPI_ERR_NO_SPACE Param 6738 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 6822 I(4) 4 scalar MPI_ERR_OP Param 6840 I(4) 4 scalar MPI_ERR_OTHER Param 6754 I(4) 4 scalar MPI_ERR_PENDING Param 6744 I(4) 4 scalar MPI_ERR_PORT Param 6826 I(4) 4 scalar MPI_ERR_QUOTA Param 6830 I(4) 4 scalar MPI_ERR_RANK Param 6752 I(4) 4 scalar MPI_ERR_READ_ONLY Param 6790 I(4) 4 scalar MPI_ERR_REQUEST Param 6834 I(4) 4 scalar Page 132 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_RMA_ATTACH Param 6756 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 6760 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 6776 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 6838 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 6828 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 6740 I(4) 4 scalar MPI_ERR_ROOT Param 6772 I(4) 4 scalar MPI_ERR_SERVICE Param 6748 I(4) 4 scalar MPI_ERR_SIZE Param 6758 I(4) 4 scalar MPI_ERR_SPAWN Param 6818 I(4) 4 scalar MPI_ERR_TAG Param 6848 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 6852 I(4) 4 scalar MPI_ERR_TRUNCATE Param 6812 I(4) 4 scalar MPI_ERR_TYPE Param 6816 I(4) 4 scalar MPI_ERR_UNKNOWN Param 6850 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 6774 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 6824 I(4) 4 scalar MPI_ERR_WIN Param 6844 I(4) 4 scalar MPI_FILE_NULL Param 6916 I(4) 4 scalar MPI_FLOAT Param 7078 I(4) 4 scalar MPI_FLOAT_INT Param 7090 I(4) 4 scalar MPI_GRAPH Param 6986 I(4) 4 scalar MPI_GROUP_EMPTY Param 6910 I(4) 4 scalar MPI_GROUP_NULL Param 6918 I(4) 4 scalar MPI_HOST Param 6934 I(4) 4 scalar MPI_IDENT Param 6858 I(4) 4 scalar MPI_INFO_ENV Param 6930 I(4) 4 scalar MPI_INFO_NULL Param 6928 I(4) 4 scalar MPI_INT Param 7070 I(4) 4 scalar MPI_INT16_T Param 7104 I(4) 4 scalar MPI_INT32_T Param 7106 I(4) 4 scalar MPI_INT64_T Param 7108 I(4) 4 scalar MPI_INT8_T Param 7102 I(4) 4 scalar MPI_INTEGER Param 7010 I(4) 4 scalar MPI_INTEGER1 Param 7028 I(4) 4 scalar MPI_INTEGER16 Param 7036 I(4) 4 scalar MPI_INTEGER2 Param 7030 I(4) 4 scalar MPI_INTEGER4 Param 7032 I(4) 4 scalar MPI_INTEGER8 Param 7034 I(4) 4 scalar MPI_INTEGER_KIND Param 7056 I(4) 4 scalar MPI_IO Param 6936 I(4) 4 scalar MPI_IRECV Subr 7365 7365,7374,7605,7614 MPI_ISEND Subr 7426 7426,7478,7666,7718 MPI_KEYVAL_INVALID Param 6974 I(4) 4 scalar MPI_LAND Param 6886 I(4) 4 scalar MPI_LASTUSEDCODE Param 6942 I(4) 4 scalar MPI_LB Param 7024 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 6996 I(4) 4 scalar MPI_LOCK_SHARED Param 6998 I(4) 4 scalar MPI_LOGICAL Param 7004 I(4) 4 scalar MPI_LONG Param 7074 I(4) 4 scalar MPI_LONG_DOUBLE Param 7082 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 7100 I(4) 4 scalar Page 133 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_INT Param 7094 I(4) 4 scalar MPI_LONG_LONG Param 7088 I(4) 4 scalar MPI_LONG_LONG_INT Param 7084 I(4) 4 scalar MPI_LOR Param 6890 I(4) 4 scalar MPI_LXOR Param 6894 I(4) 4 scalar MPI_MAX Param 6878 I(4) 4 scalar MPI_MAXLOC Param 6900 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 6968 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 6956 I(4) 4 scalar MPI_MAX_INFO_KEY Param 6962 I(4) 4 scalar MPI_MAX_INFO_VAL Param 6964 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 6970 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 6960 I(4) 4 scalar MPI_MAX_PORT_NAME Param 6958 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 6966 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 7200 I(4) 4 scalar MPI_MESSAGE_NULL Param 7198 I(4) 4 scalar MPI_MIN Param 6880 I(4) 4 scalar MPI_MINLOC Param 6898 I(4) 4 scalar MPI_MODE_APPEND Param 7224 I(4) 4 scalar MPI_MODE_CREATE Param 7220 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 7216 I(4) 4 scalar MPI_MODE_EXCL Param 7222 I(4) 4 scalar MPI_MODE_NOCHECK Param 7186 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 7192 I(4) 4 scalar MPI_MODE_NOPUT Param 7190 I(4) 4 scalar MPI_MODE_NOSTORE Param 7188 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 7194 I(4) 4 scalar MPI_MODE_RDONLY Param 7210 I(4) 4 scalar MPI_MODE_RDWR Param 7212 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 7226 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 7218 I(4) 4 scalar MPI_MODE_WRONLY Param 7214 I(4) 4 scalar MPI_NO_OP Param 6904 I(4) 4 scalar MPI_NULL_COPY_FN Subr 7254 scalar MPI_NULL_DELETE_FN Subr 7254 scalar MPI_OFFSET Param 7130 I(4) 4 scalar MPI_OFFSET_KIND Param 7052 I(4) 4 scalar MPI_OP_NULL Param 6920 I(4) 4 scalar MPI_ORDER_C Param 7234 I(4) 4 scalar MPI_ORDER_FORTRAN Param 7236 I(4) 4 scalar MPI_PACKED Param 7026 I(4) 4 scalar MPI_PROC_NULL Param 6978 I(4) 4 scalar MPI_PROD Param 6884 I(4) 4 scalar MPI_REAL Param 7006 I(4) 4 scalar 7350 MPI_REAL16 Param 7042 I(4) 4 scalar MPI_REAL4 Param 7038 I(4) 4 scalar MPI_REAL8 Param 7040 I(4) 4 scalar MPI_REPLACE Param 6902 I(4) 4 scalar MPI_REQUEST_NULL Param 6924 I(4) 4 scalar MPI_ROOT Param 6984 I(4) 4 scalar MPI_SEEK_CUR Param 7230 I(4) 4 scalar MPI_SEEK_END Param 7232 I(4) 4 scalar MPI_SEEK_SET Param 7228 I(4) 4 scalar Page 134 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SHORT Param 7066 I(4) 4 scalar MPI_SHORT_INT Param 7096 I(4) 4 scalar MPI_SIGNED_CHAR Param 7060 I(4) 4 scalar MPI_SIMILAR Param 6862 I(4) 4 scalar MPI_SOURCE Param 6727 I(4) 4 scalar MPI_STATUS_SIZE Param 6729 I(4) 4 scalar 6731,6732,7340 MPI_SUBARRAYS_SUPPORTED Param 7248 L(4) 4 scalar MPI_SUBVERSION Param 6994 I(4) 4 scalar MPI_SUCCESS Param 6736 I(4) 4 scalar MPI_SUM Param 6882 I(4) 4 scalar MPI_TAG Param 6727 I(4) 4 scalar MPI_TAG_UB Param 6932 I(4) 4 scalar MPI_THREAD_FUNNELED Param 7204 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 7208 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 7206 I(4) 4 scalar MPI_THREAD_SINGLE Param 7202 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 7184 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 7182 I(4) 4 scalar MPI_TYPECLASS_REAL Param 7180 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 7261 scalar MPI_TYPE_NULL_COPY_FN Subr 7262 scalar MPI_TYPE_NULL_DELETE_FN Subr 7261 scalar MPI_UB Param 7022 I(4) 4 scalar MPI_UINT16_T Param 7112 I(4) 4 scalar MPI_UINT32_T Param 7114 I(4) 4 scalar MPI_UINT64_T Param 7116 I(4) 4 scalar MPI_UINT8_T Param 7110 I(4) 4 scalar MPI_UNDEFINED Param 6972 I(4) 4 scalar MPI_UNEQUAL Param 6864 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 6940 I(4) 4 scalar MPI_UNSIGNED Param 7072 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 7062 I(4) 4 scalar MPI_UNSIGNED_LONG Param 7076 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 7086 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 7068 I(4) 4 scalar MPI_VERSION Param 6992 I(4) 4 scalar MPI_WAIT Subr 7490 7490,7541,7585,7589,7730,7781,7825 ,7829 MPI_WCHAR Param 7064 I(4) 4 scalar MPI_WIN_BASE Param 6946 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 6952 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 6950 I(4) 4 scalar MPI_WIN_DUP_FN Subr 7259 scalar MPI_WIN_FLAVOR_ALLOCATE Param 6868 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 6866 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 6870 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 6872 I(4) 4 scalar MPI_WIN_MODEL Param 6954 I(4) 4 scalar MPI_WIN_NULL Param 6914 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 7260 scalar MPI_WIN_NULL_DELETE_FN Subr 7259 scalar MPI_WIN_SEPARATE Param 6874 I(4) 4 scalar MPI_WIN_SIZE Param 6948 I(4) 4 scalar MPI_WIN_UNIFIED Param 6876 I(4) 4 scalar MPI_WTICK Func 7255 R(8) 8 scalar Page 135 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WTIME Func 7255 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 6938 I(4) 4 scalar MPPCOM Common 7282 1464 SAVE PMPI_WTICK Func 7256 R(8) 8 scalar PMPI_WTIME Func 7256 R(8) 8 scalar TEMPCOM Common 7323 6603768 SAVE TOPO Common 7331 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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:21 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 652 scalar COM 7366,7375,7427,7479,7606,7615,7667 ,7719 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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 7384,7436,7488,7539,7623,7624,7778 ,7779 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 7383,7435,7487,7538,7675,7676,7727 ,7728 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 7390,7398,7406,7414,7422,7546,7554 ,7562,7570,7578,7627,7635,7643,765 1,7659,7679,7687,7695,7703,7711,77 32,7740,7748,7756,7764,7783,7791,7 799,7807,7815 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:21 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 7442,7450,7458,7466,7474,7495,7503 ,7511,7519,7527,7627,7635,7643,765 1,7659,7679,7687,7695,7703,7711,77 32,7740,7748,7756,7764,7783,7791,7 799,7807,7815 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 7426,7478,7666,7718 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 7364,7365,7373,7374,7382,7426,7434 ,7478,7486,7537,7584,7588,7604,760 Page 138 Source Listing EXCH11111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 5,7613,7614,7622,7666,7674,7718,77 26,7777,7824,7828 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:21 module_EXCHM.F 7834 7835 SUBROUTINE EXCH111111(ARR1,LL1,ARR2,LL2,ARR3,LL3,ARR4,LL4 7836 1, ARR5,LL5,ARR6,LL6,IHALO,JHALO) 7837 USE EXCH_BUF_REAL 7838 INCLUDE "parmeta" 7861 INCLUDE "mpif.h" 8423 INCLUDE "mpp.h" 8424 C----------------------------------------------------------------------- 8483 INTEGER ISTAT(MPI_STATUS_SIZE) 8484 INTEGER IHANDLE(4) 8485 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 8486 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 8487 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 8488 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 8489 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 8490 REAL ARR6(IDIM1:IDIM2,JDIM1:JDIM2,*) 8491 C 8492 C*********************************************************************** 8493 C 8494 ITYPE=MPI_REAL 8495 C 8496 C-------------------------------------------------------------------- 8497 C-------------------------------------------------------------------- 8498 C*** 8499 C*** NORTH/SOUTH 8500 C*** 8501 C-------------------------------------------------------------------- 8502 C-------------------------------------------------------------------- 8503 C 8504 C-------------------------------------------------------------------- 8505 C RECEIVE FROM NORTH 8506 C-------------------------------------------------------------------- 8507 C 8508 IF(MY_NEB(1).GE.0)THEN 8509 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 8510 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 8511 ENDIF 8512 C 8513 C-------------------------------------------------------------------- 8514 C RECEIVE FROM SOUTH 8515 C-------------------------------------------------------------------- 8516 C 8517 IF(MY_NEB(3).GE.0)THEN 8518 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 8519 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 8520 ENDIF 8521 C 8522 C-------------------------------------------------------------------- 8523 C SEND TO NORTH 8524 C-------------------------------------------------------------------- 8525 C 8526 IF(MY_NEB(1).GE.0)THEN 8527 IBEG=MYIS-IHALO 8528 IEND=MYIE+IHALO 8529 IC = 0 8530 DO K=1,LL1 8531 DO J=0,JHALO-1 Page 140 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8532 DO I=IBEG,IEND 8533 IC = IC + 1 8534 BUF2(IC)=ARR1(I,MYJE-J,K) 8535 ENDDO 8536 ENDDO 8537 ENDDO 8538 DO K=1,LL2 8539 DO J=0,JHALO-1 8540 DO I=IBEG,IEND 8541 IC = IC + 1 8542 BUF2(IC)=ARR2(I,MYJE-J,K) 8543 ENDDO 8544 ENDDO 8545 ENDDO 8546 DO K=1,LL3 8547 DO J=0,JHALO-1 8548 DO I=IBEG,IEND 8549 IC = IC + 1 8550 BUF2(IC)=ARR3(I,MYJE-J,K) 8551 ENDDO 8552 ENDDO 8553 ENDDO 8554 DO K=1,LL4 8555 DO J=0,JHALO-1 8556 DO I=IBEG,IEND 8557 IC = IC + 1 8558 BUF2(IC)=ARR4(I,MYJE-J,K) 8559 ENDDO 8560 ENDDO 8561 ENDDO 8562 DO K=1,LL5 8563 DO J=0,JHALO-1 8564 DO I=IBEG,IEND 8565 IC = IC + 1 8566 BUF2(IC)=ARR5(I,MYJE-J,K) 8567 ENDDO 8568 ENDDO 8569 ENDDO 8570 DO K=1,LL6 8571 DO J=0,JHALO-1 8572 DO I=IBEG,IEND 8573 IC = IC + 1 8574 BUF2(IC)=ARR6(I,MYJE-J,K) 8575 ENDDO 8576 ENDDO 8577 ENDDO 8578 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 8579 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 8580 ENDIF 8581 C 8582 C-------------------------------------------------------------------- 8583 C SEND TO SOUTH 8584 C-------------------------------------------------------------------- 8585 C 8586 IF(MY_NEB(3).GE.0)THEN 8587 IBEG=MYIS-IHALO 8588 IEND=MYIE+IHALO Page 141 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8589 IC = 0 8590 DO K=1,LL1 8591 DO J=0,JHALO-1 8592 DO I=IBEG,IEND 8593 IC = IC + 1 8594 BUF3(IC)=ARR1(I,MYJS+J,K) 8595 ENDDO 8596 ENDDO 8597 ENDDO 8598 DO K=1,LL2 8599 DO J=0,JHALO-1 8600 DO I=IBEG,IEND 8601 IC = IC + 1 8602 BUF3(IC)=ARR2(I,MYJS+J,K) 8603 ENDDO 8604 ENDDO 8605 ENDDO 8606 DO K=1,LL3 8607 DO J=0,JHALO-1 8608 DO I=IBEG,IEND 8609 IC = IC + 1 8610 BUF3(IC)=ARR3(I,MYJS+J,K) 8611 ENDDO 8612 ENDDO 8613 ENDDO 8614 DO K=1,LL4 8615 DO J=0,JHALO-1 8616 DO I=IBEG,IEND 8617 IC = IC + 1 8618 BUF3(IC)=ARR4(I,MYJS+J,K) 8619 ENDDO 8620 ENDDO 8621 ENDDO 8622 DO K=1,LL5 8623 DO J=0,JHALO-1 8624 DO I=IBEG,IEND 8625 IC = IC + 1 8626 BUF3(IC)=ARR5(I,MYJS+J,K) 8627 ENDDO 8628 ENDDO 8629 ENDDO 8630 DO K=1,LL6 8631 DO J=0,JHALO-1 8632 DO I=IBEG,IEND 8633 IC = IC + 1 8634 BUF3(IC)=ARR6(I,MYJS+J,K) 8635 ENDDO 8636 ENDDO 8637 ENDDO 8638 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 8639 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 8640 ENDIF 8641 C 8642 C-------------------------------------------------------------------- 8643 C STORE RESULTS FROM SOUTH 8644 C-------------------------------------------------------------------- 8645 C Page 142 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8646 IF(MY_NEB(3).GE.0)THEN 8647 IBEG=MYIS-IHALO 8648 IEND=MYIE+IHALO 8649 IC = 0 8650 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 8651 DO K=1,LL1 8652 DO J=0,JHALO-1 8653 DO I=IBEG,IEND 8654 IC = IC + 1 8655 ARR1(I,MYJS-J-1,K)=BUF1(IC) 8656 ENDDO 8657 ENDDO 8658 ENDDO 8659 DO K=1,LL2 8660 DO J=0,JHALO-1 8661 DO I=IBEG,IEND 8662 IC = IC + 1 8663 ARR2(I,MYJS-J-1,K)=BUF1(IC) 8664 ENDDO 8665 ENDDO 8666 ENDDO 8667 DO K=1,LL3 8668 DO J=0,JHALO-1 8669 DO I=IBEG,IEND 8670 IC = IC + 1 8671 ARR3(I,MYJS-J-1,K)=BUF1(IC) 8672 ENDDO 8673 ENDDO 8674 ENDDO 8675 DO K=1,LL4 8676 DO J=0,JHALO-1 8677 DO I=IBEG,IEND 8678 IC = IC + 1 8679 ARR4(I,MYJS-J-1,K)=BUF1(IC) 8680 ENDDO 8681 ENDDO 8682 ENDDO 8683 DO K=1,LL5 8684 DO J=0,JHALO-1 8685 DO I=IBEG,IEND 8686 IC = IC + 1 8687 ARR5(I,MYJS-J-1,K)=BUF1(IC) 8688 ENDDO 8689 ENDDO 8690 ENDDO 8691 DO K=1,LL6 8692 DO J=0,JHALO-1 8693 DO I=IBEG,IEND 8694 IC = IC + 1 8695 ARR6(I,MYJS-J-1,K)=BUF1(IC) 8696 ENDDO 8697 ENDDO 8698 ENDDO 8699 ENDIF 8700 C 8701 C-------------------------------------------------------------------- 8702 C STORE FROM NORTH Page 143 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8703 C-------------------------------------------------------------------- 8704 C 8705 IF(MY_NEB(1).GE.0)THEN 8706 IBEG=MYIS-IHALO 8707 IEND=MYIE+IHALO 8708 IC = 0 8709 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 8710 DO K=1,LL1 8711 DO J=0,JHALO-1 8712 DO I=IBEG,IEND 8713 IC = IC + 1 8714 ARR1(I,MYJE+J+1,K)=BUF0(IC) 8715 ENDDO 8716 ENDDO 8717 ENDDO 8718 DO K=1,LL2 8719 DO J=0,JHALO-1 8720 DO I=IBEG,IEND 8721 IC = IC + 1 8722 ARR2(I,MYJE+J+1,K)=BUF0(IC) 8723 ENDDO 8724 ENDDO 8725 ENDDO 8726 DO K=1,LL3 8727 DO J=0,JHALO-1 8728 DO I=IBEG,IEND 8729 IC = IC + 1 8730 ARR3(I,MYJE+J+1,K)=BUF0(IC) 8731 ENDDO 8732 ENDDO 8733 ENDDO 8734 DO K=1,LL4 8735 DO J=0,JHALO-1 8736 DO I=IBEG,IEND 8737 IC = IC + 1 8738 ARR4(I,MYJE+J+1,K)=BUF0(IC) 8739 ENDDO 8740 ENDDO 8741 ENDDO 8742 DO K=1,LL5 8743 DO J=0,JHALO-1 8744 DO I=IBEG,IEND 8745 IC = IC + 1 8746 ARR5(I,MYJE+J+1,K)=BUF0(IC) 8747 ENDDO 8748 ENDDO 8749 ENDDO 8750 DO K=1,LL6 8751 DO J=0,JHALO-1 8752 DO I=IBEG,IEND 8753 IC = IC + 1 8754 ARR6(I,MYJE+J+1,K)=BUF0(IC) 8755 ENDDO 8756 ENDDO 8757 ENDDO 8758 ENDIF 8759 C Page 144 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8760 IF(MY_NEB(1).GE.0)THEN 8761 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 8762 ENDIF 8763 C 8764 IF(MY_NEB(3).GE.0)THEN 8765 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 8766 ENDIF 8767 C 8768 C-------------------------------------------------------------------- 8769 C-------------------------------------------------------------------- 8770 C*** 8771 C*** EAST/WEST 8772 C*** 8773 C-------------------------------------------------------------------- 8774 C-------------------------------------------------------------------- 8775 C 8776 C-------------------------------------------------------------------- 8777 C RECEIVE FROM WEST 8778 C-------------------------------------------------------------------- 8779 C 8780 IF(MY_NEB(4).GE.0)THEN 8781 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 8782 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 8783 ENDIF 8784 C 8785 C-------------------------------------------------------------------- 8786 C RECEIVE FROM EAST 8787 C-------------------------------------------------------------------- 8788 C 8789 IF(MY_NEB(2).GE.0)THEN 8790 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 8791 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 8792 ENDIF 8793 C 8794 C-------------------------------------------------------------------- 8795 C SEND TO EAST 8796 C-------------------------------------------------------------------- 8797 C 8798 IF(MY_NEB(2).GE.0)THEN 8799 IBEG=MYIE-IHALO+1 8800 IEND=MYIE 8801 IC = 0 8802 DO K=1,LL1 8803 DO J=MYJS-JHALO,MYJE+JHALO 8804 DO I=IBEG,IEND 8805 IC = IC + 1 8806 BUF2(IC)=ARR1(I,J,K) 8807 ENDDO 8808 ENDDO 8809 ENDDO 8810 DO K=1,LL2 8811 DO J=MYJS-JHALO,MYJE+JHALO 8812 DO I=IBEG,IEND 8813 IC = IC + 1 8814 BUF2(IC)=ARR2(I,J,K) 8815 ENDDO 8816 ENDDO Page 145 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8817 ENDDO 8818 DO K=1,LL3 8819 DO J=MYJS-JHALO,MYJE+JHALO 8820 DO I=IBEG,IEND 8821 IC = IC + 1 8822 BUF2(IC)=ARR3(I,J,K) 8823 ENDDO 8824 ENDDO 8825 ENDDO 8826 DO K=1,LL4 8827 DO J=MYJS-JHALO,MYJE+JHALO 8828 DO I=IBEG,IEND 8829 IC = IC + 1 8830 BUF2(IC)=ARR4(I,J,K) 8831 ENDDO 8832 ENDDO 8833 ENDDO 8834 DO K=1,LL5 8835 DO J=MYJS-JHALO,MYJE+JHALO 8836 DO I=IBEG,IEND 8837 IC = IC + 1 8838 BUF2(IC)=ARR5(I,J,K) 8839 ENDDO 8840 ENDDO 8841 ENDDO 8842 DO K=1,LL6 8843 DO J=MYJS-JHALO,MYJE+JHALO 8844 DO I=IBEG,IEND 8845 IC = IC + 1 8846 BUF2(IC)=ARR6(I,J,K) 8847 ENDDO 8848 ENDDO 8849 ENDDO 8850 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 8851 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 8852 ENDIF 8853 C 8854 C-------------------------------------------------------------------- 8855 C SEND TO WEST 8856 C-------------------------------------------------------------------- 8857 C 8858 IF(MY_NEB(4).GE.0)THEN 8859 IBEG=MYIS 8860 IEND=MYIS+IHALO-1 8861 IC = 0 8862 DO K=1,LL1 8863 DO J=MYJS-JHALO,MYJE+JHALO 8864 DO I=IBEG,IEND 8865 IC = IC + 1 8866 BUF3(IC)=ARR1(I,J,K) 8867 ENDDO 8868 ENDDO 8869 ENDDO 8870 DO K=1,LL2 8871 DO J=MYJS-JHALO,MYJE+JHALO 8872 DO I=IBEG,IEND 8873 IC = IC + 1 Page 146 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8874 BUF3(IC)=ARR2(I,J,K) 8875 ENDDO 8876 ENDDO 8877 ENDDO 8878 DO K=1,LL3 8879 DO J=MYJS-JHALO,MYJE+JHALO 8880 DO I=IBEG,IEND 8881 IC = IC + 1 8882 BUF3(IC)=ARR3(I,J,K) 8883 ENDDO 8884 ENDDO 8885 ENDDO 8886 DO K=1,LL4 8887 DO J=MYJS-JHALO,MYJE+JHALO 8888 DO I=IBEG,IEND 8889 IC = IC + 1 8890 BUF3(IC)=ARR4(I,J,K) 8891 ENDDO 8892 ENDDO 8893 ENDDO 8894 DO K=1,LL5 8895 DO J=MYJS-JHALO,MYJE+JHALO 8896 DO I=IBEG,IEND 8897 IC = IC + 1 8898 BUF3(IC)=ARR5(I,J,K) 8899 ENDDO 8900 ENDDO 8901 ENDDO 8902 DO K=1,LL6 8903 DO J=MYJS-JHALO,MYJE+JHALO 8904 DO I=IBEG,IEND 8905 IC = IC + 1 8906 BUF3(IC)=ARR6(I,J,K) 8907 ENDDO 8908 ENDDO 8909 ENDDO 8910 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 8911 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 8912 ENDIF 8913 C 8914 C-------------------------------------------------------------------- 8915 C STORE FROM WEST 8916 C-------------------------------------------------------------------- 8917 C 8918 IF(MY_NEB(4).GE.0)THEN 8919 IBEG=MYIS-IHALO 8920 IEND=MYIS-1 8921 IC = 0 8922 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 8923 DO K=1,LL1 8924 DO J=MYJS-JHALO,MYJE+JHALO 8925 DO I=IBEG,IEND 8926 IC = IC + 1 8927 ARR1(I,J,K)=BUF0(IC) 8928 ENDDO 8929 ENDDO 8930 ENDDO Page 147 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8931 DO K=1,LL2 8932 DO J=MYJS-JHALO,MYJE+JHALO 8933 DO I=IBEG,IEND 8934 IC = IC + 1 8935 ARR2(I,J,K)=BUF0(IC) 8936 ENDDO 8937 ENDDO 8938 ENDDO 8939 DO K=1,LL3 8940 DO J=MYJS-JHALO,MYJE+JHALO 8941 DO I=IBEG,IEND 8942 IC = IC + 1 8943 ARR3(I,J,K)=BUF0(IC) 8944 ENDDO 8945 ENDDO 8946 ENDDO 8947 DO K=1,LL4 8948 DO J=MYJS-JHALO,MYJE+JHALO 8949 DO I=IBEG,IEND 8950 IC = IC + 1 8951 ARR4(I,J,K)=BUF0(IC) 8952 ENDDO 8953 ENDDO 8954 ENDDO 8955 DO K=1,LL5 8956 DO J=MYJS-JHALO,MYJE+JHALO 8957 DO I=IBEG,IEND 8958 IC = IC + 1 8959 ARR5(I,J,K)=BUF0(IC) 8960 ENDDO 8961 ENDDO 8962 ENDDO 8963 DO K=1,LL6 8964 DO J=MYJS-JHALO,MYJE+JHALO 8965 DO I=IBEG,IEND 8966 IC = IC + 1 8967 ARR6(I,J,K)=BUF0(IC) 8968 ENDDO 8969 ENDDO 8970 ENDDO 8971 ENDIF 8972 C 8973 C-------------------------------------------------------------------- 8974 C STORE FROM EAST 8975 C-------------------------------------------------------------------- 8976 C 8977 IF(MY_NEB(2).GE.0)THEN 8978 IBEG=MYIE+1 8979 IEND=MYIE+IHALO 8980 IC = 0 8981 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 8982 DO K=1,LL1 8983 DO J=MYJS-JHALO,MYJE+JHALO 8984 DO I=IBEG,IEND 8985 IC = IC + 1 8986 ARR1(I,J,K)=BUF1(IC) 8987 ENDDO Page 148 Source Listing EXCH111111 2025-03-12 18:21 module_EXCHM.F 8988 ENDDO 8989 ENDDO 8990 DO K=1,LL2 8991 DO J=MYJS-JHALO,MYJE+JHALO 8992 DO I=IBEG,IEND 8993 IC = IC + 1 8994 ARR2(I,J,K)=BUF1(IC) 8995 ENDDO 8996 ENDDO 8997 ENDDO 8998 DO K=1,LL3 8999 DO J=MYJS-JHALO,MYJE+JHALO 9000 DO I=IBEG,IEND 9001 IC = IC + 1 9002 ARR3(I,J,K)=BUF1(IC) 9003 ENDDO 9004 ENDDO 9005 ENDDO 9006 DO K=1,LL4 9007 DO J=MYJS-JHALO,MYJE+JHALO 9008 DO I=IBEG,IEND 9009 IC = IC + 1 9010 ARR4(I,J,K)=BUF1(IC) 9011 ENDDO 9012 ENDDO 9013 ENDDO 9014 DO K=1,LL5 9015 DO J=MYJS-JHALO,MYJE+JHALO 9016 DO I=IBEG,IEND 9017 IC = IC + 1 9018 ARR5(I,J,K)=BUF1(IC) 9019 ENDDO 9020 ENDDO 9021 ENDDO 9022 DO K=1,LL6 9023 DO J=MYJS-JHALO,MYJE+JHALO 9024 DO I=IBEG,IEND 9025 IC = IC + 1 9026 ARR6(I,J,K)=BUF1(IC) 9027 ENDDO 9028 ENDDO 9029 ENDDO 9030 ENDIF 9031 C 9032 IF(MY_NEB(4).GE.0)THEN 9033 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 9034 ENDIF 9035 C 9036 IF(MY_NEB(2).GE.0)THEN 9037 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 9038 ENDIF 9039 C 9040 C-------------------------------------------------------------------- 9041 END SUBROUTINE Page 149 Source Listing EXCH111111 2025-03-12 18:21 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 7835 R(4) 4 3 0 ARG,INOUT 8534,8594,8655,8714,8806,8866,8927 ,8986 ARR2 Dummy 7835 R(4) 4 3 0 ARG,INOUT 8542,8602,8663,8722,8814,8874,8935 ,8994 ARR3 Dummy 7835 R(4) 4 3 0 ARG,INOUT 8550,8610,8671,8730,8822,8882,8943 ,9002 ARR4 Dummy 7835 R(4) 4 3 0 ARG,INOUT 8558,8618,8679,8738,8830,8890,8951 ,9010 ARR5 Dummy 7836 R(4) 4 3 0 ARG,INOUT 8566,8626,8687,8746,8838,8898,8959 ,9018 ARR6 Dummy 7836 R(4) 4 3 0 ARG,INOUT 8574,8634,8695,8754,8846,8906,8967 ,9026 BUF0 Local 8509 R(4) 4 1 2500000 8509,8714,8722,8730,8738,8746,8754 ,8781,8927,8935,8943,8951,8959,896 7 BUF1 Local 8518 R(4) 4 1 2500000 8518,8655,8663,8671,8679,8687,8695 ,8790,8986,8994,9002,9010,9018,902 6 BUF2 Local 8534 R(4) 4 1 2500000 8534,8542,8550,8558,8566,8574,8578 ,8806,8814,8822,8830,8838,8846,885 0 BUF3 Local 8594 R(4) 4 1 2500000 8594,8602,8610,8618,8626,8634,8638 ,8866,8874,8882,8890,8898,8906,891 0 EXCH111111 Subr 7835 EXCH_BUF_REAL Module 7837 7837 GLB_TABLE Common 8461 128 SAVE I Local 8532 I(4) 4 scalar 8532,8534,8540,8542,8548,8550,8556 ,8558,8564,8566,8572,8574,8592,859 4,8600,8602,8608,8610,8616,8618,86 24,8626,8632,8634,8653,8655,8661,8 663,8669,8671,8677,8679,8685,8687, 8693,8695,8712,8714,8720,8722,8728 ,8730,8736,8738,8744,8746,8752,875 4,8804,8806,8812,8814,8820,8822,88 28,8830,8836,8838,8844,8846,8864,8 866,8872,8874,8880,8882,8888,8890, 8896,8898,8904,8906,8925,8927,8933 ,8935,8941,8943,8949,8951,8957,895 9,8965,8967,8984,8986,8992,8994,90 00,9002,9008,9010,9016,9018,9024,9 026 IBEG Local 8527 I(4) 4 scalar 8527,8532,8540,8548,8556,8564,8572 ,8587,8592,8600,8608,8616,8624,863 Page 150 Source Listing EXCH111111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 2,8647,8653,8661,8669,8677,8685,86 93,8706,8712,8720,8728,8736,8744,8 752,8799,8804,8812,8820,8828,8836, 8844,8859,8864,8872,8880,8888,8896 ,8904,8919,8925,8933,8941,8949,895 7,8965,8978,8984,8992,9000,9008,90 16,9024 IBUFEXCH Param 8509 I(4) 4 scalar 8509,8518,8781,8790 IC Local 8529 I(4) 4 scalar 8529,8533,8534,8541,8542,8549,8550 ,8557,8558,8565,8566,8573,8574,857 8,8589,8593,8594,8601,8602,8609,86 10,8617,8618,8625,8626,8633,8634,8 638,8649,8654,8655,8662,8663,8670, 8671,8678,8679,8686,8687,8694,8695 ,8708,8713,8714,8721,8722,8729,873 0,8737,8738,8745,8746,8753,8754,88 01,8805,8806,8813,8814,8821,8822,8 829,8830,8837,8838,8845,8846,8850, 8861,8865,8866,8873,8874,8881,8882 ,8889,8890,8897,8898,8905,8906,891 0,8921,8926,8927,8934,8935,8942,89 43,8950,8951,8958,8959,8966,8967,8 980,8985,8986,8993,8994,9001,9002, 9009,9010,9017,9018,9025,9026 IDIM1 Param 7857 I(4) 4 scalar 8485,8486,8487,8488,8489,8490 IDIM2 Param 7857 I(4) 4 scalar 8485,8486,8487,8488,8489,8490 IEND Local 8528 I(4) 4 scalar 8528,8532,8540,8548,8556,8564,8572 ,8588,8592,8600,8608,8616,8624,863 2,8648,8653,8661,8669,8677,8685,86 93,8707,8712,8720,8728,8736,8744,8 752,8800,8804,8812,8820,8828,8836, 8844,8860,8864,8872,8880,8888,8896 ,8904,8920,8925,8933,8941,8949,895 7,8965,8979,8984,8992,9000,9008,90 16,9024 IERR Local 8650 I(4) 4 scalar 8650,8709,8761,8765,8922,8981,9033 ,9037 IGSTL Param 7852 I(4) 4 scalar 7857 IGSTR Param 7852 I(4) 4 scalar 7857 IHALO Dummy 7836 I(4) 4 scalar ARG,INOUT 8527,8528,8587,8588,8647,8648,8706 ,8707,8799,8860,8919,8979 IHANDLE Local 8484 I(4) 4 1 4 8510,8519,8579,8639,8650,8709,8761 ,8765,8782,8791,8851,8911,8922,898 1,9033,9037 IM Param 7841 I(4) 4 scalar 7854,7857,8467,8468,8469,8470,8471 ,8475,8476,8481 INPES Param 7849 I(4) 4 scalar 7854,7857,8451,8452,8453,8462,8463 IRECV Local 8510 I(4) 4 scalar 8510,8519,8782,8791 ISEND Local 8579 I(4) 4 scalar 8579,8639,8851,8911 ISTAT Local 8483 I(4) 4 1 5 8650,8709,8761,8765,8922,8981,9033 ,9037 ITAIL Param 7854 I(4) 4 scalar ITYPE Local 8494 I(4) 4 scalar 8494,8509,8518,8578,8638,8781,8790 ,8850,8910 J Local 8531 I(4) 4 scalar 8531,8534,8539,8542,8547,8550,8555 Page 151 Source Listing EXCH111111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,8558,8563,8566,8571,8574,8591,859 4,8599,8602,8607,8610,8615,8618,86 23,8626,8631,8634,8652,8655,8660,8 663,8668,8671,8676,8679,8684,8687, 8692,8695,8711,8714,8719,8722,8727 ,8730,8735,8738,8743,8746,8751,875 4,8803,8806,8811,8814,8819,8822,88 27,8830,8835,8838,8843,8846,8863,8 866,8871,8874,8879,8882,8887,8890, 8895,8898,8903,8906,8924,8927,8932 ,8935,8940,8943,8948,8951,8956,895 9,8964,8967,8983,8986,8991,8994,89 99,9002,9007,9010,9015,9018,9023,9 026 JDIM1 Param 7858 I(4) 4 scalar 8485,8486,8487,8488,8489,8490 JDIM2 Param 7858 I(4) 4 scalar 8485,8486,8487,8488,8489,8490 JGSTL Param 7853 I(4) 4 scalar 7858 JGSTR Param 7853 I(4) 4 scalar 7858 JHALO Dummy 7836 I(4) 4 scalar ARG,INOUT 8531,8539,8547,8555,8563,8571,8591 ,8599,8607,8615,8623,8631,8652,866 0,8668,8676,8684,8692,8711,8719,87 27,8735,8743,8751,8803,8811,8819,8 827,8835,8843,8863,8871,8879,8887, 8895,8903,8924,8932,8940,8948,8956 ,8964,8983,8991,8999,9007,9015,902 3 JM Param 7841 I(4) 4 scalar 7855,7858,8467,8468,8469,8470,8471 ,8475,8476,8481 JNPES Param 7849 I(4) 4 scalar 7855,7858,8451,8452,8453,8462,8463 JTAIL Param 7855 I(4) 4 scalar K Local 8530 I(4) 4 scalar 8530,8534,8538,8542,8546,8550,8554 ,8558,8562,8566,8570,8574,8590,859 4,8598,8602,8606,8610,8614,8618,86 22,8626,8630,8634,8651,8655,8659,8 663,8667,8671,8675,8679,8683,8687, 8691,8695,8710,8714,8718,8722,8726 ,8730,8734,8738,8742,8746,8750,875 4,8802,8806,8810,8814,8818,8822,88 26,8830,8834,8838,8842,8846,8862,8 866,8870,8874,8878,8882,8886,8890, 8894,8898,8902,8906,8923,8927,8931 ,8935,8939,8943,8947,8951,8955,895 9,8963,8967,8982,8986,8990,8994,89 98,9002,9006,9010,9014,9018,9022,9 026 LL1 Dummy 7835 I(4) 4 scalar ARG,INOUT 8530,8590,8651,8710,8802,8862,8923 ,8982 LL2 Dummy 7835 I(4) 4 scalar ARG,INOUT 8538,8598,8659,8718,8810,8870,8931 ,8990 LL3 Dummy 7835 I(4) 4 scalar ARG,INOUT 8546,8606,8667,8726,8818,8878,8939 ,8998 LL4 Dummy 7835 I(4) 4 scalar ARG,INOUT 8554,8614,8675,8734,8826,8886,8947 ,9006 LL5 Dummy 7836 I(4) 4 scalar ARG,INOUT 8562,8622,8683,8742,8834,8894,8955 ,9014 Page 152 Source Listing EXCH111111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References LL6 Dummy 7836 I(4) 4 scalar ARG,INOUT 8570,8630,8691,8750,8842,8902,8963 ,9022 LM Param 7841 I(4) 4 scalar 8476 LSM Param 7841 I(4) 4 scalar MAPPINGS Common 8480 5024 SAVE MPIFCMB5 Common 8411 4 SAVE MPIFCMB9 Common 8412 4 SAVE MPIPRIV1 Common 8416 28 SAVE MPIPRIV2 Common 8418 24 SAVE MPIPRIVC Common 8421 2 SAVE MPI_2DOUBLE_PRECISION Param 8157 I(4) 4 scalar MPI_2INT Param 8241 I(4) 4 scalar MPI_2INTEGER Param 8155 I(4) 4 scalar MPI_2REAL Param 8159 I(4) 4 scalar MPI_ADDRESS_KIND Param 8193 I(4) 4 scalar MPI_AINT Param 8271 I(4) 4 scalar MPI_ANY_SOURCE Param 8123 I(4) 4 scalar MPI_ANY_TAG Param 8125 I(4) 4 scalar MPI_APPNUM Param 8087 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 8393 L(4) 4 scalar MPI_BAND Param 8031 I(4) 4 scalar MPI_BOR Param 8035 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 8119 I(4) 4 scalar MPI_BXOR Param 8039 I(4) 4 scalar MPI_BYTE Param 8163 I(4) 4 scalar MPI_CART Param 8131 I(4) 4 scalar MPI_CHAR Param 8201 I(4) 4 scalar MPI_CHARACTER Param 8161 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 8289 I(4) 4 scalar MPI_COMBINER_DARRAY Param 8311 I(4) 4 scalar MPI_COMBINER_DUP Param 8287 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 8315 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 8317 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 8313 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 8301 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 8321 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 8299 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 8295 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 8293 I(4) 4 scalar MPI_COMBINER_INDEXED Param 8297 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 8303 I(4) 4 scalar MPI_COMBINER_NAMED Param 8285 I(4) 4 scalar MPI_COMBINER_RESIZED Param 8319 I(4) 4 scalar MPI_COMBINER_STRUCT Param 8307 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 8305 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 8309 I(4) 4 scalar MPI_COMBINER_VECTOR Param 8291 I(4) 4 scalar MPI_COMM_DUP_FN Subr 8400 scalar MPI_COMM_NULL Param 8055 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 8401 scalar Page 153 Source Listing EXCH111111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_NULL_DELETE_FN Subr 8400 scalar MPI_COMM_SELF Param 8051 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 8339 I(4) 4 scalar MPI_COMM_WORLD Param 8049 I(4) 4 scalar MPI_COMPLEX Param 8143 I(4) 4 scalar MPI_COMPLEX16 Param 8189 I(4) 4 scalar MPI_COMPLEX32 Param 8191 I(4) 4 scalar MPI_COMPLEX8 Param 8187 I(4) 4 scalar MPI_CONGRUENT Param 8003 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 8406 scalar MPI_COUNT Param 8275 I(4) 4 scalar MPI_COUNT_KIND Param 8197 I(4) 4 scalar MPI_CXX_BOOL Param 8277 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 8281 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 8279 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 8283 I(4) 4 scalar MPI_C_BOOL Param 8261 I(4) 4 scalar MPI_C_COMPLEX Param 8265 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 8267 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 8263 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 8269 I(4) 4 scalar MPI_DATATYPE_NULL Param 8065 I(4) 4 scalar 8180,8278,8280,8282,8284 MPI_DISPLACEMENT_CURRENT Param 8389 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 8381 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 8383 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 8387 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 8385 I(4) 4 scalar MPI_DIST_GRAPH Param 8133 I(4) 4 scalar MPI_DOUBLE Param 8223 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 8145 I(4) 4 scalar MPI_DOUBLE_INT Param 8235 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 8151 I(4) 4 scalar MPI_DUP_FN Subr 8397 scalar MPI_ERRHANDLER_NULL Param 8069 I(4) 4 scalar MPI_ERROR Param 7870 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 7997 I(4) 4 scalar MPI_ERRORS_RETURN Param 7999 I(4) 4 scalar MPI_ERR_ACCESS Param 7989 I(4) 4 scalar MPI_ERR_AMODE Param 7975 I(4) 4 scalar MPI_ERR_ARG Param 7945 I(4) 4 scalar MPI_ERR_ASSERT Param 7951 I(4) 4 scalar MPI_ERR_BAD_FILE Param 7913 I(4) 4 scalar MPI_ERR_BASE Param 7943 I(4) 4 scalar MPI_ERR_BUFFER Param 7885 I(4) 4 scalar MPI_ERR_COMM Param 7963 I(4) 4 scalar MPI_ERR_CONVERSION Param 7979 I(4) 4 scalar MPI_ERR_COUNT Param 7889 I(4) 4 scalar MPI_ERR_DIMS Param 7927 I(4) 4 scalar MPI_ERR_DISP Param 7911 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 7893 I(4) 4 scalar MPI_ERR_FILE Param 7923 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 7905 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 7947 I(4) 4 scalar MPI_ERR_GROUP Param 7909 I(4) 4 scalar Page 154 Source Listing EXCH111111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO Param 7937 I(4) 4 scalar MPI_ERR_INFO_KEY Param 7941 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 7921 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 7907 I(4) 4 scalar MPI_ERR_INTERN Param 7939 I(4) 4 scalar MPI_ERR_IN_STATUS Param 7925 I(4) 4 scalar MPI_ERR_IO Param 7985 I(4) 4 scalar MPI_ERR_KEYVAL Param 7931 I(4) 4 scalar MPI_ERR_LASTCODE Param 7953 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 7935 I(4) 4 scalar MPI_ERR_NAME Param 7929 I(4) 4 scalar MPI_ERR_NOT_SAME Param 7957 I(4) 4 scalar MPI_ERR_NO_MEM Param 7949 I(4) 4 scalar MPI_ERR_NO_SPACE Param 7881 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 7965 I(4) 4 scalar MPI_ERR_OP Param 7983 I(4) 4 scalar MPI_ERR_OTHER Param 7897 I(4) 4 scalar MPI_ERR_PENDING Param 7887 I(4) 4 scalar MPI_ERR_PORT Param 7969 I(4) 4 scalar MPI_ERR_QUOTA Param 7973 I(4) 4 scalar MPI_ERR_RANK Param 7895 I(4) 4 scalar MPI_ERR_READ_ONLY Param 7933 I(4) 4 scalar MPI_ERR_REQUEST Param 7977 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 7899 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 7903 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 7919 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 7981 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 7971 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 7883 I(4) 4 scalar MPI_ERR_ROOT Param 7915 I(4) 4 scalar MPI_ERR_SERVICE Param 7891 I(4) 4 scalar MPI_ERR_SIZE Param 7901 I(4) 4 scalar MPI_ERR_SPAWN Param 7961 I(4) 4 scalar MPI_ERR_TAG Param 7991 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 7995 I(4) 4 scalar MPI_ERR_TRUNCATE Param 7955 I(4) 4 scalar MPI_ERR_TYPE Param 7959 I(4) 4 scalar MPI_ERR_UNKNOWN Param 7993 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 7917 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 7967 I(4) 4 scalar MPI_ERR_WIN Param 7987 I(4) 4 scalar MPI_FILE_NULL Param 8059 I(4) 4 scalar MPI_FLOAT Param 8221 I(4) 4 scalar MPI_FLOAT_INT Param 8233 I(4) 4 scalar MPI_GRAPH Param 8129 I(4) 4 scalar MPI_GROUP_EMPTY Param 8053 I(4) 4 scalar MPI_GROUP_NULL Param 8061 I(4) 4 scalar MPI_HOST Param 8077 I(4) 4 scalar MPI_IDENT Param 8001 I(4) 4 scalar MPI_INFO_ENV Param 8073 I(4) 4 scalar MPI_INFO_NULL Param 8071 I(4) 4 scalar MPI_INT Param 8213 I(4) 4 scalar MPI_INT16_T Param 8247 I(4) 4 scalar Page 155 Source Listing EXCH111111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INT32_T Param 8249 I(4) 4 scalar MPI_INT64_T Param 8251 I(4) 4 scalar MPI_INT8_T Param 8245 I(4) 4 scalar MPI_INTEGER Param 8153 I(4) 4 scalar MPI_INTEGER1 Param 8171 I(4) 4 scalar MPI_INTEGER16 Param 8179 I(4) 4 scalar MPI_INTEGER2 Param 8173 I(4) 4 scalar MPI_INTEGER4 Param 8175 I(4) 4 scalar MPI_INTEGER8 Param 8177 I(4) 4 scalar MPI_INTEGER_KIND Param 8199 I(4) 4 scalar MPI_IO Param 8079 I(4) 4 scalar MPI_IRECV Subr 8509 8509,8518,8781,8790 MPI_ISEND Subr 8578 8578,8638,8850,8910 MPI_KEYVAL_INVALID Param 8117 I(4) 4 scalar MPI_LAND Param 8029 I(4) 4 scalar MPI_LASTUSEDCODE Param 8085 I(4) 4 scalar MPI_LB Param 8167 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 8139 I(4) 4 scalar MPI_LOCK_SHARED Param 8141 I(4) 4 scalar MPI_LOGICAL Param 8147 I(4) 4 scalar MPI_LONG Param 8217 I(4) 4 scalar MPI_LONG_DOUBLE Param 8225 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 8243 I(4) 4 scalar MPI_LONG_INT Param 8237 I(4) 4 scalar MPI_LONG_LONG Param 8231 I(4) 4 scalar MPI_LONG_LONG_INT Param 8227 I(4) 4 scalar MPI_LOR Param 8033 I(4) 4 scalar MPI_LXOR Param 8037 I(4) 4 scalar MPI_MAX Param 8021 I(4) 4 scalar MPI_MAXLOC Param 8043 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 8111 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 8099 I(4) 4 scalar MPI_MAX_INFO_KEY Param 8105 I(4) 4 scalar MPI_MAX_INFO_VAL Param 8107 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 8113 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 8103 I(4) 4 scalar MPI_MAX_PORT_NAME Param 8101 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 8109 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 8343 I(4) 4 scalar MPI_MESSAGE_NULL Param 8341 I(4) 4 scalar MPI_MIN Param 8023 I(4) 4 scalar MPI_MINLOC Param 8041 I(4) 4 scalar MPI_MODE_APPEND Param 8367 I(4) 4 scalar MPI_MODE_CREATE Param 8363 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 8359 I(4) 4 scalar MPI_MODE_EXCL Param 8365 I(4) 4 scalar MPI_MODE_NOCHECK Param 8329 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 8335 I(4) 4 scalar MPI_MODE_NOPUT Param 8333 I(4) 4 scalar MPI_MODE_NOSTORE Param 8331 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 8337 I(4) 4 scalar MPI_MODE_RDONLY Param 8353 I(4) 4 scalar MPI_MODE_RDWR Param 8355 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 8369 I(4) 4 scalar Page 156 Source Listing EXCH111111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_UNIQUE_OPEN Param 8361 I(4) 4 scalar MPI_MODE_WRONLY Param 8357 I(4) 4 scalar MPI_NO_OP Param 8047 I(4) 4 scalar MPI_NULL_COPY_FN Subr 8397 scalar MPI_NULL_DELETE_FN Subr 8397 scalar MPI_OFFSET Param 8273 I(4) 4 scalar MPI_OFFSET_KIND Param 8195 I(4) 4 scalar MPI_OP_NULL Param 8063 I(4) 4 scalar MPI_ORDER_C Param 8377 I(4) 4 scalar MPI_ORDER_FORTRAN Param 8379 I(4) 4 scalar MPI_PACKED Param 8169 I(4) 4 scalar MPI_PROC_NULL Param 8121 I(4) 4 scalar MPI_PROD Param 8027 I(4) 4 scalar MPI_REAL Param 8149 I(4) 4 scalar 8494 MPI_REAL16 Param 8185 I(4) 4 scalar MPI_REAL4 Param 8181 I(4) 4 scalar MPI_REAL8 Param 8183 I(4) 4 scalar MPI_REPLACE Param 8045 I(4) 4 scalar MPI_REQUEST_NULL Param 8067 I(4) 4 scalar MPI_ROOT Param 8127 I(4) 4 scalar MPI_SEEK_CUR Param 8373 I(4) 4 scalar MPI_SEEK_END Param 8375 I(4) 4 scalar MPI_SEEK_SET Param 8371 I(4) 4 scalar MPI_SHORT Param 8209 I(4) 4 scalar MPI_SHORT_INT Param 8239 I(4) 4 scalar MPI_SIGNED_CHAR Param 8203 I(4) 4 scalar MPI_SIMILAR Param 8005 I(4) 4 scalar MPI_SOURCE Param 7870 I(4) 4 scalar MPI_STATUS_SIZE Param 7872 I(4) 4 scalar 7874,7875,8483 MPI_SUBARRAYS_SUPPORTED Param 8391 L(4) 4 scalar MPI_SUBVERSION Param 8137 I(4) 4 scalar MPI_SUCCESS Param 7879 I(4) 4 scalar MPI_SUM Param 8025 I(4) 4 scalar MPI_TAG Param 7870 I(4) 4 scalar MPI_TAG_UB Param 8075 I(4) 4 scalar MPI_THREAD_FUNNELED Param 8347 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 8351 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 8349 I(4) 4 scalar MPI_THREAD_SINGLE Param 8345 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 8327 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 8325 I(4) 4 scalar MPI_TYPECLASS_REAL Param 8323 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 8404 scalar MPI_TYPE_NULL_COPY_FN Subr 8405 scalar MPI_TYPE_NULL_DELETE_FN Subr 8404 scalar MPI_UB Param 8165 I(4) 4 scalar MPI_UINT16_T Param 8255 I(4) 4 scalar MPI_UINT32_T Param 8257 I(4) 4 scalar MPI_UINT64_T Param 8259 I(4) 4 scalar MPI_UINT8_T Param 8253 I(4) 4 scalar MPI_UNDEFINED Param 8115 I(4) 4 scalar MPI_UNEQUAL Param 8007 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 8083 I(4) 4 scalar MPI_UNSIGNED Param 8215 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 8205 I(4) 4 scalar Page 157 Source Listing EXCH111111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNSIGNED_LONG Param 8219 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 8229 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 8211 I(4) 4 scalar MPI_VERSION Param 8135 I(4) 4 scalar MPI_WAIT Subr 8650 8650,8709,8761,8765,8922,8981,9033 ,9037 MPI_WCHAR Param 8207 I(4) 4 scalar MPI_WIN_BASE Param 8089 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 8095 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 8093 I(4) 4 scalar MPI_WIN_DUP_FN Subr 8402 scalar MPI_WIN_FLAVOR_ALLOCATE Param 8011 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 8009 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 8013 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 8015 I(4) 4 scalar MPI_WIN_MODEL Param 8097 I(4) 4 scalar MPI_WIN_NULL Param 8057 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 8403 scalar MPI_WIN_NULL_DELETE_FN Subr 8402 scalar MPI_WIN_SEPARATE Param 8017 I(4) 4 scalar MPI_WIN_SIZE Param 8091 I(4) 4 scalar MPI_WIN_UNIFIED Param 8019 I(4) 4 scalar MPI_WTICK Func 8398 R(8) 8 scalar MPI_WTIME Func 8398 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 8081 I(4) 4 scalar MPPCOM Common 8425 1464 SAVE PMPI_WTICK Func 8399 R(8) 8 scalar PMPI_WTIME Func 8399 R(8) 8 scalar TEMPCOM Common 8466 6603768 SAVE TOPO Common 8474 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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:21 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 8510,8519,8579,8639,8782,8791,8851 ,8911 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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 8528,8588,8648,8707,8799,8800,8978 ,8979 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 8527,8587,8647,8706,8859,8860,8919 ,8920 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:21 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 8534,8542,8550,8558,8566,8574,8714 ,8722,8730,8738,8746,8754,8803,881 1,8819,8827,8835,8843,8863,8871,88 79,8887,8895,8903,8924,8932,8940,8 948,8956,8964,8983,8991,8999,9007, 9015,9023 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 8594,8602,8610,8618,8626,8634,8655 ,8663,8671,8679,8687,8695,8803,881 1,8819,8827,8835,8843,8863,8871,88 79,8887,8895,8903,8924,8932,8940,8 948,8956,8964,8983,8991,8999,9007, 9015,9023 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:21 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 8578,8638,8850,8910 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 8508,8509,8517,8518,8526,8578,8586 ,8638,8646,8705,8760,8764,8780,878 1,8789,8790,8798,8850,8858,8910,89 18,8977,9032,9036 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:21 module_EXCHM.F 9042 9043 SUBROUTINE EXCH011(ARR1,LL1,ARR2,LL2,ARR3,LL3,IHALO,JHALO) 9044 USE EXCH_BUF_REAL 9045 INCLUDE "parmeta" 9068 INCLUDE "mpif.h" 9630 INCLUDE "mpp.h" 9631 C----------------------------------------------------------------------- 9690 INTEGER ISTAT(MPI_STATUS_SIZE) 9691 INTEGER IHANDLE(4) 9692 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 9693 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 9694 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 9695 C 9696 C*********************************************************************** 9697 C 9698 ITYPE=MPI_REAL 9699 C 9700 C-------------------------------------------------------------------- 9701 C-------------------------------------------------------------------- 9702 C*** 9703 C*** NORTH/SOUTH 9704 C*** 9705 C-------------------------------------------------------------------- 9706 C-------------------------------------------------------------------- 9707 C 9708 C-------------------------------------------------------------------- 9709 C RECEIVE FROM NORTH 9710 C-------------------------------------------------------------------- 9711 C 9712 IF(MY_NEB(1).GE.0)THEN 9713 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 9714 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 9715 ENDIF 9716 C 9717 C-------------------------------------------------------------------- 9718 C RECEIVE FROM SOUTH 9719 C-------------------------------------------------------------------- 9720 C 9721 IF(MY_NEB(3).GE.0)THEN 9722 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 9723 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 9724 ENDIF 9725 C 9726 C-------------------------------------------------------------------- 9727 C SEND TO NORTH 9728 C-------------------------------------------------------------------- 9729 C 9730 IF(MY_NEB(1).GE.0)THEN 9731 IBEG=MYIS-IHALO 9732 IEND=MYIE+IHALO 9733 IC = 0 9734 DO J=0,JHALO-1 9735 DO I=IBEG,IEND 9736 IC = IC + 1 9737 BUF2(IC)=ARR1(I,MYJE-J) 9738 ENDDO 9739 ENDDO Page 162 Source Listing EXCH011 2025-03-12 18:21 module_EXCHM.F 9740 DO K=1,LL2 9741 DO J=0,JHALO-1 9742 DO I=IBEG,IEND 9743 IC = IC + 1 9744 BUF2(IC)=ARR2(I,MYJE-J,K) 9745 ENDDO 9746 ENDDO 9747 ENDDO 9748 DO K=1,LL3 9749 DO J=0,JHALO-1 9750 DO I=IBEG,IEND 9751 IC = IC + 1 9752 BUF2(IC)=ARR3(I,MYJE-J,K) 9753 ENDDO 9754 ENDDO 9755 ENDDO 9756 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 9757 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 9758 ENDIF 9759 C 9760 C-------------------------------------------------------------------- 9761 C SEND TO SOUTH 9762 C-------------------------------------------------------------------- 9763 C 9764 IF(MY_NEB(3).GE.0)THEN 9765 IBEG=MYIS-IHALO 9766 IEND=MYIE+IHALO 9767 IC = 0 9768 DO J=0,JHALO-1 9769 DO I=IBEG,IEND 9770 IC = IC + 1 9771 BUF3(IC)=ARR1(I,MYJS+J) 9772 ENDDO 9773 ENDDO 9774 DO K=1,LL2 9775 DO J=0,JHALO-1 9776 DO I=IBEG,IEND 9777 IC = IC + 1 9778 BUF3(IC)=ARR2(I,MYJS+J,K) 9779 ENDDO 9780 ENDDO 9781 ENDDO 9782 DO K=1,LL3 9783 DO J=0,JHALO-1 9784 DO I=IBEG,IEND 9785 IC = IC + 1 9786 BUF3(IC)=ARR3(I,MYJS+J,K) 9787 ENDDO 9788 ENDDO 9789 ENDDO 9790 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 9791 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 9792 ENDIF 9793 C 9794 C-------------------------------------------------------------------- 9795 C STORE RESULTS FROM SOUTH 9796 C-------------------------------------------------------------------- Page 163 Source Listing EXCH011 2025-03-12 18:21 module_EXCHM.F 9797 C 9798 IF(MY_NEB(3).GE.0)THEN 9799 IBEG=MYIS-IHALO 9800 IEND=MYIE+IHALO 9801 IC = 0 9802 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 9803 DO J=0,JHALO-1 9804 DO I=IBEG,IEND 9805 IC = IC + 1 9806 ARR1(I,MYJS-J-1)=BUF1(IC) 9807 ENDDO 9808 ENDDO 9809 DO K=1,LL2 9810 DO J=0,JHALO-1 9811 DO I=IBEG,IEND 9812 IC = IC + 1 9813 ARR2(I,MYJS-J-1,K)=BUF1(IC) 9814 ENDDO 9815 ENDDO 9816 ENDDO 9817 DO K=1,LL3 9818 DO J=0,JHALO-1 9819 DO I=IBEG,IEND 9820 IC = IC + 1 9821 ARR3(I,MYJS-J-1,K)=BUF1(IC) 9822 ENDDO 9823 ENDDO 9824 ENDDO 9825 ENDIF 9826 C 9827 C-------------------------------------------------------------------- 9828 C STORE FROM NORTH 9829 C-------------------------------------------------------------------- 9830 C 9831 IF(MY_NEB(1).GE.0)THEN 9832 IBEG=MYIS-IHALO 9833 IEND=MYIE+IHALO 9834 IC = 0 9835 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 9836 DO J=0,JHALO-1 9837 DO I=IBEG,IEND 9838 IC = IC + 1 9839 ARR1(I,MYJE+J+1)=BUF0(IC) 9840 ENDDO 9841 ENDDO 9842 DO K=1,LL2 9843 DO J=0,JHALO-1 9844 DO I=IBEG,IEND 9845 IC = IC + 1 9846 ARR2(I,MYJE+J+1,K)=BUF0(IC) 9847 ENDDO 9848 ENDDO 9849 ENDDO 9850 DO K=1,LL3 9851 DO J=0,JHALO-1 9852 DO I=IBEG,IEND 9853 IC = IC + 1 Page 164 Source Listing EXCH011 2025-03-12 18:21 module_EXCHM.F 9854 ARR3(I,MYJE+J+1,K)=BUF0(IC) 9855 ENDDO 9856 ENDDO 9857 ENDDO 9858 ENDIF 9859 C 9860 IF(MY_NEB(1).GE.0)THEN 9861 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 9862 ENDIF 9863 C 9864 IF(MY_NEB(3).GE.0)THEN 9865 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 9866 ENDIF 9867 C 9868 C-------------------------------------------------------------------- 9869 C-------------------------------------------------------------------- 9870 C*** 9871 C*** EAST/WEST 9872 C*** 9873 C-------------------------------------------------------------------- 9874 C-------------------------------------------------------------------- 9875 C 9876 C-------------------------------------------------------------------- 9877 C RECEIVE FROM WEST 9878 C-------------------------------------------------------------------- 9879 C 9880 IF(MY_NEB(4).GE.0)THEN 9881 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 9882 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 9883 ENDIF 9884 C 9885 C-------------------------------------------------------------------- 9886 C RECEIVE FROM EAST 9887 C-------------------------------------------------------------------- 9888 C 9889 IF(MY_NEB(2).GE.0)THEN 9890 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 9891 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 9892 ENDIF 9893 C 9894 C-------------------------------------------------------------------- 9895 C SEND TO EAST 9896 C-------------------------------------------------------------------- 9897 C 9898 IF(MY_NEB(2).GE.0)THEN 9899 IBEG=MYIE-IHALO+1 9900 IEND=MYIE 9901 IC = 0 9902 DO J=MYJS-JHALO,MYJE+JHALO 9903 DO I=IBEG,IEND 9904 IC = IC + 1 9905 BUF2(IC)=ARR1(I,J) 9906 ENDDO 9907 ENDDO 9908 DO K=1,LL2 9909 DO J=MYJS-JHALO,MYJE+JHALO 9910 DO I=IBEG,IEND Page 165 Source Listing EXCH011 2025-03-12 18:21 module_EXCHM.F 9911 IC = IC + 1 9912 BUF2(IC)=ARR2(I,J,K) 9913 ENDDO 9914 ENDDO 9915 ENDDO 9916 DO K=1,LL3 9917 DO J=MYJS-JHALO,MYJE+JHALO 9918 DO I=IBEG,IEND 9919 IC = IC + 1 9920 BUF2(IC)=ARR3(I,J,K) 9921 ENDDO 9922 ENDDO 9923 ENDDO 9924 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 9925 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 9926 ENDIF 9927 C 9928 C-------------------------------------------------------------------- 9929 C SEND TO WEST 9930 C-------------------------------------------------------------------- 9931 C 9932 IF(MY_NEB(4).GE.0)THEN 9933 IBEG=MYIS 9934 IEND=MYIS+IHALO-1 9935 IC = 0 9936 DO J=MYJS-JHALO,MYJE+JHALO 9937 DO I=IBEG,IEND 9938 IC = IC + 1 9939 BUF3(IC)=ARR1(I,J) 9940 ENDDO 9941 ENDDO 9942 DO K=1,LL2 9943 DO J=MYJS-JHALO,MYJE+JHALO 9944 DO I=IBEG,IEND 9945 IC = IC + 1 9946 BUF3(IC)=ARR2(I,J,K) 9947 ENDDO 9948 ENDDO 9949 ENDDO 9950 DO K=1,LL3 9951 DO J=MYJS-JHALO,MYJE+JHALO 9952 DO I=IBEG,IEND 9953 IC = IC + 1 9954 BUF3(IC)=ARR3(I,J,K) 9955 ENDDO 9956 ENDDO 9957 ENDDO 9958 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 9959 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 9960 ENDIF 9961 C 9962 C-------------------------------------------------------------------- 9963 C STORE FROM WEST 9964 C-------------------------------------------------------------------- 9965 C 9966 IF(MY_NEB(4).GE.0)THEN 9967 IBEG=MYIS-IHALO Page 166 Source Listing EXCH011 2025-03-12 18:21 module_EXCHM.F 9968 IEND=MYIS-1 9969 IC = 0 9970 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 9971 DO J=MYJS-JHALO,MYJE+JHALO 9972 DO I=IBEG,IEND 9973 IC = IC + 1 9974 ARR1(I,J)=BUF0(IC) 9975 ENDDO 9976 ENDDO 9977 DO K=1,LL2 9978 DO J=MYJS-JHALO,MYJE+JHALO 9979 DO I=IBEG,IEND 9980 IC = IC + 1 9981 ARR2(I,J,K)=BUF0(IC) 9982 ENDDO 9983 ENDDO 9984 ENDDO 9985 DO K=1,LL3 9986 DO J=MYJS-JHALO,MYJE+JHALO 9987 DO I=IBEG,IEND 9988 IC = IC + 1 9989 ARR3(I,J,K)=BUF0(IC) 9990 ENDDO 9991 ENDDO 9992 ENDDO 9993 ENDIF 9994 C 9995 C-------------------------------------------------------------------- 9996 C STORE FROM EAST 9997 C-------------------------------------------------------------------- 9998 C 9999 IF(MY_NEB(2).GE.0)THEN 10000 IBEG=MYIE+1 10001 IEND=MYIE+IHALO 10002 IC = 0 10003 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 10004 DO J=MYJS-JHALO,MYJE+JHALO 10005 DO I=IBEG,IEND 10006 IC = IC + 1 10007 ARR1(I,J)=BUF1(IC) 10008 ENDDO 10009 ENDDO 10010 DO K=1,LL2 10011 DO J=MYJS-JHALO,MYJE+JHALO 10012 DO I=IBEG,IEND 10013 IC = IC + 1 10014 ARR2(I,J,K)=BUF1(IC) 10015 ENDDO 10016 ENDDO 10017 ENDDO 10018 DO K=1,LL3 10019 DO J=MYJS-JHALO,MYJE+JHALO 10020 DO I=IBEG,IEND 10021 IC = IC + 1 10022 ARR3(I,J,K)=BUF1(IC) 10023 ENDDO 10024 ENDDO Page 167 Source Listing EXCH011 2025-03-12 18:21 module_EXCHM.F 10025 ENDDO 10026 ENDIF 10027 C 10028 IF(MY_NEB(4).GE.0)THEN 10029 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 10030 ENDIF 10031 C 10032 IF(MY_NEB(2).GE.0)THEN 10033 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 10034 ENDIF 10035 C 10036 C-------------------------------------------------------------------- 10037 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch011_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 9043 R(4) 4 2 17955 ARG,INOUT 9737,9771,9806,9839,9905,9939,9974 ,10007 ARR2 Dummy 9043 R(4) 4 3 0 ARG,INOUT 9744,9778,9813,9846,9912,9946,9981 ,10014 ARR3 Dummy 9043 R(4) 4 3 0 ARG,INOUT 9752,9786,9821,9854,9920,9954,9989 ,10022 BUF0 Local 9713 R(4) 4 1 2500000 9713,9839,9846,9854,9881,9974,9981 ,9989 BUF1 Local 9722 R(4) 4 1 2500000 9722,9806,9813,9821,9890,10007,100 14,10022 BUF2 Local 9737 R(4) 4 1 2500000 9737,9744,9752,9756,9905,9912,9920 ,9924 BUF3 Local 9771 R(4) 4 1 2500000 9771,9778,9786,9790,9939,9946,9954 ,9958 EXCH011 Subr 9043 EXCH_BUF_REAL Module 9044 9044 GLB_TABLE Common 9668 128 SAVE I Local 9735 I(4) 4 scalar 9735,9737,9742,9744,9750,9752,9769 ,9771,9776,9778,9784,9786,9804,980 6,9811,9813,9819,9821,9837,9839,98 44,9846,9852,9854,9903,9905,9910,9 912,9918,9920,9937,9939,9944,9946, 9952,9954,9972,9974,9979,9981,9987 ,9989,10005,10007,10012,10014,1002 0,10022 IBEG Local 9731 I(4) 4 scalar 9731,9735,9742,9750,9765,9769,9776 ,9784,9799,9804,9811,9819,9832,983 7,9844,9852,9899,9903,9910,9918,99 33,9937,9944,9952,9967,9972,9979,9 987,10000,10005,10012,10020 IBUFEXCH Param 9713 I(4) 4 scalar 9713,9722,9881,9890 Page 168 Source Listing EXCH011 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References IC Local 9733 I(4) 4 scalar 9733,9736,9737,9743,9744,9751,9752 ,9756,9767,9770,9771,9777,9778,978 5,9786,9790,9801,9805,9806,9812,98 13,9820,9821,9834,9838,9839,9845,9 846,9853,9854,9901,9904,9905,9911, 9912,9919,9920,9924,9935,9938,9939 ,9945,9946,9953,9954,9958,9969,997 3,9974,9980,9981,9988,9989,10002,1 0006,10007,10013,10014,10021,10022 IDIM1 Param 9064 I(4) 4 scalar 9692,9693,9694 IDIM2 Param 9064 I(4) 4 scalar 9692,9693,9694 IEND Local 9732 I(4) 4 scalar 9732,9735,9742,9750,9766,9769,9776 ,9784,9800,9804,9811,9819,9833,983 7,9844,9852,9900,9903,9910,9918,99 34,9937,9944,9952,9968,9972,9979,9 987,10001,10005,10012,10020 IERR Local 9802 I(4) 4 scalar 9802,9835,9861,9865,9970,10003,100 29,10033 IGSTL Param 9059 I(4) 4 scalar 9064 IGSTR Param 9059 I(4) 4 scalar 9064 IHALO Dummy 9043 I(4) 4 scalar ARG,INOUT 9731,9732,9765,9766,9799,9800,9832 ,9833,9899,9934,9967,10001 IHANDLE Local 9691 I(4) 4 1 4 9714,9723,9757,9791,9802,9835,9861 ,9865,9882,9891,9925,9959,9970,100 03,10029,10033 IM Param 9048 I(4) 4 scalar 9061,9064,9674,9675,9676,9677,9678 ,9682,9683,9688 INPES Param 9056 I(4) 4 scalar 9061,9064,9658,9659,9660,9669,9670 IRECV Local 9714 I(4) 4 scalar 9714,9723,9882,9891 ISEND Local 9757 I(4) 4 scalar 9757,9791,9925,9959 ISTAT Local 9690 I(4) 4 1 5 9802,9835,9861,9865,9970,10003,100 29,10033 ITAIL Param 9061 I(4) 4 scalar ITYPE Local 9698 I(4) 4 scalar 9698,9713,9722,9756,9790,9881,9890 ,9924,9958 J Local 9734 I(4) 4 scalar 9734,9737,9741,9744,9749,9752,9768 ,9771,9775,9778,9783,9786,9803,980 6,9810,9813,9818,9821,9836,9839,98 43,9846,9851,9854,9902,9905,9909,9 912,9917,9920,9936,9939,9943,9946, 9951,9954,9971,9974,9978,9981,9986 ,9989,10004,10007,10011,10014,1001 9,10022 JDIM1 Param 9065 I(4) 4 scalar 9692,9693,9694 JDIM2 Param 9065 I(4) 4 scalar 9692,9693,9694 JGSTL Param 9060 I(4) 4 scalar 9065 JGSTR Param 9060 I(4) 4 scalar 9065 JHALO Dummy 9043 I(4) 4 scalar ARG,INOUT 9734,9741,9749,9768,9775,9783,9803 ,9810,9818,9836,9843,9851,9902,990 9,9917,9936,9943,9951,9971,9978,99 86,10004,10011,10019 JM Param 9048 I(4) 4 scalar 9062,9065,9674,9675,9676,9677,9678 ,9682,9683,9688 JNPES Param 9056 I(4) 4 scalar 9062,9065,9658,9659,9660,9669,9670 JTAIL Param 9062 I(4) 4 scalar Page 169 Source Listing EXCH011 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References K Local 9740 I(4) 4 scalar 9740,9744,9748,9752,9774,9778,9782 ,9786,9809,9813,9817,9821,9842,984 6,9850,9854,9908,9912,9916,9920,99 42,9946,9950,9954,9977,9981,9985,9 989,10010,10014,10018,10022 LL1 Dummy 9043 I(4) 4 scalar ARG,INOUT LL2 Dummy 9043 I(4) 4 scalar ARG,INOUT 9740,9774,9809,9842,9908,9942,9977 ,10010 LL3 Dummy 9043 I(4) 4 scalar ARG,INOUT 9748,9782,9817,9850,9916,9950,9985 ,10018 LM Param 9048 I(4) 4 scalar 9683 LSM Param 9048 I(4) 4 scalar MAPPINGS Common 9687 5024 SAVE MPIFCMB5 Common 9618 4 SAVE MPIFCMB9 Common 9619 4 SAVE MPIPRIV1 Common 9623 28 SAVE MPIPRIV2 Common 9625 24 SAVE MPIPRIVC Common 9628 2 SAVE MPI_2DOUBLE_PRECISION Param 9364 I(4) 4 scalar MPI_2INT Param 9448 I(4) 4 scalar MPI_2INTEGER Param 9362 I(4) 4 scalar MPI_2REAL Param 9366 I(4) 4 scalar MPI_ADDRESS_KIND Param 9400 I(4) 4 scalar MPI_AINT Param 9478 I(4) 4 scalar MPI_ANY_SOURCE Param 9330 I(4) 4 scalar MPI_ANY_TAG Param 9332 I(4) 4 scalar MPI_APPNUM Param 9294 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 9600 L(4) 4 scalar MPI_BAND Param 9238 I(4) 4 scalar MPI_BOR Param 9242 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 9326 I(4) 4 scalar MPI_BXOR Param 9246 I(4) 4 scalar MPI_BYTE Param 9370 I(4) 4 scalar MPI_CART Param 9338 I(4) 4 scalar MPI_CHAR Param 9408 I(4) 4 scalar MPI_CHARACTER Param 9368 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 9496 I(4) 4 scalar MPI_COMBINER_DARRAY Param 9518 I(4) 4 scalar MPI_COMBINER_DUP Param 9494 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 9522 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 9524 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 9520 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 9508 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 9528 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 9506 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 9502 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 9500 I(4) 4 scalar MPI_COMBINER_INDEXED Param 9504 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 9510 I(4) 4 scalar MPI_COMBINER_NAMED Param 9492 I(4) 4 scalar MPI_COMBINER_RESIZED Param 9526 I(4) 4 scalar Page 170 Source Listing EXCH011 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_STRUCT Param 9514 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 9512 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 9516 I(4) 4 scalar MPI_COMBINER_VECTOR Param 9498 I(4) 4 scalar MPI_COMM_DUP_FN Subr 9607 scalar MPI_COMM_NULL Param 9262 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 9608 scalar MPI_COMM_NULL_DELETE_FN Subr 9607 scalar MPI_COMM_SELF Param 9258 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 9546 I(4) 4 scalar MPI_COMM_WORLD Param 9256 I(4) 4 scalar MPI_COMPLEX Param 9350 I(4) 4 scalar MPI_COMPLEX16 Param 9396 I(4) 4 scalar MPI_COMPLEX32 Param 9398 I(4) 4 scalar MPI_COMPLEX8 Param 9394 I(4) 4 scalar MPI_CONGRUENT Param 9210 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 9613 scalar MPI_COUNT Param 9482 I(4) 4 scalar MPI_COUNT_KIND Param 9404 I(4) 4 scalar MPI_CXX_BOOL Param 9484 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 9488 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 9486 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 9490 I(4) 4 scalar MPI_C_BOOL Param 9468 I(4) 4 scalar MPI_C_COMPLEX Param 9472 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 9474 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 9470 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 9476 I(4) 4 scalar MPI_DATATYPE_NULL Param 9272 I(4) 4 scalar 9387,9485,9487,9489,9491 MPI_DISPLACEMENT_CURRENT Param 9596 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 9588 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 9590 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 9594 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 9592 I(4) 4 scalar MPI_DIST_GRAPH Param 9340 I(4) 4 scalar MPI_DOUBLE Param 9430 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 9352 I(4) 4 scalar MPI_DOUBLE_INT Param 9442 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 9358 I(4) 4 scalar MPI_DUP_FN Subr 9604 scalar MPI_ERRHANDLER_NULL Param 9276 I(4) 4 scalar MPI_ERROR Param 9077 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 9204 I(4) 4 scalar MPI_ERRORS_RETURN Param 9206 I(4) 4 scalar MPI_ERR_ACCESS Param 9196 I(4) 4 scalar MPI_ERR_AMODE Param 9182 I(4) 4 scalar MPI_ERR_ARG Param 9152 I(4) 4 scalar MPI_ERR_ASSERT Param 9158 I(4) 4 scalar MPI_ERR_BAD_FILE Param 9120 I(4) 4 scalar MPI_ERR_BASE Param 9150 I(4) 4 scalar MPI_ERR_BUFFER Param 9092 I(4) 4 scalar MPI_ERR_COMM Param 9170 I(4) 4 scalar MPI_ERR_CONVERSION Param 9186 I(4) 4 scalar Page 171 Source Listing EXCH011 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_COUNT Param 9096 I(4) 4 scalar MPI_ERR_DIMS Param 9134 I(4) 4 scalar MPI_ERR_DISP Param 9118 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 9100 I(4) 4 scalar MPI_ERR_FILE Param 9130 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 9112 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 9154 I(4) 4 scalar MPI_ERR_GROUP Param 9116 I(4) 4 scalar MPI_ERR_INFO Param 9144 I(4) 4 scalar MPI_ERR_INFO_KEY Param 9148 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 9128 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 9114 I(4) 4 scalar MPI_ERR_INTERN Param 9146 I(4) 4 scalar MPI_ERR_IN_STATUS Param 9132 I(4) 4 scalar MPI_ERR_IO Param 9192 I(4) 4 scalar MPI_ERR_KEYVAL Param 9138 I(4) 4 scalar MPI_ERR_LASTCODE Param 9160 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 9142 I(4) 4 scalar MPI_ERR_NAME Param 9136 I(4) 4 scalar MPI_ERR_NOT_SAME Param 9164 I(4) 4 scalar MPI_ERR_NO_MEM Param 9156 I(4) 4 scalar MPI_ERR_NO_SPACE Param 9088 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 9172 I(4) 4 scalar MPI_ERR_OP Param 9190 I(4) 4 scalar MPI_ERR_OTHER Param 9104 I(4) 4 scalar MPI_ERR_PENDING Param 9094 I(4) 4 scalar MPI_ERR_PORT Param 9176 I(4) 4 scalar MPI_ERR_QUOTA Param 9180 I(4) 4 scalar MPI_ERR_RANK Param 9102 I(4) 4 scalar MPI_ERR_READ_ONLY Param 9140 I(4) 4 scalar MPI_ERR_REQUEST Param 9184 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 9106 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 9110 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 9126 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 9188 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 9178 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 9090 I(4) 4 scalar MPI_ERR_ROOT Param 9122 I(4) 4 scalar MPI_ERR_SERVICE Param 9098 I(4) 4 scalar MPI_ERR_SIZE Param 9108 I(4) 4 scalar MPI_ERR_SPAWN Param 9168 I(4) 4 scalar MPI_ERR_TAG Param 9198 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 9202 I(4) 4 scalar MPI_ERR_TRUNCATE Param 9162 I(4) 4 scalar MPI_ERR_TYPE Param 9166 I(4) 4 scalar MPI_ERR_UNKNOWN Param 9200 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 9124 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 9174 I(4) 4 scalar MPI_ERR_WIN Param 9194 I(4) 4 scalar MPI_FILE_NULL Param 9266 I(4) 4 scalar MPI_FLOAT Param 9428 I(4) 4 scalar MPI_FLOAT_INT Param 9440 I(4) 4 scalar MPI_GRAPH Param 9336 I(4) 4 scalar Page 172 Source Listing EXCH011 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_GROUP_EMPTY Param 9260 I(4) 4 scalar MPI_GROUP_NULL Param 9268 I(4) 4 scalar MPI_HOST Param 9284 I(4) 4 scalar MPI_IDENT Param 9208 I(4) 4 scalar MPI_INFO_ENV Param 9280 I(4) 4 scalar MPI_INFO_NULL Param 9278 I(4) 4 scalar MPI_INT Param 9420 I(4) 4 scalar MPI_INT16_T Param 9454 I(4) 4 scalar MPI_INT32_T Param 9456 I(4) 4 scalar MPI_INT64_T Param 9458 I(4) 4 scalar MPI_INT8_T Param 9452 I(4) 4 scalar MPI_INTEGER Param 9360 I(4) 4 scalar MPI_INTEGER1 Param 9378 I(4) 4 scalar MPI_INTEGER16 Param 9386 I(4) 4 scalar MPI_INTEGER2 Param 9380 I(4) 4 scalar MPI_INTEGER4 Param 9382 I(4) 4 scalar MPI_INTEGER8 Param 9384 I(4) 4 scalar MPI_INTEGER_KIND Param 9406 I(4) 4 scalar MPI_IO Param 9286 I(4) 4 scalar MPI_IRECV Subr 9713 9713,9722,9881,9890 MPI_ISEND Subr 9756 9756,9790,9924,9958 MPI_KEYVAL_INVALID Param 9324 I(4) 4 scalar MPI_LAND Param 9236 I(4) 4 scalar MPI_LASTUSEDCODE Param 9292 I(4) 4 scalar MPI_LB Param 9374 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 9346 I(4) 4 scalar MPI_LOCK_SHARED Param 9348 I(4) 4 scalar MPI_LOGICAL Param 9354 I(4) 4 scalar MPI_LONG Param 9424 I(4) 4 scalar MPI_LONG_DOUBLE Param 9432 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 9450 I(4) 4 scalar MPI_LONG_INT Param 9444 I(4) 4 scalar MPI_LONG_LONG Param 9438 I(4) 4 scalar MPI_LONG_LONG_INT Param 9434 I(4) 4 scalar MPI_LOR Param 9240 I(4) 4 scalar MPI_LXOR Param 9244 I(4) 4 scalar MPI_MAX Param 9228 I(4) 4 scalar MPI_MAXLOC Param 9250 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 9318 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 9306 I(4) 4 scalar MPI_MAX_INFO_KEY Param 9312 I(4) 4 scalar MPI_MAX_INFO_VAL Param 9314 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 9320 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 9310 I(4) 4 scalar MPI_MAX_PORT_NAME Param 9308 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 9316 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 9550 I(4) 4 scalar MPI_MESSAGE_NULL Param 9548 I(4) 4 scalar MPI_MIN Param 9230 I(4) 4 scalar MPI_MINLOC Param 9248 I(4) 4 scalar MPI_MODE_APPEND Param 9574 I(4) 4 scalar MPI_MODE_CREATE Param 9570 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 9566 I(4) 4 scalar MPI_MODE_EXCL Param 9572 I(4) 4 scalar Page 173 Source Listing EXCH011 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_NOCHECK Param 9536 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 9542 I(4) 4 scalar MPI_MODE_NOPUT Param 9540 I(4) 4 scalar MPI_MODE_NOSTORE Param 9538 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 9544 I(4) 4 scalar MPI_MODE_RDONLY Param 9560 I(4) 4 scalar MPI_MODE_RDWR Param 9562 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 9576 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 9568 I(4) 4 scalar MPI_MODE_WRONLY Param 9564 I(4) 4 scalar MPI_NO_OP Param 9254 I(4) 4 scalar MPI_NULL_COPY_FN Subr 9604 scalar MPI_NULL_DELETE_FN Subr 9604 scalar MPI_OFFSET Param 9480 I(4) 4 scalar MPI_OFFSET_KIND Param 9402 I(4) 4 scalar MPI_OP_NULL Param 9270 I(4) 4 scalar MPI_ORDER_C Param 9584 I(4) 4 scalar MPI_ORDER_FORTRAN Param 9586 I(4) 4 scalar MPI_PACKED Param 9376 I(4) 4 scalar MPI_PROC_NULL Param 9328 I(4) 4 scalar MPI_PROD Param 9234 I(4) 4 scalar MPI_REAL Param 9356 I(4) 4 scalar 9698 MPI_REAL16 Param 9392 I(4) 4 scalar MPI_REAL4 Param 9388 I(4) 4 scalar MPI_REAL8 Param 9390 I(4) 4 scalar MPI_REPLACE Param 9252 I(4) 4 scalar MPI_REQUEST_NULL Param 9274 I(4) 4 scalar MPI_ROOT Param 9334 I(4) 4 scalar MPI_SEEK_CUR Param 9580 I(4) 4 scalar MPI_SEEK_END Param 9582 I(4) 4 scalar MPI_SEEK_SET Param 9578 I(4) 4 scalar MPI_SHORT Param 9416 I(4) 4 scalar MPI_SHORT_INT Param 9446 I(4) 4 scalar MPI_SIGNED_CHAR Param 9410 I(4) 4 scalar MPI_SIMILAR Param 9212 I(4) 4 scalar MPI_SOURCE Param 9077 I(4) 4 scalar MPI_STATUS_SIZE Param 9079 I(4) 4 scalar 9081,9082,9690 MPI_SUBARRAYS_SUPPORTED Param 9598 L(4) 4 scalar MPI_SUBVERSION Param 9344 I(4) 4 scalar MPI_SUCCESS Param 9086 I(4) 4 scalar MPI_SUM Param 9232 I(4) 4 scalar MPI_TAG Param 9077 I(4) 4 scalar MPI_TAG_UB Param 9282 I(4) 4 scalar MPI_THREAD_FUNNELED Param 9554 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 9558 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 9556 I(4) 4 scalar MPI_THREAD_SINGLE Param 9552 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 9534 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 9532 I(4) 4 scalar MPI_TYPECLASS_REAL Param 9530 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 9611 scalar MPI_TYPE_NULL_COPY_FN Subr 9612 scalar MPI_TYPE_NULL_DELETE_FN Subr 9611 scalar MPI_UB Param 9372 I(4) 4 scalar MPI_UINT16_T Param 9462 I(4) 4 scalar Page 174 Source Listing EXCH011 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UINT32_T Param 9464 I(4) 4 scalar MPI_UINT64_T Param 9466 I(4) 4 scalar MPI_UINT8_T Param 9460 I(4) 4 scalar MPI_UNDEFINED Param 9322 I(4) 4 scalar MPI_UNEQUAL Param 9214 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 9290 I(4) 4 scalar MPI_UNSIGNED Param 9422 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 9412 I(4) 4 scalar MPI_UNSIGNED_LONG Param 9426 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 9436 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 9418 I(4) 4 scalar MPI_VERSION Param 9342 I(4) 4 scalar MPI_WAIT Subr 9802 9802,9835,9861,9865,9970,10003,100 29,10033 MPI_WCHAR Param 9414 I(4) 4 scalar MPI_WIN_BASE Param 9296 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 9302 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 9300 I(4) 4 scalar MPI_WIN_DUP_FN Subr 9609 scalar MPI_WIN_FLAVOR_ALLOCATE Param 9218 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 9216 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 9220 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 9222 I(4) 4 scalar MPI_WIN_MODEL Param 9304 I(4) 4 scalar MPI_WIN_NULL Param 9264 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 9610 scalar MPI_WIN_NULL_DELETE_FN Subr 9609 scalar MPI_WIN_SEPARATE Param 9224 I(4) 4 scalar MPI_WIN_SIZE Param 9298 I(4) 4 scalar MPI_WIN_UNIFIED Param 9226 I(4) 4 scalar MPI_WTICK Func 9605 R(8) 8 scalar MPI_WTIME Func 9605 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 9288 I(4) 4 scalar MPPCOM Common 9632 1464 SAVE PMPI_WTICK Func 9606 R(8) 8 scalar PMPI_WTIME Func 9606 R(8) 8 scalar TEMPCOM Common 9673 6603768 SAVE TOPO Common 9681 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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:21 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 9714,9723,9757,9791,9882,9891,9925 ,9959 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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 9732,9766,9800,9833,9899,9900,1000 0,10001 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:21 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 9731,9765,9799,9832,9933,9934,9967 ,9968 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 9737,9744,9752,9839,9846,9854,9902 ,9909,9917,9936,9943,9951,9971,997 8,9986,10004,10011,10019 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 9771,9778,9786,9806,9813,9821,9902 ,9909,9917,9936,9943,9951,9971,997 8,9986,10004,10011,10019 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:21 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 9756,9790,9924,9958 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 9712,9713,9721,9722,9730,9756,9764 ,9790,9798,9831,9860,9864,9880,988 1,9889,9890,9898,9924,9932,9958,99 66,9999,10028,10032 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:21 module_EXCHM.F 10038 10039 SUBROUTINE IEXCH(ARR1,LL1,IHALO,JHALO) 10040 USE EXCH_BUF_INTEGER 10041 INCLUDE "parmeta" 10064 INCLUDE "mpif.h" 10626 INCLUDE "mpp.h" 10627 C----------------------------------------------------------------------- 10686 INTEGER ISTAT(MPI_STATUS_SIZE) 10687 INTEGER IHANDLE(4) 10688 INTEGER ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 10689 C 10690 C*********************************************************************** 10691 C 10692 ITYPE=MPI_INTEGER 10693 C 10694 C-------------------------------------------------------------------- 10695 C-------------------------------------------------------------------- 10696 C*** 10697 C*** NORTH/SOUTH 10698 C*** 10699 C-------------------------------------------------------------------- 10700 C-------------------------------------------------------------------- 10701 C 10702 C-------------------------------------------------------------------- 10703 C RECEIVE FROM NORTH 10704 C-------------------------------------------------------------------- 10705 C 10706 IF(MY_NEB(1).GE.0)THEN 10707 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 10708 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 10709 ENDIF 10710 C 10711 C-------------------------------------------------------------------- 10712 C RECEIVE FROM SOUTH 10713 C-------------------------------------------------------------------- 10714 C 10715 IF(MY_NEB(3).GE.0)THEN 10716 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 10717 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 10718 ENDIF 10719 C 10720 C-------------------------------------------------------------------- 10721 C SEND TO NORTH 10722 C-------------------------------------------------------------------- 10723 C 10724 IF(MY_NEB(1).GE.0)THEN 10725 IBEG=MYIS-IHALO 10726 IEND=MYIE+IHALO 10727 IC = 0 10728 DO J=0,JHALO-1 10729 DO I=IBEG,IEND 10730 IC = IC + 1 10731 BUF2(IC)=ARR1(I,MYJE-J) 10732 ENDDO 10733 ENDDO 10734 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 10735 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 179 Source Listing IEXCH 2025-03-12 18:21 module_EXCHM.F 10736 ENDIF 10737 C 10738 C-------------------------------------------------------------------- 10739 C SEND TO SOUTH 10740 C-------------------------------------------------------------------- 10741 C 10742 IF(MY_NEB(3).GE.0)THEN 10743 IBEG=MYIS-IHALO 10744 IEND=MYIE+IHALO 10745 IC = 0 10746 DO J=0,JHALO-1 10747 DO I=IBEG,IEND 10748 IC = IC + 1 10749 BUF3(IC)=ARR1(I,MYJS+J) 10750 ENDDO 10751 ENDDO 10752 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 10753 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 10754 ENDIF 10755 C 10756 C-------------------------------------------------------------------- 10757 C STORE RESULTS FROM SOUTH 10758 C-------------------------------------------------------------------- 10759 C 10760 IF(MY_NEB(3).GE.0)THEN 10761 IBEG=MYIS-IHALO 10762 IEND=MYIE+IHALO 10763 IC = 0 10764 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 10765 DO J=0,JHALO-1 10766 DO I=IBEG,IEND 10767 IC = IC + 1 10768 ARR1(I,MYJS-J-1)=BUF1(IC) 10769 ENDDO 10770 ENDDO 10771 ENDIF 10772 C 10773 C-------------------------------------------------------------------- 10774 C STORE FROM NORTH 10775 C-------------------------------------------------------------------- 10776 C 10777 IF(MY_NEB(1).GE.0)THEN 10778 IBEG=MYIS-IHALO 10779 IEND=MYIE+IHALO 10780 IC = 0 10781 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 10782 DO J=0,JHALO-1 10783 DO I=IBEG,IEND 10784 IC = IC + 1 10785 ARR1(I,MYJE+J+1)=BUF0(IC) 10786 ENDDO 10787 ENDDO 10788 ENDIF 10789 C 10790 IF(MY_NEB(1).GE.0)THEN 10791 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 10792 ENDIF Page 180 Source Listing IEXCH 2025-03-12 18:21 module_EXCHM.F 10793 C 10794 IF(MY_NEB(3).GE.0)THEN 10795 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 10796 ENDIF 10797 C 10798 C-------------------------------------------------------------------- 10799 C-------------------------------------------------------------------- 10800 C*** 10801 C*** EAST/WEST 10802 C*** 10803 C-------------------------------------------------------------------- 10804 C-------------------------------------------------------------------- 10805 C 10806 C-------------------------------------------------------------------- 10807 C RECEIVE FROM WEST 10808 C-------------------------------------------------------------------- 10809 C 10810 IF(MY_NEB(4).GE.0)THEN 10811 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 10812 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 10813 ENDIF 10814 C 10815 C-------------------------------------------------------------------- 10816 C RECEIVE FROM EAST 10817 C-------------------------------------------------------------------- 10818 C 10819 IF(MY_NEB(2).GE.0)THEN 10820 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 10821 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 10822 ENDIF 10823 C 10824 C-------------------------------------------------------------------- 10825 C SEND TO EAST 10826 C-------------------------------------------------------------------- 10827 C 10828 IF(MY_NEB(2).GE.0)THEN 10829 IBEG=MYIE-IHALO+1 10830 IEND=MYIE 10831 IC = 0 10832 DO J=MYJS-JHALO,MYJE+JHALO 10833 DO I=IBEG,IEND 10834 IC = IC + 1 10835 BUF2(IC)=ARR1(I,J) 10836 ENDDO 10837 ENDDO 10838 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 10839 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 10840 ENDIF 10841 C 10842 C-------------------------------------------------------------------- 10843 C SEND TO WEST 10844 C-------------------------------------------------------------------- 10845 C 10846 IF(MY_NEB(4).GE.0)THEN 10847 IBEG=MYIS 10848 IEND=MYIS+IHALO-1 10849 IC = 0 Page 181 Source Listing IEXCH 2025-03-12 18:21 module_EXCHM.F 10850 DO J=MYJS-JHALO,MYJE+JHALO 10851 DO I=IBEG,IEND 10852 IC = IC + 1 10853 BUF3(IC)=ARR1(I,J) 10854 ENDDO 10855 ENDDO 10856 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 10857 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 10858 ENDIF 10859 C 10860 C-------------------------------------------------------------------- 10861 C STORE FROM WEST 10862 C-------------------------------------------------------------------- 10863 C 10864 IF(MY_NEB(4).GE.0)THEN 10865 IBEG=MYIS-IHALO 10866 IEND=MYIS-1 10867 IC = 0 10868 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 10869 DO J=MYJS-JHALO,MYJE+JHALO 10870 DO I=IBEG,IEND 10871 IC = IC + 1 10872 ARR1(I,J)=BUF0(IC) 10873 ENDDO 10874 ENDDO 10875 ENDIF 10876 C 10877 C-------------------------------------------------------------------- 10878 C STORE FROM EAST 10879 C-------------------------------------------------------------------- 10880 C 10881 IF(MY_NEB(2).GE.0)THEN 10882 IBEG=MYIE+1 10883 IEND=MYIE+IHALO 10884 IC = 0 10885 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 10886 DO J=MYJS-JHALO,MYJE+JHALO 10887 DO I=IBEG,IEND 10888 IC = IC + 1 10889 ARR1(I,J)=BUF1(IC) 10890 ENDDO 10891 ENDDO 10892 ENDIF 10893 C 10894 IF(MY_NEB(4).GE.0)THEN 10895 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 10896 ENDIF 10897 C 10898 IF(MY_NEB(2).GE.0)THEN 10899 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 10900 ENDIF 10901 C 10902 C-------------------------------------------------------------------- 10903 END SUBROUTINE Page 182 Source Listing IEXCH 2025-03-12 18:21 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 10039 I(4) 4 2 17955 ARG,INOUT 10731,10749,10768,10785,10835,1085 3,10872,10889 BUF0 Local 10707 I(4) 4 1 2500000 10707,10785,10811,10872 BUF1 Local 10716 I(4) 4 1 2500000 10716,10768,10820,10889 BUF2 Local 10731 I(4) 4 1 2500000 10731,10734,10835,10838 BUF3 Local 10749 I(4) 4 1 2500000 10749,10752,10853,10856 EXCH_BUF_INTEGER Module 10040 10040 GLB_TABLE Common 10664 128 SAVE I Local 10729 I(4) 4 scalar 10729,10731,10747,10749,10766,1076 8,10783,10785,10833,10835,10851,10 853,10870,10872,10887,10889 IBEG Local 10725 I(4) 4 scalar 10725,10729,10743,10747,10761,1076 6,10778,10783,10829,10833,10847,10 851,10865,10870,10882,10887 IBUFEXCH Param 10707 I(4) 4 scalar 10707,10716,10811,10820 IC Local 10727 I(4) 4 scalar 10727,10730,10731,10734,10745,1074 8,10749,10752,10763,10767,10768,10 780,10784,10785,10831,10834,10835, 10838,10849,10852,10853,10856,1086 7,10871,10872,10884,10888,10889 IDIM1 Param 10060 I(4) 4 scalar 10688 IDIM2 Param 10060 I(4) 4 scalar 10688 IEND Local 10726 I(4) 4 scalar 10726,10729,10744,10747,10762,1076 6,10779,10783,10830,10833,10848,10 851,10866,10870,10883,10887 IERR Local 10764 I(4) 4 scalar 10764,10781,10791,10795,10868,1088 5,10895,10899 IEXCH Subr 10039 IGSTL Param 10055 I(4) 4 scalar 10060 IGSTR Param 10055 I(4) 4 scalar 10060 IHALO Dummy 10039 I(4) 4 scalar ARG,INOUT 10725,10726,10743,10744,10761,1076 2,10778,10779,10829,10848,10865,10 883 IHANDLE Local 10687 I(4) 4 1 4 10708,10717,10735,10753,10764,1078 1,10791,10795,10812,10821,10839,10 857,10868,10885,10895,10899 IM Param 10044 I(4) 4 scalar 10057,10060,10670,10671,10672,1067 3,10674,10678,10679,10684 INPES Param 10052 I(4) 4 scalar 10057,10060,10654,10655,10656,1066 5,10666 IRECV Local 10708 I(4) 4 scalar 10708,10717,10812,10821 ISEND Local 10735 I(4) 4 scalar 10735,10753,10839,10857 ISTAT Local 10686 I(4) 4 1 5 10764,10781,10791,10795,10868,1088 5,10895,10899 Page 183 Source Listing IEXCH 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ITAIL Param 10057 I(4) 4 scalar ITYPE Local 10692 I(4) 4 scalar 10692,10707,10716,10734,10752,1081 1,10820,10838,10856 J Local 10728 I(4) 4 scalar 10728,10731,10746,10749,10765,1076 8,10782,10785,10832,10835,10850,10 853,10869,10872,10886,10889 JDIM1 Param 10061 I(4) 4 scalar 10688 JDIM2 Param 10061 I(4) 4 scalar 10688 JGSTL Param 10056 I(4) 4 scalar 10061 JGSTR Param 10056 I(4) 4 scalar 10061 JHALO Dummy 10039 I(4) 4 scalar ARG,INOUT 10728,10746,10765,10782,10832,1085 0,10869,10886 JM Param 10044 I(4) 4 scalar 10058,10061,10670,10671,10672,1067 3,10674,10678,10679,10684 JNPES Param 10052 I(4) 4 scalar 10058,10061,10654,10655,10656,1066 5,10666 JTAIL Param 10058 I(4) 4 scalar LL1 Dummy 10039 I(4) 4 scalar ARG,INOUT LM Param 10044 I(4) 4 scalar 10679 LSM Param 10044 I(4) 4 scalar MAPPINGS Common 10683 5024 SAVE MPIFCMB5 Common 10614 4 SAVE MPIFCMB9 Common 10615 4 SAVE MPIPRIV1 Common 10619 28 SAVE MPIPRIV2 Common 10621 24 SAVE MPIPRIVC Common 10624 2 SAVE MPI_2DOUBLE_PRECISION Param 10360 I(4) 4 scalar MPI_2INT Param 10444 I(4) 4 scalar MPI_2INTEGER Param 10358 I(4) 4 scalar MPI_2REAL Param 10362 I(4) 4 scalar MPI_ADDRESS_KIND Param 10396 I(4) 4 scalar MPI_AINT Param 10474 I(4) 4 scalar MPI_ANY_SOURCE Param 10326 I(4) 4 scalar MPI_ANY_TAG Param 10328 I(4) 4 scalar MPI_APPNUM Param 10290 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 10596 L(4) 4 scalar MPI_BAND Param 10234 I(4) 4 scalar MPI_BOR Param 10238 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 10322 I(4) 4 scalar MPI_BXOR Param 10242 I(4) 4 scalar MPI_BYTE Param 10366 I(4) 4 scalar MPI_CART Param 10334 I(4) 4 scalar MPI_CHAR Param 10404 I(4) 4 scalar MPI_CHARACTER Param 10364 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 10492 I(4) 4 scalar MPI_COMBINER_DARRAY Param 10514 I(4) 4 scalar MPI_COMBINER_DUP Param 10490 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 10518 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 10520 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 10516 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 10504 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 10524 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE Page 184 Source Listing IEXCH 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References GER Param 10502 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 10498 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 10496 I(4) 4 scalar MPI_COMBINER_INDEXED Param 10500 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 10506 I(4) 4 scalar MPI_COMBINER_NAMED Param 10488 I(4) 4 scalar MPI_COMBINER_RESIZED Param 10522 I(4) 4 scalar MPI_COMBINER_STRUCT Param 10510 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 10508 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 10512 I(4) 4 scalar MPI_COMBINER_VECTOR Param 10494 I(4) 4 scalar MPI_COMM_DUP_FN Subr 10603 scalar MPI_COMM_NULL Param 10258 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 10604 scalar MPI_COMM_NULL_DELETE_FN Subr 10603 scalar MPI_COMM_SELF Param 10254 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 10542 I(4) 4 scalar MPI_COMM_WORLD Param 10252 I(4) 4 scalar MPI_COMPLEX Param 10346 I(4) 4 scalar MPI_COMPLEX16 Param 10392 I(4) 4 scalar MPI_COMPLEX32 Param 10394 I(4) 4 scalar MPI_COMPLEX8 Param 10390 I(4) 4 scalar MPI_CONGRUENT Param 10206 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 10609 scalar MPI_COUNT Param 10478 I(4) 4 scalar MPI_COUNT_KIND Param 10400 I(4) 4 scalar MPI_CXX_BOOL Param 10480 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 10484 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 10482 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 10486 I(4) 4 scalar MPI_C_BOOL Param 10464 I(4) 4 scalar MPI_C_COMPLEX Param 10468 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 10470 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 10466 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 10472 I(4) 4 scalar MPI_DATATYPE_NULL Param 10268 I(4) 4 scalar 10383,10481,10483,10485,10487 MPI_DISPLACEMENT_CURRENT Param 10592 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 10584 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 10586 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 10590 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 10588 I(4) 4 scalar MPI_DIST_GRAPH Param 10336 I(4) 4 scalar MPI_DOUBLE Param 10426 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 10348 I(4) 4 scalar MPI_DOUBLE_INT Param 10438 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 10354 I(4) 4 scalar MPI_DUP_FN Subr 10600 scalar MPI_ERRHANDLER_NULL Param 10272 I(4) 4 scalar MPI_ERROR Param 10073 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 10200 I(4) 4 scalar MPI_ERRORS_RETURN Param 10202 I(4) 4 scalar MPI_ERR_ACCESS Param 10192 I(4) 4 scalar Page 185 Source Listing IEXCH 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_AMODE Param 10178 I(4) 4 scalar MPI_ERR_ARG Param 10148 I(4) 4 scalar MPI_ERR_ASSERT Param 10154 I(4) 4 scalar MPI_ERR_BAD_FILE Param 10116 I(4) 4 scalar MPI_ERR_BASE Param 10146 I(4) 4 scalar MPI_ERR_BUFFER Param 10088 I(4) 4 scalar MPI_ERR_COMM Param 10166 I(4) 4 scalar MPI_ERR_CONVERSION Param 10182 I(4) 4 scalar MPI_ERR_COUNT Param 10092 I(4) 4 scalar MPI_ERR_DIMS Param 10130 I(4) 4 scalar MPI_ERR_DISP Param 10114 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 10096 I(4) 4 scalar MPI_ERR_FILE Param 10126 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 10108 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 10150 I(4) 4 scalar MPI_ERR_GROUP Param 10112 I(4) 4 scalar MPI_ERR_INFO Param 10140 I(4) 4 scalar MPI_ERR_INFO_KEY Param 10144 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 10124 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 10110 I(4) 4 scalar MPI_ERR_INTERN Param 10142 I(4) 4 scalar MPI_ERR_IN_STATUS Param 10128 I(4) 4 scalar MPI_ERR_IO Param 10188 I(4) 4 scalar MPI_ERR_KEYVAL Param 10134 I(4) 4 scalar MPI_ERR_LASTCODE Param 10156 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 10138 I(4) 4 scalar MPI_ERR_NAME Param 10132 I(4) 4 scalar MPI_ERR_NOT_SAME Param 10160 I(4) 4 scalar MPI_ERR_NO_MEM Param 10152 I(4) 4 scalar MPI_ERR_NO_SPACE Param 10084 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 10168 I(4) 4 scalar MPI_ERR_OP Param 10186 I(4) 4 scalar MPI_ERR_OTHER Param 10100 I(4) 4 scalar MPI_ERR_PENDING Param 10090 I(4) 4 scalar MPI_ERR_PORT Param 10172 I(4) 4 scalar MPI_ERR_QUOTA Param 10176 I(4) 4 scalar MPI_ERR_RANK Param 10098 I(4) 4 scalar MPI_ERR_READ_ONLY Param 10136 I(4) 4 scalar MPI_ERR_REQUEST Param 10180 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 10102 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 10106 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 10122 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 10184 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 10174 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 10086 I(4) 4 scalar MPI_ERR_ROOT Param 10118 I(4) 4 scalar MPI_ERR_SERVICE Param 10094 I(4) 4 scalar MPI_ERR_SIZE Param 10104 I(4) 4 scalar MPI_ERR_SPAWN Param 10164 I(4) 4 scalar MPI_ERR_TAG Param 10194 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 10198 I(4) 4 scalar MPI_ERR_TRUNCATE Param 10158 I(4) 4 scalar MPI_ERR_TYPE Param 10162 I(4) 4 scalar MPI_ERR_UNKNOWN Param 10196 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE Page 186 Source Listing IEXCH 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References P Param 10120 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 10170 I(4) 4 scalar MPI_ERR_WIN Param 10190 I(4) 4 scalar MPI_FILE_NULL Param 10262 I(4) 4 scalar MPI_FLOAT Param 10424 I(4) 4 scalar MPI_FLOAT_INT Param 10436 I(4) 4 scalar MPI_GRAPH Param 10332 I(4) 4 scalar MPI_GROUP_EMPTY Param 10256 I(4) 4 scalar MPI_GROUP_NULL Param 10264 I(4) 4 scalar MPI_HOST Param 10280 I(4) 4 scalar MPI_IDENT Param 10204 I(4) 4 scalar MPI_INFO_ENV Param 10276 I(4) 4 scalar MPI_INFO_NULL Param 10274 I(4) 4 scalar MPI_INT Param 10416 I(4) 4 scalar MPI_INT16_T Param 10450 I(4) 4 scalar MPI_INT32_T Param 10452 I(4) 4 scalar MPI_INT64_T Param 10454 I(4) 4 scalar MPI_INT8_T Param 10448 I(4) 4 scalar MPI_INTEGER Param 10356 I(4) 4 scalar 10692 MPI_INTEGER1 Param 10374 I(4) 4 scalar MPI_INTEGER16 Param 10382 I(4) 4 scalar MPI_INTEGER2 Param 10376 I(4) 4 scalar MPI_INTEGER4 Param 10378 I(4) 4 scalar MPI_INTEGER8 Param 10380 I(4) 4 scalar MPI_INTEGER_KIND Param 10402 I(4) 4 scalar MPI_IO Param 10282 I(4) 4 scalar MPI_IRECV Subr 10707 10707,10716,10811,10820 MPI_ISEND Subr 10734 10734,10752,10838,10856 MPI_KEYVAL_INVALID Param 10320 I(4) 4 scalar MPI_LAND Param 10232 I(4) 4 scalar MPI_LASTUSEDCODE Param 10288 I(4) 4 scalar MPI_LB Param 10370 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 10342 I(4) 4 scalar MPI_LOCK_SHARED Param 10344 I(4) 4 scalar MPI_LOGICAL Param 10350 I(4) 4 scalar MPI_LONG Param 10420 I(4) 4 scalar MPI_LONG_DOUBLE Param 10428 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 10446 I(4) 4 scalar MPI_LONG_INT Param 10440 I(4) 4 scalar MPI_LONG_LONG Param 10434 I(4) 4 scalar MPI_LONG_LONG_INT Param 10430 I(4) 4 scalar MPI_LOR Param 10236 I(4) 4 scalar MPI_LXOR Param 10240 I(4) 4 scalar MPI_MAX Param 10224 I(4) 4 scalar MPI_MAXLOC Param 10246 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 10314 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 10302 I(4) 4 scalar MPI_MAX_INFO_KEY Param 10308 I(4) 4 scalar MPI_MAX_INFO_VAL Param 10310 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 10316 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 10306 I(4) 4 scalar MPI_MAX_PORT_NAME Param 10304 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 10312 I(4) 4 scalar Page 187 Source Listing IEXCH 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MESSAGE_NO_PROC Param 10546 I(4) 4 scalar MPI_MESSAGE_NULL Param 10544 I(4) 4 scalar MPI_MIN Param 10226 I(4) 4 scalar MPI_MINLOC Param 10244 I(4) 4 scalar MPI_MODE_APPEND Param 10570 I(4) 4 scalar MPI_MODE_CREATE Param 10566 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 10562 I(4) 4 scalar MPI_MODE_EXCL Param 10568 I(4) 4 scalar MPI_MODE_NOCHECK Param 10532 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 10538 I(4) 4 scalar MPI_MODE_NOPUT Param 10536 I(4) 4 scalar MPI_MODE_NOSTORE Param 10534 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 10540 I(4) 4 scalar MPI_MODE_RDONLY Param 10556 I(4) 4 scalar MPI_MODE_RDWR Param 10558 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 10572 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 10564 I(4) 4 scalar MPI_MODE_WRONLY Param 10560 I(4) 4 scalar MPI_NO_OP Param 10250 I(4) 4 scalar MPI_NULL_COPY_FN Subr 10600 scalar MPI_NULL_DELETE_FN Subr 10600 scalar MPI_OFFSET Param 10476 I(4) 4 scalar MPI_OFFSET_KIND Param 10398 I(4) 4 scalar MPI_OP_NULL Param 10266 I(4) 4 scalar MPI_ORDER_C Param 10580 I(4) 4 scalar MPI_ORDER_FORTRAN Param 10582 I(4) 4 scalar MPI_PACKED Param 10372 I(4) 4 scalar MPI_PROC_NULL Param 10324 I(4) 4 scalar MPI_PROD Param 10230 I(4) 4 scalar MPI_REAL Param 10352 I(4) 4 scalar MPI_REAL16 Param 10388 I(4) 4 scalar MPI_REAL4 Param 10384 I(4) 4 scalar MPI_REAL8 Param 10386 I(4) 4 scalar MPI_REPLACE Param 10248 I(4) 4 scalar MPI_REQUEST_NULL Param 10270 I(4) 4 scalar MPI_ROOT Param 10330 I(4) 4 scalar MPI_SEEK_CUR Param 10576 I(4) 4 scalar MPI_SEEK_END Param 10578 I(4) 4 scalar MPI_SEEK_SET Param 10574 I(4) 4 scalar MPI_SHORT Param 10412 I(4) 4 scalar MPI_SHORT_INT Param 10442 I(4) 4 scalar MPI_SIGNED_CHAR Param 10406 I(4) 4 scalar MPI_SIMILAR Param 10208 I(4) 4 scalar MPI_SOURCE Param 10073 I(4) 4 scalar MPI_STATUS_SIZE Param 10075 I(4) 4 scalar 10077,10078,10686 MPI_SUBARRAYS_SUPPORTED Param 10594 L(4) 4 scalar MPI_SUBVERSION Param 10340 I(4) 4 scalar MPI_SUCCESS Param 10082 I(4) 4 scalar MPI_SUM Param 10228 I(4) 4 scalar MPI_TAG Param 10073 I(4) 4 scalar MPI_TAG_UB Param 10278 I(4) 4 scalar MPI_THREAD_FUNNELED Param 10550 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 10554 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 10552 I(4) 4 scalar MPI_THREAD_SINGLE Param 10548 I(4) 4 scalar Page 188 Source Listing IEXCH 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_TYPECLASS_COMPLEX Param 10530 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 10528 I(4) 4 scalar MPI_TYPECLASS_REAL Param 10526 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 10607 scalar MPI_TYPE_NULL_COPY_FN Subr 10608 scalar MPI_TYPE_NULL_DELETE_FN Subr 10607 scalar MPI_UB Param 10368 I(4) 4 scalar MPI_UINT16_T Param 10458 I(4) 4 scalar MPI_UINT32_T Param 10460 I(4) 4 scalar MPI_UINT64_T Param 10462 I(4) 4 scalar MPI_UINT8_T Param 10456 I(4) 4 scalar MPI_UNDEFINED Param 10318 I(4) 4 scalar MPI_UNEQUAL Param 10210 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 10286 I(4) 4 scalar MPI_UNSIGNED Param 10418 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 10408 I(4) 4 scalar MPI_UNSIGNED_LONG Param 10422 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 10432 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 10414 I(4) 4 scalar MPI_VERSION Param 10338 I(4) 4 scalar MPI_WAIT Subr 10764 10764,10781,10791,10795,10868,1088 5,10895,10899 MPI_WCHAR Param 10410 I(4) 4 scalar MPI_WIN_BASE Param 10292 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 10298 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 10296 I(4) 4 scalar MPI_WIN_DUP_FN Subr 10605 scalar MPI_WIN_FLAVOR_ALLOCATE Param 10214 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 10212 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 10216 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 10218 I(4) 4 scalar MPI_WIN_MODEL Param 10300 I(4) 4 scalar MPI_WIN_NULL Param 10260 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 10606 scalar MPI_WIN_NULL_DELETE_FN Subr 10605 scalar MPI_WIN_SEPARATE Param 10220 I(4) 4 scalar MPI_WIN_SIZE Param 10294 I(4) 4 scalar MPI_WIN_UNIFIED Param 10222 I(4) 4 scalar MPI_WTICK Func 10601 R(8) 8 scalar MPI_WTIME Func 10601 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 10284 I(4) 4 scalar MPPCOM Common 10628 1464 SAVE PMPI_WTICK Func 10602 R(8) 8 scalar PMPI_WTIME Func 10602 R(8) 8 scalar TEMPCOM Common 10669 6603768 SAVE TOPO Common 10677 17478548 SAVE Page 189 Source Listing IEXCH 2025-03-12 18:21 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 10708,10717,10735,10753,10812,1082 1,10839,10857 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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:21 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 10726,10744,10762,10779,10829,1083 0,10882,10883 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 10725,10743,10761,10778,10847,1084 8,10865,10866 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 10731,10785,10832,10850,10869,1088 6 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 10749,10768,10832,10850,10869,1088 Page 191 Source Listing IEXCH 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 6 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 10734,10752,10838,10856 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 10706,10707,10715,10716,10724,1073 4,10742,10752,10760,10777,10790,10 794,10810,10811,10819,10820,10828, 10838,10846,10856,10864,10881,1089 4,10898 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:21 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:21 module_EXCHM.F 10904 10905 SUBROUTINE EXCH0001111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 10906 * ARR4,LL4,ARR5,LL5, 10907 * ARR6,LL6,ARR7,LL7,IHALO,JHALO) 10908 USE EXCH_BUF_REAL 10909 INCLUDE "parmeta" 10932 INCLUDE "mpif.h" 11494 INCLUDE "mpp.h" 11495 C----------------------------------------------------------------------- 11554 INTEGER ISTAT(MPI_STATUS_SIZE) 11555 INTEGER IHANDLE(4) 11556 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 11557 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2) 11558 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2) 11559 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 11560 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 11561 REAL ARR6(IDIM1:IDIM2,JDIM1:JDIM2,*) 11562 REAL ARR7(IDIM1:IDIM2,JDIM1:JDIM2,*) 11563 C 11564 C*********************************************************************** 11565 C 11566 ITYPE=MPI_REAL 11567 C 11568 C-------------------------------------------------------------------- 11569 C-------------------------------------------------------------------- 11570 C*** 11571 C*** NORTH/SOUTH 11572 C*** 11573 C-------------------------------------------------------------------- 11574 C-------------------------------------------------------------------- 11575 C 11576 C-------------------------------------------------------------------- 11577 C RECEIVE FROM NORTH 11578 C-------------------------------------------------------------------- 11579 C 11580 IF(MY_NEB(1).GE.0)THEN 11581 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 11582 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 11583 ENDIF 11584 C 11585 C-------------------------------------------------------------------- 11586 C RECEIVE FROM SOUTH 11587 C-------------------------------------------------------------------- 11588 C 11589 IF(MY_NEB(3).GE.0)THEN 11590 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 11591 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 11592 ENDIF 11593 C 11594 C-------------------------------------------------------------------- 11595 C SEND TO NORTH 11596 C-------------------------------------------------------------------- 11597 C 11598 IF(MY_NEB(1).GE.0)THEN 11599 IBEG=MYIS-IHALO 11600 IEND=MYIE+IHALO 11601 IC = 0 Page 194 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 11602 DO J=0,JHALO-1 11603 DO I=IBEG,IEND 11604 IC = IC + 1 11605 BUF2(IC)=ARR1(I,MYJE-J) 11606 ENDDO 11607 ENDDO 11608 DO J=0,JHALO-1 11609 DO I=IBEG,IEND 11610 IC = IC + 1 11611 BUF2(IC)=ARR2(I,MYJE-J) 11612 ENDDO 11613 ENDDO 11614 DO J=0,JHALO-1 11615 DO I=IBEG,IEND 11616 IC = IC + 1 11617 BUF2(IC)=ARR3(I,MYJE-J) 11618 ENDDO 11619 ENDDO 11620 DO K=1,LL4 11621 DO J=0,JHALO-1 11622 DO I=IBEG,IEND 11623 IC = IC + 1 11624 BUF2(IC)=ARR4(I,MYJE-J,K) 11625 ENDDO 11626 ENDDO 11627 ENDDO 11628 DO K=1,LL5 11629 DO J=0,JHALO-1 11630 DO I=IBEG,IEND 11631 IC = IC + 1 11632 BUF2(IC)=ARR5(I,MYJE-J,K) 11633 ENDDO 11634 ENDDO 11635 ENDDO 11636 DO K=1,LL6 11637 DO J=0,JHALO-1 11638 DO I=IBEG,IEND 11639 IC = IC + 1 11640 BUF2(IC)=ARR6(I,MYJE-J,K) 11641 ENDDO 11642 ENDDO 11643 ENDDO 11644 DO K=1,LL7 11645 DO J=0,JHALO-1 11646 DO I=IBEG,IEND 11647 IC = IC + 1 11648 BUF2(IC)=ARR7(I,MYJE-J,K) 11649 ENDDO 11650 ENDDO 11651 ENDDO 11652 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 11653 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 11654 ENDIF 11655 C 11656 C-------------------------------------------------------------------- 11657 C SEND TO SOUTH 11658 C-------------------------------------------------------------------- Page 195 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 11659 C 11660 IF(MY_NEB(3).GE.0)THEN 11661 IBEG=MYIS-IHALO 11662 IEND=MYIE+IHALO 11663 IC = 0 11664 DO J=0,JHALO-1 11665 DO I=IBEG,IEND 11666 IC = IC + 1 11667 BUF3(IC)=ARR1(I,MYJS+J) 11668 ENDDO 11669 ENDDO 11670 DO J=0,JHALO-1 11671 DO I=IBEG,IEND 11672 IC = IC + 1 11673 BUF3(IC)=ARR2(I,MYJS+J) 11674 ENDDO 11675 ENDDO 11676 DO J=0,JHALO-1 11677 DO I=IBEG,IEND 11678 IC = IC + 1 11679 BUF3(IC)=ARR3(I,MYJS+J) 11680 ENDDO 11681 ENDDO 11682 DO K=1,LL4 11683 DO J=0,JHALO-1 11684 DO I=IBEG,IEND 11685 IC = IC + 1 11686 BUF3(IC)=ARR4(I,MYJS+J,K) 11687 ENDDO 11688 ENDDO 11689 ENDDO 11690 DO K=1,LL5 11691 DO J=0,JHALO-1 11692 DO I=IBEG,IEND 11693 IC = IC + 1 11694 BUF3(IC)=ARR5(I,MYJS+J,K) 11695 ENDDO 11696 ENDDO 11697 ENDDO 11698 DO K=1,LL6 11699 DO J=0,JHALO-1 11700 DO I=IBEG,IEND 11701 IC = IC + 1 11702 BUF3(IC)=ARR6(I,MYJS+J,K) 11703 ENDDO 11704 ENDDO 11705 ENDDO 11706 DO K=1,LL7 11707 DO J=0,JHALO-1 11708 DO I=IBEG,IEND 11709 IC = IC + 1 11710 BUF3(IC)=ARR7(I,MYJS+J,K) 11711 ENDDO 11712 ENDDO 11713 ENDDO 11714 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 11715 1, MPI_COMM_COMP,IHANDLE(4),ISEND) Page 196 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 11716 ENDIF 11717 C 11718 C-------------------------------------------------------------------- 11719 C STORE RESULTS FROM SOUTH 11720 C-------------------------------------------------------------------- 11721 C 11722 IF(MY_NEB(3).GE.0)THEN 11723 IBEG=MYIS-IHALO 11724 IEND=MYIE+IHALO 11725 IC = 0 11726 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 11727 DO J=0,JHALO-1 11728 DO I=IBEG,IEND 11729 IC = IC + 1 11730 ARR1(I,MYJS-J-1)=BUF1(IC) 11731 ENDDO 11732 ENDDO 11733 DO J=0,JHALO-1 11734 DO I=IBEG,IEND 11735 IC = IC + 1 11736 ARR2(I,MYJS-J-1)=BUF1(IC) 11737 ENDDO 11738 ENDDO 11739 DO J=0,JHALO-1 11740 DO I=IBEG,IEND 11741 IC = IC + 1 11742 ARR3(I,MYJS-J-1)=BUF1(IC) 11743 ENDDO 11744 ENDDO 11745 DO K=1,LL4 11746 DO J=0,JHALO-1 11747 DO I=IBEG,IEND 11748 IC = IC + 1 11749 ARR4(I,MYJS-J-1,K)=BUF1(IC) 11750 ENDDO 11751 ENDDO 11752 ENDDO 11753 DO K=1,LL5 11754 DO J=0,JHALO-1 11755 DO I=IBEG,IEND 11756 IC = IC + 1 11757 ARR5(I,MYJS-J-1,K)=BUF1(IC) 11758 ENDDO 11759 ENDDO 11760 ENDDO 11761 DO K=1,LL6 11762 DO J=0,JHALO-1 11763 DO I=IBEG,IEND 11764 IC = IC + 1 11765 ARR6(I,MYJS-J-1,K)=BUF1(IC) 11766 ENDDO 11767 ENDDO 11768 ENDDO 11769 DO K=1,LL7 11770 DO J=0,JHALO-1 11771 DO I=IBEG,IEND 11772 IC = IC + 1 Page 197 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 11773 ARR7(I,MYJS-J-1,K)=BUF1(IC) 11774 ENDDO 11775 ENDDO 11776 ENDDO 11777 ENDIF 11778 C 11779 C-------------------------------------------------------------------- 11780 C STORE FROM NORTH 11781 C-------------------------------------------------------------------- 11782 C 11783 IF(MY_NEB(1).GE.0)THEN 11784 IBEG=MYIS-IHALO 11785 IEND=MYIE+IHALO 11786 IC = 0 11787 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 11788 DO J=0,JHALO-1 11789 DO I=IBEG,IEND 11790 IC = IC + 1 11791 ARR1(I,MYJE+J+1)=BUF0(IC) 11792 ENDDO 11793 ENDDO 11794 DO J=0,JHALO-1 11795 DO I=IBEG,IEND 11796 IC = IC + 1 11797 ARR2(I,MYJE+J+1)=BUF0(IC) 11798 ENDDO 11799 ENDDO 11800 DO J=0,JHALO-1 11801 DO I=IBEG,IEND 11802 IC = IC + 1 11803 ARR3(I,MYJE+J+1)=BUF0(IC) 11804 ENDDO 11805 ENDDO 11806 DO K=1,LL4 11807 DO J=0,JHALO-1 11808 DO I=IBEG,IEND 11809 IC = IC + 1 11810 ARR4(I,MYJE+J+1,K)=BUF0(IC) 11811 ENDDO 11812 ENDDO 11813 ENDDO 11814 DO K=1,LL5 11815 DO J=0,JHALO-1 11816 DO I=IBEG,IEND 11817 IC = IC + 1 11818 ARR5(I,MYJE+J+1,K)=BUF0(IC) 11819 ENDDO 11820 ENDDO 11821 ENDDO 11822 DO K=1,LL6 11823 DO J=0,JHALO-1 11824 DO I=IBEG,IEND 11825 IC = IC + 1 11826 ARR6(I,MYJE+J+1,K)=BUF0(IC) 11827 ENDDO 11828 ENDDO 11829 ENDDO Page 198 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 11830 DO K=1,LL7 11831 DO J=0,JHALO-1 11832 DO I=IBEG,IEND 11833 IC = IC + 1 11834 ARR7(I,MYJE+J+1,K)=BUF0(IC) 11835 ENDDO 11836 ENDDO 11837 ENDDO 11838 ENDIF 11839 C 11840 IF(MY_NEB(1).GE.0)THEN 11841 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 11842 ENDIF 11843 C 11844 IF(MY_NEB(3).GE.0)THEN 11845 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 11846 ENDIF 11847 C 11848 C-------------------------------------------------------------------- 11849 C-------------------------------------------------------------------- 11850 C*** 11851 C*** EAST/WEST 11852 C*** 11853 C-------------------------------------------------------------------- 11854 C-------------------------------------------------------------------- 11855 C 11856 C-------------------------------------------------------------------- 11857 C RECEIVE FROM WEST 11858 C-------------------------------------------------------------------- 11859 C 11860 IF(MY_NEB(4).GE.0)THEN 11861 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 11862 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 11863 ENDIF 11864 C 11865 C-------------------------------------------------------------------- 11866 C RECEIVE FROM EAST 11867 C-------------------------------------------------------------------- 11868 C 11869 IF(MY_NEB(2).GE.0)THEN 11870 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 11871 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 11872 ENDIF 11873 C 11874 C-------------------------------------------------------------------- 11875 C SEND TO EAST 11876 C-------------------------------------------------------------------- 11877 C 11878 IF(MY_NEB(2).GE.0)THEN 11879 IBEG=MYIE-IHALO+1 11880 IEND=MYIE 11881 IC = 0 11882 DO J=MYJS-JHALO,MYJE+JHALO 11883 DO I=IBEG,IEND 11884 IC = IC + 1 11885 BUF2(IC)=ARR1(I,J) 11886 ENDDO Page 199 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 11887 ENDDO 11888 DO J=MYJS-JHALO,MYJE+JHALO 11889 DO I=IBEG,IEND 11890 IC = IC + 1 11891 BUF2(IC)=ARR2(I,J) 11892 ENDDO 11893 ENDDO 11894 DO J=MYJS-JHALO,MYJE+JHALO 11895 DO I=IBEG,IEND 11896 IC = IC + 1 11897 BUF2(IC)=ARR3(I,J) 11898 ENDDO 11899 ENDDO 11900 DO K=1,LL4 11901 DO J=MYJS-JHALO,MYJE+JHALO 11902 DO I=IBEG,IEND 11903 IC = IC + 1 11904 BUF2(IC)=ARR4(I,J,K) 11905 ENDDO 11906 ENDDO 11907 ENDDO 11908 DO K=1,LL5 11909 DO J=MYJS-JHALO,MYJE+JHALO 11910 DO I=IBEG,IEND 11911 IC = IC + 1 11912 BUF2(IC)=ARR5(I,J,K) 11913 ENDDO 11914 ENDDO 11915 ENDDO 11916 DO K=1,LL6 11917 DO J=MYJS-JHALO,MYJE+JHALO 11918 DO I=IBEG,IEND 11919 IC = IC + 1 11920 BUF2(IC)=ARR6(I,J,K) 11921 ENDDO 11922 ENDDO 11923 ENDDO 11924 DO K=1,LL7 11925 DO J=MYJS-JHALO,MYJE+JHALO 11926 DO I=IBEG,IEND 11927 IC = IC + 1 11928 BUF2(IC)=ARR7(I,J,K) 11929 ENDDO 11930 ENDDO 11931 ENDDO 11932 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 11933 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 11934 ENDIF 11935 C 11936 C-------------------------------------------------------------------- 11937 C SEND TO WEST 11938 C-------------------------------------------------------------------- 11939 C 11940 IF(MY_NEB(4).GE.0)THEN 11941 IBEG=MYIS 11942 IEND=MYIS+IHALO-1 11943 IC = 0 Page 200 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 11944 DO J=MYJS-JHALO,MYJE+JHALO 11945 DO I=IBEG,IEND 11946 IC = IC + 1 11947 BUF3(IC)=ARR1(I,J) 11948 ENDDO 11949 ENDDO 11950 DO J=MYJS-JHALO,MYJE+JHALO 11951 DO I=IBEG,IEND 11952 IC = IC + 1 11953 BUF3(IC)=ARR2(I,J) 11954 ENDDO 11955 ENDDO 11956 DO J=MYJS-JHALO,MYJE+JHALO 11957 DO I=IBEG,IEND 11958 IC = IC + 1 11959 BUF3(IC)=ARR3(I,J) 11960 ENDDO 11961 ENDDO 11962 DO K=1,LL4 11963 DO J=MYJS-JHALO,MYJE+JHALO 11964 DO I=IBEG,IEND 11965 IC = IC + 1 11966 BUF3(IC)=ARR4(I,J,K) 11967 ENDDO 11968 ENDDO 11969 ENDDO 11970 DO K=1,LL5 11971 DO J=MYJS-JHALO,MYJE+JHALO 11972 DO I=IBEG,IEND 11973 IC = IC + 1 11974 BUF3(IC)=ARR5(I,J,K) 11975 ENDDO 11976 ENDDO 11977 ENDDO 11978 DO K=1,LL6 11979 DO J=MYJS-JHALO,MYJE+JHALO 11980 DO I=IBEG,IEND 11981 IC = IC + 1 11982 BUF3(IC)=ARR6(I,J,K) 11983 ENDDO 11984 ENDDO 11985 ENDDO 11986 DO K=1,LL7 11987 DO J=MYJS-JHALO,MYJE+JHALO 11988 DO I=IBEG,IEND 11989 IC = IC + 1 11990 BUF3(IC)=ARR7(I,J,K) 11991 ENDDO 11992 ENDDO 11993 ENDDO 11994 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 11995 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 11996 ENDIF 11997 C 11998 C-------------------------------------------------------------------- 11999 C STORE FROM WEST 12000 C-------------------------------------------------------------------- Page 201 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 12001 C 12002 IF(MY_NEB(4).GE.0)THEN 12003 IBEG=MYIS-IHALO 12004 IEND=MYIS-1 12005 IC = 0 12006 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 12007 DO J=MYJS-JHALO,MYJE+JHALO 12008 DO I=IBEG,IEND 12009 IC = IC + 1 12010 ARR1(I,J)=BUF0(IC) 12011 ENDDO 12012 ENDDO 12013 DO J=MYJS-JHALO,MYJE+JHALO 12014 DO I=IBEG,IEND 12015 IC = IC + 1 12016 ARR2(I,J)=BUF0(IC) 12017 ENDDO 12018 ENDDO 12019 DO J=MYJS-JHALO,MYJE+JHALO 12020 DO I=IBEG,IEND 12021 IC = IC + 1 12022 ARR3(I,J)=BUF0(IC) 12023 ENDDO 12024 ENDDO 12025 DO K=1,LL4 12026 DO J=MYJS-JHALO,MYJE+JHALO 12027 DO I=IBEG,IEND 12028 IC = IC + 1 12029 ARR4(I,J,K)=BUF0(IC) 12030 ENDDO 12031 ENDDO 12032 ENDDO 12033 DO K=1,LL5 12034 DO J=MYJS-JHALO,MYJE+JHALO 12035 DO I=IBEG,IEND 12036 IC = IC + 1 12037 ARR5(I,J,K)=BUF0(IC) 12038 ENDDO 12039 ENDDO 12040 ENDDO 12041 DO K=1,LL6 12042 DO J=MYJS-JHALO,MYJE+JHALO 12043 DO I=IBEG,IEND 12044 IC = IC + 1 12045 ARR6(I,J,K)=BUF0(IC) 12046 ENDDO 12047 ENDDO 12048 ENDDO 12049 DO K=1,LL7 12050 DO J=MYJS-JHALO,MYJE+JHALO 12051 DO I=IBEG,IEND 12052 IC = IC + 1 12053 ARR7(I,J,K)=BUF0(IC) 12054 ENDDO 12055 ENDDO 12056 ENDDO 12057 ENDIF Page 202 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 12058 C 12059 C-------------------------------------------------------------------- 12060 C STORE FROM EAST 12061 C-------------------------------------------------------------------- 12062 C 12063 IF(MY_NEB(2).GE.0)THEN 12064 IBEG=MYIE+1 12065 IEND=MYIE+IHALO 12066 IC = 0 12067 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 12068 DO J=MYJS-JHALO,MYJE+JHALO 12069 DO I=IBEG,IEND 12070 IC = IC + 1 12071 ARR1(I,J)=BUF1(IC) 12072 ENDDO 12073 ENDDO 12074 DO J=MYJS-JHALO,MYJE+JHALO 12075 DO I=IBEG,IEND 12076 IC = IC + 1 12077 ARR2(I,J)=BUF1(IC) 12078 ENDDO 12079 ENDDO 12080 DO J=MYJS-JHALO,MYJE+JHALO 12081 DO I=IBEG,IEND 12082 IC = IC + 1 12083 ARR3(I,J)=BUF1(IC) 12084 ENDDO 12085 ENDDO 12086 DO K=1,LL4 12087 DO J=MYJS-JHALO,MYJE+JHALO 12088 DO I=IBEG,IEND 12089 IC = IC + 1 12090 ARR4(I,J,K)=BUF1(IC) 12091 ENDDO 12092 ENDDO 12093 ENDDO 12094 DO K=1,LL5 12095 DO J=MYJS-JHALO,MYJE+JHALO 12096 DO I=IBEG,IEND 12097 IC = IC + 1 12098 ARR5(I,J,K)=BUF1(IC) 12099 ENDDO 12100 ENDDO 12101 ENDDO 12102 DO K=1,LL6 12103 DO J=MYJS-JHALO,MYJE+JHALO 12104 DO I=IBEG,IEND 12105 IC = IC + 1 12106 ARR6(I,J,K)=BUF1(IC) 12107 ENDDO 12108 ENDDO 12109 ENDDO 12110 DO K=1,LL7 12111 DO J=MYJS-JHALO,MYJE+JHALO 12112 DO I=IBEG,IEND 12113 IC = IC + 1 12114 ARR7(I,J,K)=BUF1(IC) Page 203 Source Listing EXCH0001111 2025-03-12 18:21 module_EXCHM.F 12115 ENDDO 12116 ENDDO 12117 ENDDO 12118 ENDIF 12119 C 12120 IF(MY_NEB(4).GE.0)THEN 12121 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 12122 ENDIF 12123 C 12124 IF(MY_NEB(2).GE.0)THEN 12125 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 12126 ENDIF 12127 C 12128 C-------------------------------------------------------------------- 12129 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch0001111_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 10905 R(4) 4 2 17955 ARG,INOUT 11605,11667,11730,11791,11885,1194 7,12010,12071 ARR2 Dummy 10905 R(4) 4 2 17955 ARG,INOUT 11611,11673,11736,11797,11891,1195 3,12016,12077 ARR3 Dummy 10905 R(4) 4 2 17955 ARG,INOUT 11617,11679,11742,11803,11897,1195 9,12022,12083 ARR4 Dummy 10906 R(4) 4 3 0 ARG,INOUT 11624,11686,11749,11810,11904,1196 6,12029,12090 ARR5 Dummy 10906 R(4) 4 3 0 ARG,INOUT 11632,11694,11757,11818,11912,1197 4,12037,12098 ARR6 Dummy 10907 R(4) 4 3 0 ARG,INOUT 11640,11702,11765,11826,11920,1198 2,12045,12106 ARR7 Dummy 10907 R(4) 4 3 0 ARG,INOUT 11648,11710,11773,11834,11928,1199 0,12053,12114 BUF0 Local 11581 R(4) 4 1 2500000 11581,11791,11797,11803,11810,1181 8,11826,11834,11861,12010,12016,12 022,12029,12037,12045,12053 BUF1 Local 11590 R(4) 4 1 2500000 11590,11730,11736,11742,11749,1175 7,11765,11773,11870,12071,12077,12 083,12090,12098,12106,12114 BUF2 Local 11605 R(4) 4 1 2500000 11605,11611,11617,11624,11632,1164 0,11648,11652,11885,11891,11897,11 904,11912,11920,11928,11932 BUF3 Local 11667 R(4) 4 1 2500000 11667,11673,11679,11686,11694,1170 2,11710,11714,11947,11953,11959,11 966,11974,11982,11990,11994 EXCH0001111 Subr 10905 EXCH_BUF_REAL Module 10908 10908 GLB_TABLE Common 11532 128 SAVE Page 204 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References I Local 11603 I(4) 4 scalar 11603,11605,11609,11611,11615,1161 7,11622,11624,11630,11632,11638,11 640,11646,11648,11665,11667,11671, 11673,11677,11679,11684,11686,1169 2,11694,11700,11702,11708,11710,11 728,11730,11734,11736,11740,11742, 11747,11749,11755,11757,11763,1176 5,11771,11773,11789,11791,11795,11 797,11801,11803,11808,11810,11816, 11818,11824,11826,11832,11834,1188 3,11885,11889,11891,11895,11897,11 902,11904,11910,11912,11918,11920, 11926,11928,11945,11947,11951,1195 3,11957,11959,11964,11966,11972,11 974,11980,11982,11988,11990,12008, 12010,12014,12016,12020,12022,1202 7,12029,12035,12037,12043,12045,12 051,12053,12069,12071,12075,12077, 12081,12083,12088,12090,12096,1209 8,12104,12106,12112,12114 IBEG Local 11599 I(4) 4 scalar 11599,11603,11609,11615,11622,1163 0,11638,11646,11661,11665,11671,11 677,11684,11692,11700,11708,11723, 11728,11734,11740,11747,11755,1176 3,11771,11784,11789,11795,11801,11 808,11816,11824,11832,11879,11883, 11889,11895,11902,11910,11918,1192 6,11941,11945,11951,11957,11964,11 972,11980,11988,12003,12008,12014, 12020,12027,12035,12043,12051,1206 4,12069,12075,12081,12088,12096,12 104,12112 IBUFEXCH Param 11581 I(4) 4 scalar 11581,11590,11861,11870 IC Local 11601 I(4) 4 scalar 11601,11604,11605,11610,11611,1161 6,11617,11623,11624,11631,11632,11 639,11640,11647,11648,11652,11663, 11666,11667,11672,11673,11678,1167 9,11685,11686,11693,11694,11701,11 702,11709,11710,11714,11725,11729, 11730,11735,11736,11741,11742,1174 8,11749,11756,11757,11764,11765,11 772,11773,11786,11790,11791,11796, 11797,11802,11803,11809,11810,1181 7,11818,11825,11826,11833,11834,11 881,11884,11885,11890,11891,11896, 11897,11903,11904,11911,11912,1191 9,11920,11927,11928,11932,11943,11 946,11947,11952,11953,11958,11959, 11965,11966,11973,11974,11981,1198 2,11989,11990,11994,12005,12009,12 010,12015,12016,12021,12022,12028, 12029,12036,12037,12044,12045,1205 2,12053,12066,12070,12071,12076,12 077,12082,12083,12089,12090,12097, 12098,12105,12106,12113,12114 Page 205 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References IDIM1 Param 10928 I(4) 4 scalar 11556,11557,11558,11559,11560,1156 1,11562 IDIM2 Param 10928 I(4) 4 scalar 11556,11557,11558,11559,11560,1156 1,11562 IEND Local 11600 I(4) 4 scalar 11600,11603,11609,11615,11622,1163 0,11638,11646,11662,11665,11671,11 677,11684,11692,11700,11708,11724, 11728,11734,11740,11747,11755,1176 3,11771,11785,11789,11795,11801,11 808,11816,11824,11832,11880,11883, 11889,11895,11902,11910,11918,1192 6,11942,11945,11951,11957,11964,11 972,11980,11988,12004,12008,12014, 12020,12027,12035,12043,12051,1206 5,12069,12075,12081,12088,12096,12 104,12112 IERR Local 11726 I(4) 4 scalar 11726,11787,11841,11845,12006,1206 7,12121,12125 IGSTL Param 10923 I(4) 4 scalar 10928 IGSTR Param 10923 I(4) 4 scalar 10928 IHALO Dummy 10907 I(4) 4 scalar ARG,INOUT 11599,11600,11661,11662,11723,1172 4,11784,11785,11879,11942,12003,12 065 IHANDLE Local 11555 I(4) 4 1 4 11582,11591,11653,11715,11726,1178 7,11841,11845,11862,11871,11933,11 995,12006,12067,12121,12125 IM Param 10912 I(4) 4 scalar 10925,10928,11538,11539,11540,1154 1,11542,11546,11547,11552 INPES Param 10920 I(4) 4 scalar 10925,10928,11522,11523,11524,1153 3,11534 IRECV Local 11582 I(4) 4 scalar 11582,11591,11862,11871 ISEND Local 11653 I(4) 4 scalar 11653,11715,11933,11995 ISTAT Local 11554 I(4) 4 1 5 11726,11787,11841,11845,12006,1206 7,12121,12125 ITAIL Param 10925 I(4) 4 scalar ITYPE Local 11566 I(4) 4 scalar 11566,11581,11590,11652,11714,1186 1,11870,11932,11994 J Local 11602 I(4) 4 scalar 11602,11605,11608,11611,11614,1161 7,11621,11624,11629,11632,11637,11 640,11645,11648,11664,11667,11670, 11673,11676,11679,11683,11686,1169 1,11694,11699,11702,11707,11710,11 727,11730,11733,11736,11739,11742, 11746,11749,11754,11757,11762,1176 5,11770,11773,11788,11791,11794,11 797,11800,11803,11807,11810,11815, 11818,11823,11826,11831,11834,1188 2,11885,11888,11891,11894,11897,11 901,11904,11909,11912,11917,11920, 11925,11928,11944,11947,11950,1195 3,11956,11959,11963,11966,11971,11 974,11979,11982,11987,11990,12007, 12010,12013,12016,12019,12022,1202 6,12029,12034,12037,12042,12045,12 050,12053,12068,12071,12074,12077, Page 206 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 12080,12083,12087,12090,12095,1209 8,12103,12106,12111,12114 JDIM1 Param 10929 I(4) 4 scalar 11556,11557,11558,11559,11560,1156 1,11562 JDIM2 Param 10929 I(4) 4 scalar 11556,11557,11558,11559,11560,1156 1,11562 JGSTL Param 10924 I(4) 4 scalar 10929 JGSTR Param 10924 I(4) 4 scalar 10929 JHALO Dummy 10907 I(4) 4 scalar ARG,INOUT 11602,11608,11614,11621,11629,1163 7,11645,11664,11670,11676,11683,11 691,11699,11707,11727,11733,11739, 11746,11754,11762,11770,11788,1179 4,11800,11807,11815,11823,11831,11 882,11888,11894,11901,11909,11917, 11925,11944,11950,11956,11963,1197 1,11979,11987,12007,12013,12019,12 026,12034,12042,12050,12068,12074, 12080,12087,12095,12103,12111 JM Param 10912 I(4) 4 scalar 10926,10929,11538,11539,11540,1154 1,11542,11546,11547,11552 JNPES Param 10920 I(4) 4 scalar 10926,10929,11522,11523,11524,1153 3,11534 JTAIL Param 10926 I(4) 4 scalar K Local 11620 I(4) 4 scalar 11620,11624,11628,11632,11636,1164 0,11644,11648,11682,11686,11690,11 694,11698,11702,11706,11710,11745, 11749,11753,11757,11761,11765,1176 9,11773,11806,11810,11814,11818,11 822,11826,11830,11834,11900,11904, 11908,11912,11916,11920,11924,1192 8,11962,11966,11970,11974,11978,11 982,11986,11990,12025,12029,12033, 12037,12041,12045,12049,12053,1208 6,12090,12094,12098,12102,12106,12 110,12114 LL1 Dummy 10905 I(4) 4 scalar ARG,INOUT LL2 Dummy 10905 I(4) 4 scalar ARG,INOUT LL3 Dummy 10905 I(4) 4 scalar ARG,INOUT LL4 Dummy 10906 I(4) 4 scalar ARG,INOUT 11620,11682,11745,11806,11900,1196 2,12025,12086 LL5 Dummy 10906 I(4) 4 scalar ARG,INOUT 11628,11690,11753,11814,11908,1197 0,12033,12094 LL6 Dummy 10907 I(4) 4 scalar ARG,INOUT 11636,11698,11761,11822,11916,1197 8,12041,12102 LL7 Dummy 10907 I(4) 4 scalar ARG,INOUT 11644,11706,11769,11830,11924,1198 6,12049,12110 LM Param 10912 I(4) 4 scalar 11547 LSM Param 10912 I(4) 4 scalar MAPPINGS Common 11551 5024 SAVE MPIFCMB5 Common 11482 4 SAVE MPIFCMB9 Common 11483 4 SAVE MPIPRIV1 Common 11487 28 SAVE MPIPRIV2 Common 11489 24 SAVE MPIPRIVC Common 11492 2 SAVE MPI_2DOUBLE_PRECISION Param 11228 I(4) 4 scalar Page 207 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_2INT Param 11312 I(4) 4 scalar MPI_2INTEGER Param 11226 I(4) 4 scalar MPI_2REAL Param 11230 I(4) 4 scalar MPI_ADDRESS_KIND Param 11264 I(4) 4 scalar MPI_AINT Param 11342 I(4) 4 scalar MPI_ANY_SOURCE Param 11194 I(4) 4 scalar MPI_ANY_TAG Param 11196 I(4) 4 scalar MPI_APPNUM Param 11158 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 11464 L(4) 4 scalar MPI_BAND Param 11102 I(4) 4 scalar MPI_BOR Param 11106 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 11190 I(4) 4 scalar MPI_BXOR Param 11110 I(4) 4 scalar MPI_BYTE Param 11234 I(4) 4 scalar MPI_CART Param 11202 I(4) 4 scalar MPI_CHAR Param 11272 I(4) 4 scalar MPI_CHARACTER Param 11232 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 11360 I(4) 4 scalar MPI_COMBINER_DARRAY Param 11382 I(4) 4 scalar MPI_COMBINER_DUP Param 11358 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 11386 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 11388 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 11384 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 11372 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 11392 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 11370 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 11366 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 11364 I(4) 4 scalar MPI_COMBINER_INDEXED Param 11368 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 11374 I(4) 4 scalar MPI_COMBINER_NAMED Param 11356 I(4) 4 scalar MPI_COMBINER_RESIZED Param 11390 I(4) 4 scalar MPI_COMBINER_STRUCT Param 11378 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 11376 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 11380 I(4) 4 scalar MPI_COMBINER_VECTOR Param 11362 I(4) 4 scalar MPI_COMM_DUP_FN Subr 11471 scalar MPI_COMM_NULL Param 11126 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 11472 scalar MPI_COMM_NULL_DELETE_FN Subr 11471 scalar MPI_COMM_SELF Param 11122 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 11410 I(4) 4 scalar MPI_COMM_WORLD Param 11120 I(4) 4 scalar MPI_COMPLEX Param 11214 I(4) 4 scalar MPI_COMPLEX16 Param 11260 I(4) 4 scalar MPI_COMPLEX32 Param 11262 I(4) 4 scalar MPI_COMPLEX8 Param 11258 I(4) 4 scalar MPI_CONGRUENT Param 11074 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 11477 scalar MPI_COUNT Param 11346 I(4) 4 scalar Page 208 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COUNT_KIND Param 11268 I(4) 4 scalar MPI_CXX_BOOL Param 11348 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 11352 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 11350 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 11354 I(4) 4 scalar MPI_C_BOOL Param 11332 I(4) 4 scalar MPI_C_COMPLEX Param 11336 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 11338 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 11334 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 11340 I(4) 4 scalar MPI_DATATYPE_NULL Param 11136 I(4) 4 scalar 11251,11349,11351,11353,11355 MPI_DISPLACEMENT_CURRENT Param 11460 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 11452 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 11454 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 11458 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 11456 I(4) 4 scalar MPI_DIST_GRAPH Param 11204 I(4) 4 scalar MPI_DOUBLE Param 11294 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 11216 I(4) 4 scalar MPI_DOUBLE_INT Param 11306 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 11222 I(4) 4 scalar MPI_DUP_FN Subr 11468 scalar MPI_ERRHANDLER_NULL Param 11140 I(4) 4 scalar MPI_ERROR Param 10941 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 11068 I(4) 4 scalar MPI_ERRORS_RETURN Param 11070 I(4) 4 scalar MPI_ERR_ACCESS Param 11060 I(4) 4 scalar MPI_ERR_AMODE Param 11046 I(4) 4 scalar MPI_ERR_ARG Param 11016 I(4) 4 scalar MPI_ERR_ASSERT Param 11022 I(4) 4 scalar MPI_ERR_BAD_FILE Param 10984 I(4) 4 scalar MPI_ERR_BASE Param 11014 I(4) 4 scalar MPI_ERR_BUFFER Param 10956 I(4) 4 scalar MPI_ERR_COMM Param 11034 I(4) 4 scalar MPI_ERR_CONVERSION Param 11050 I(4) 4 scalar MPI_ERR_COUNT Param 10960 I(4) 4 scalar MPI_ERR_DIMS Param 10998 I(4) 4 scalar MPI_ERR_DISP Param 10982 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 10964 I(4) 4 scalar MPI_ERR_FILE Param 10994 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 10976 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 11018 I(4) 4 scalar MPI_ERR_GROUP Param 10980 I(4) 4 scalar MPI_ERR_INFO Param 11008 I(4) 4 scalar MPI_ERR_INFO_KEY Param 11012 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 10992 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 10978 I(4) 4 scalar MPI_ERR_INTERN Param 11010 I(4) 4 scalar MPI_ERR_IN_STATUS Param 10996 I(4) 4 scalar MPI_ERR_IO Param 11056 I(4) 4 scalar MPI_ERR_KEYVAL Param 11002 I(4) 4 scalar MPI_ERR_LASTCODE Param 11024 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 11006 I(4) 4 scalar MPI_ERR_NAME Param 11000 I(4) 4 scalar Page 209 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NOT_SAME Param 11028 I(4) 4 scalar MPI_ERR_NO_MEM Param 11020 I(4) 4 scalar MPI_ERR_NO_SPACE Param 10952 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 11036 I(4) 4 scalar MPI_ERR_OP Param 11054 I(4) 4 scalar MPI_ERR_OTHER Param 10968 I(4) 4 scalar MPI_ERR_PENDING Param 10958 I(4) 4 scalar MPI_ERR_PORT Param 11040 I(4) 4 scalar MPI_ERR_QUOTA Param 11044 I(4) 4 scalar MPI_ERR_RANK Param 10966 I(4) 4 scalar MPI_ERR_READ_ONLY Param 11004 I(4) 4 scalar MPI_ERR_REQUEST Param 11048 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 10970 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 10974 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 10990 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 11052 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 11042 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 10954 I(4) 4 scalar MPI_ERR_ROOT Param 10986 I(4) 4 scalar MPI_ERR_SERVICE Param 10962 I(4) 4 scalar MPI_ERR_SIZE Param 10972 I(4) 4 scalar MPI_ERR_SPAWN Param 11032 I(4) 4 scalar MPI_ERR_TAG Param 11062 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 11066 I(4) 4 scalar MPI_ERR_TRUNCATE Param 11026 I(4) 4 scalar MPI_ERR_TYPE Param 11030 I(4) 4 scalar MPI_ERR_UNKNOWN Param 11064 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 10988 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 11038 I(4) 4 scalar MPI_ERR_WIN Param 11058 I(4) 4 scalar MPI_FILE_NULL Param 11130 I(4) 4 scalar MPI_FLOAT Param 11292 I(4) 4 scalar MPI_FLOAT_INT Param 11304 I(4) 4 scalar MPI_GRAPH Param 11200 I(4) 4 scalar MPI_GROUP_EMPTY Param 11124 I(4) 4 scalar MPI_GROUP_NULL Param 11132 I(4) 4 scalar MPI_HOST Param 11148 I(4) 4 scalar MPI_IDENT Param 11072 I(4) 4 scalar MPI_INFO_ENV Param 11144 I(4) 4 scalar MPI_INFO_NULL Param 11142 I(4) 4 scalar MPI_INT Param 11284 I(4) 4 scalar MPI_INT16_T Param 11318 I(4) 4 scalar MPI_INT32_T Param 11320 I(4) 4 scalar MPI_INT64_T Param 11322 I(4) 4 scalar MPI_INT8_T Param 11316 I(4) 4 scalar MPI_INTEGER Param 11224 I(4) 4 scalar MPI_INTEGER1 Param 11242 I(4) 4 scalar MPI_INTEGER16 Param 11250 I(4) 4 scalar MPI_INTEGER2 Param 11244 I(4) 4 scalar MPI_INTEGER4 Param 11246 I(4) 4 scalar MPI_INTEGER8 Param 11248 I(4) 4 scalar MPI_INTEGER_KIND Param 11270 I(4) 4 scalar MPI_IO Param 11150 I(4) 4 scalar Page 210 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_IRECV Subr 11581 11581,11590,11861,11870 MPI_ISEND Subr 11652 11652,11714,11932,11994 MPI_KEYVAL_INVALID Param 11188 I(4) 4 scalar MPI_LAND Param 11100 I(4) 4 scalar MPI_LASTUSEDCODE Param 11156 I(4) 4 scalar MPI_LB Param 11238 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 11210 I(4) 4 scalar MPI_LOCK_SHARED Param 11212 I(4) 4 scalar MPI_LOGICAL Param 11218 I(4) 4 scalar MPI_LONG Param 11288 I(4) 4 scalar MPI_LONG_DOUBLE Param 11296 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 11314 I(4) 4 scalar MPI_LONG_INT Param 11308 I(4) 4 scalar MPI_LONG_LONG Param 11302 I(4) 4 scalar MPI_LONG_LONG_INT Param 11298 I(4) 4 scalar MPI_LOR Param 11104 I(4) 4 scalar MPI_LXOR Param 11108 I(4) 4 scalar MPI_MAX Param 11092 I(4) 4 scalar MPI_MAXLOC Param 11114 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 11182 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 11170 I(4) 4 scalar MPI_MAX_INFO_KEY Param 11176 I(4) 4 scalar MPI_MAX_INFO_VAL Param 11178 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 11184 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 11174 I(4) 4 scalar MPI_MAX_PORT_NAME Param 11172 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 11180 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 11414 I(4) 4 scalar MPI_MESSAGE_NULL Param 11412 I(4) 4 scalar MPI_MIN Param 11094 I(4) 4 scalar MPI_MINLOC Param 11112 I(4) 4 scalar MPI_MODE_APPEND Param 11438 I(4) 4 scalar MPI_MODE_CREATE Param 11434 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 11430 I(4) 4 scalar MPI_MODE_EXCL Param 11436 I(4) 4 scalar MPI_MODE_NOCHECK Param 11400 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 11406 I(4) 4 scalar MPI_MODE_NOPUT Param 11404 I(4) 4 scalar MPI_MODE_NOSTORE Param 11402 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 11408 I(4) 4 scalar MPI_MODE_RDONLY Param 11424 I(4) 4 scalar MPI_MODE_RDWR Param 11426 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 11440 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 11432 I(4) 4 scalar MPI_MODE_WRONLY Param 11428 I(4) 4 scalar MPI_NO_OP Param 11118 I(4) 4 scalar MPI_NULL_COPY_FN Subr 11468 scalar MPI_NULL_DELETE_FN Subr 11468 scalar MPI_OFFSET Param 11344 I(4) 4 scalar MPI_OFFSET_KIND Param 11266 I(4) 4 scalar MPI_OP_NULL Param 11134 I(4) 4 scalar MPI_ORDER_C Param 11448 I(4) 4 scalar MPI_ORDER_FORTRAN Param 11450 I(4) 4 scalar MPI_PACKED Param 11240 I(4) 4 scalar Page 211 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_PROC_NULL Param 11192 I(4) 4 scalar MPI_PROD Param 11098 I(4) 4 scalar MPI_REAL Param 11220 I(4) 4 scalar 11566 MPI_REAL16 Param 11256 I(4) 4 scalar MPI_REAL4 Param 11252 I(4) 4 scalar MPI_REAL8 Param 11254 I(4) 4 scalar MPI_REPLACE Param 11116 I(4) 4 scalar MPI_REQUEST_NULL Param 11138 I(4) 4 scalar MPI_ROOT Param 11198 I(4) 4 scalar MPI_SEEK_CUR Param 11444 I(4) 4 scalar MPI_SEEK_END Param 11446 I(4) 4 scalar MPI_SEEK_SET Param 11442 I(4) 4 scalar MPI_SHORT Param 11280 I(4) 4 scalar MPI_SHORT_INT Param 11310 I(4) 4 scalar MPI_SIGNED_CHAR Param 11274 I(4) 4 scalar MPI_SIMILAR Param 11076 I(4) 4 scalar MPI_SOURCE Param 10941 I(4) 4 scalar MPI_STATUS_SIZE Param 10943 I(4) 4 scalar 10945,10946,11554 MPI_SUBARRAYS_SUPPORTED Param 11462 L(4) 4 scalar MPI_SUBVERSION Param 11208 I(4) 4 scalar MPI_SUCCESS Param 10950 I(4) 4 scalar MPI_SUM Param 11096 I(4) 4 scalar MPI_TAG Param 10941 I(4) 4 scalar MPI_TAG_UB Param 11146 I(4) 4 scalar MPI_THREAD_FUNNELED Param 11418 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 11422 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 11420 I(4) 4 scalar MPI_THREAD_SINGLE Param 11416 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 11398 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 11396 I(4) 4 scalar MPI_TYPECLASS_REAL Param 11394 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 11475 scalar MPI_TYPE_NULL_COPY_FN Subr 11476 scalar MPI_TYPE_NULL_DELETE_FN Subr 11475 scalar MPI_UB Param 11236 I(4) 4 scalar MPI_UINT16_T Param 11326 I(4) 4 scalar MPI_UINT32_T Param 11328 I(4) 4 scalar MPI_UINT64_T Param 11330 I(4) 4 scalar MPI_UINT8_T Param 11324 I(4) 4 scalar MPI_UNDEFINED Param 11186 I(4) 4 scalar MPI_UNEQUAL Param 11078 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 11154 I(4) 4 scalar MPI_UNSIGNED Param 11286 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 11276 I(4) 4 scalar MPI_UNSIGNED_LONG Param 11290 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 11300 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 11282 I(4) 4 scalar MPI_VERSION Param 11206 I(4) 4 scalar MPI_WAIT Subr 11726 11726,11787,11841,11845,12006,1206 7,12121,12125 MPI_WCHAR Param 11278 I(4) 4 scalar MPI_WIN_BASE Param 11160 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 11166 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 11164 I(4) 4 scalar MPI_WIN_DUP_FN Subr 11473 scalar Page 212 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_FLAVOR_ALLOCATE Param 11082 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 11080 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 11084 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 11086 I(4) 4 scalar MPI_WIN_MODEL Param 11168 I(4) 4 scalar MPI_WIN_NULL Param 11128 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 11474 scalar MPI_WIN_NULL_DELETE_FN Subr 11473 scalar MPI_WIN_SEPARATE Param 11088 I(4) 4 scalar MPI_WIN_SIZE Param 11162 I(4) 4 scalar MPI_WIN_UNIFIED Param 11090 I(4) 4 scalar MPI_WTICK Func 11469 R(8) 8 scalar MPI_WTIME Func 11469 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 11152 I(4) 4 scalar MPPCOM Common 11496 1464 SAVE PMPI_WTICK Func 11470 R(8) 8 scalar PMPI_WTIME Func 11470 R(8) 8 scalar TEMPCOM Common 11537 6603768 SAVE TOPO Common 11545 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 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 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:21 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM 11582,11591,11653,11715,11862,1187 1,11933,11995 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 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 11600,11662,11724,11785,11879,1188 0,12064,12065 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 11599,11661,11723,11784,11941,1194 2,12003,12004 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 11605,11611,11617,11624,11632,1164 0,11648,11791,11797,11803,11810,11 818,11826,11834,11882,11888,11894, Page 214 Source Listing EXCH0001111 2025-03-12 18:21 Symbol Table module_EXCHM.F Name Type Bytes Offset Dimen Elements Attributes References 11901,11909,11917,11925,11944,1195 0,11956,11963,11971,11979,11987,12 007,12013,12019,12026,12034,12042, 12050,12068,12074,12080,12087,1209 5,12103,12111 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 11667,11673,11679,11686,11694,1170 2,11710,11730,11736,11742,11749,11 757,11765,11773,11882,11888,11894, 11901,11909,11917,11925,11944,1195 0,11956,11963,11971,11979,11987,12 007,12013,12019,12026,12034,12042, 12050,12068,12074,12080,12087,1209 5,12103,12111 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:21 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 11652,11714,11932,11994 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 11580,11581,11589,11590,11598,1165 2,11660,11714,11722,11783,11840,11 844,11860,11861,11869,11870,11878, 11932,11940,11994,12002,12063,1212 0,12124 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:21 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:21 module_EXCHM.F 12130 END MODULE Page 218 Source Listing EXCH0001111 2025-03-12 18:21 Subprograms/Common Blocks module_EXCHM.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References EXCH0 Subr 4 EXCH00 Subr 2738 EXCH0001111 Subr 10905 EXCH01 Subr 1807 EXCH011 Subr 9043 EXCH1 Subr 925 EXCH11 Subr 3653 EXCH111 Subr 4600 EXCH1111 Subr 5613 EXCH11111 Subr 6692 EXCH111111 Subr 7835 EXCHM Module 2 GLB_TABLE Common 684 128 SAVE GLB_TABLE Common 1550 128 SAVE GLB_TABLE Common 2432 128 SAVE GLB_TABLE Common 3363 128 SAVE GLB_TABLE Common 4278 128 SAVE GLB_TABLE Common 5225 128 SAVE GLB_TABLE Common 6239 128 SAVE GLB_TABLE Common 7318 128 SAVE GLB_TABLE Common 8461 128 SAVE GLB_TABLE Common 9668 128 SAVE GLB_TABLE Common 10664 128 SAVE GLB_TABLE Common 11532 128 SAVE IEXCH Subr 10039 MAPPINGS Common 703 5024 SAVE MAPPINGS Common 1569 5024 SAVE MAPPINGS Common 2451 5024 SAVE MAPPINGS Common 3382 5024 SAVE MAPPINGS Common 4297 5024 SAVE MAPPINGS Common 5244 5024 SAVE MAPPINGS Common 6258 5024 SAVE MAPPINGS Common 7337 5024 SAVE MAPPINGS Common 8480 5024 SAVE MAPPINGS Common 9687 5024 SAVE MAPPINGS Common 10683 5024 SAVE MAPPINGS Common 11551 5024 SAVE MPIFCMB5 Common 634 4 SAVE MPIFCMB5 Common 1500 4 SAVE MPIFCMB5 Common 2382 4 SAVE MPIFCMB5 Common 3313 4 SAVE MPIFCMB5 Common 4228 4 SAVE MPIFCMB5 Common 5175 4 SAVE MPIFCMB5 Common 6189 4 SAVE MPIFCMB5 Common 7268 4 SAVE MPIFCMB5 Common 8411 4 SAVE MPIFCMB5 Common 9618 4 SAVE MPIFCMB5 Common 10614 4 SAVE MPIFCMB5 Common 11482 4 SAVE MPIFCMB9 Common 635 4 SAVE MPIFCMB9 Common 1501 4 SAVE Page 219 Source Listing EXCH0001111 2025-03-12 18:21 Subprograms/Common Blocks module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIFCMB9 Common 2383 4 SAVE MPIFCMB9 Common 3314 4 SAVE MPIFCMB9 Common 4229 4 SAVE MPIFCMB9 Common 5176 4 SAVE MPIFCMB9 Common 6190 4 SAVE MPIFCMB9 Common 7269 4 SAVE MPIFCMB9 Common 8412 4 SAVE MPIFCMB9 Common 9619 4 SAVE MPIFCMB9 Common 10615 4 SAVE MPIFCMB9 Common 11483 4 SAVE MPIPRIV1 Common 639 28 SAVE MPIPRIV1 Common 1505 28 SAVE MPIPRIV1 Common 2387 28 SAVE MPIPRIV1 Common 3318 28 SAVE MPIPRIV1 Common 4233 28 SAVE MPIPRIV1 Common 5180 28 SAVE MPIPRIV1 Common 6194 28 SAVE MPIPRIV1 Common 7273 28 SAVE MPIPRIV1 Common 8416 28 SAVE MPIPRIV1 Common 9623 28 SAVE MPIPRIV1 Common 10619 28 SAVE MPIPRIV1 Common 11487 28 SAVE MPIPRIV2 Common 641 24 SAVE MPIPRIV2 Common 1507 24 SAVE MPIPRIV2 Common 2389 24 SAVE MPIPRIV2 Common 3320 24 SAVE MPIPRIV2 Common 4235 24 SAVE MPIPRIV2 Common 5182 24 SAVE MPIPRIV2 Common 6196 24 SAVE MPIPRIV2 Common 7275 24 SAVE MPIPRIV2 Common 8418 24 SAVE MPIPRIV2 Common 9625 24 SAVE MPIPRIV2 Common 10621 24 SAVE MPIPRIV2 Common 11489 24 SAVE MPIPRIVC Common 644 2 SAVE MPIPRIVC Common 1510 2 SAVE MPIPRIVC Common 2392 2 SAVE MPIPRIVC Common 3323 2 SAVE MPIPRIVC Common 4238 2 SAVE MPIPRIVC Common 5185 2 SAVE MPIPRIVC Common 6199 2 SAVE MPIPRIVC Common 7278 2 SAVE MPIPRIVC Common 8421 2 SAVE MPIPRIVC Common 9628 2 SAVE MPIPRIVC Common 10624 2 SAVE MPIPRIVC Common 11492 2 SAVE MPPCOM Common 648 1464 SAVE MPPCOM Common 1514 1464 SAVE MPPCOM Common 2396 1464 SAVE MPPCOM Common 3327 1464 SAVE MPPCOM Common 4242 1464 SAVE MPPCOM Common 5189 1464 SAVE MPPCOM Common 6203 1464 SAVE MPPCOM Common 7282 1464 SAVE MPPCOM Common 8425 1464 SAVE Page 220 Source Listing EXCH0001111 2025-03-12 18:21 Subprograms/Common Blocks module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPPCOM Common 9632 1464 SAVE MPPCOM Common 10628 1464 SAVE MPPCOM Common 11496 1464 SAVE TEMPCOM Common 689 6603768 SAVE TEMPCOM Common 1555 6603768 SAVE TEMPCOM Common 2437 6603768 SAVE TEMPCOM Common 3368 6603768 SAVE TEMPCOM Common 4283 6603768 SAVE TEMPCOM Common 5230 6603768 SAVE TEMPCOM Common 6244 6603768 SAVE TEMPCOM Common 7323 6603768 SAVE TEMPCOM Common 8466 6603768 SAVE TEMPCOM Common 9673 6603768 SAVE TEMPCOM Common 10669 6603768 SAVE TEMPCOM Common 11537 6603768 SAVE TOPO Common 697 17478548 SAVE TOPO Common 1563 17478548 SAVE TOPO Common 2445 17478548 SAVE TOPO Common 3376 17478548 SAVE TOPO Common 4291 17478548 SAVE TOPO Common 5238 17478548 SAVE TOPO Common 6252 17478548 SAVE TOPO Common 7331 17478548 SAVE TOPO Common 8474 17478548 SAVE TOPO Common 9681 17478548 SAVE TOPO Common 10677 17478548 SAVE TOPO Common 11545 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:21 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:21 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