Page 1 Source Listing EXCH0 2014-12-17 20:46 /tmpnwprd/ifort9Q65u3.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 2014-12-17 20:46 module_EXCHM.F 58 C$$$ 59 USE EXCH_BUF_REAL 60 C*********************************************************************** 61 INCLUDE "parmeta" 84 INCLUDE "mpif.h" 601 INCLUDE "mpp.h" 602 C----------------------------------------------------------------------- 661 INTEGER ISTAT(MPI_STATUS_SIZE) 662 INTEGER IHANDLE(4) 663 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 664 C 665 C*********************************************************************** 666 C 667 ITYPE=MPI_REAL 668 C 669 C-------------------------------------------------------------------- 670 C-------------------------------------------------------------------- 671 C*** 672 C*** NORTH/SOUTH 673 C*** 674 C-------------------------------------------------------------------- 675 C-------------------------------------------------------------------- 676 C 677 C-------------------------------------------------------------------- 678 C RECEIVE FROM NORTH 679 C-------------------------------------------------------------------- 680 C 681 IF(MY_NEB(1).GE.0)THEN 682 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 683 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 684 ENDIF 685 C 686 C-------------------------------------------------------------------- 687 C RECEIVE FROM SOUTH 688 C-------------------------------------------------------------------- 689 C 690 IF(MY_NEB(3).GE.0)THEN 691 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 692 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 693 ENDIF 694 C 695 C-------------------------------------------------------------------- 696 C SEND TO NORTH 697 C-------------------------------------------------------------------- 698 C 699 IF(MY_NEB(1).GE.0)THEN 700 IBEG = MYIS-IHALO 701 IEND = MYIE+IHALO 702 IC = 0 703 DO J=0,JHALO-1 704 DO I=IBEG,IEND 705 IC = IC + 1 706 BUF2(IC)=ARR1(I,MYJE-J) 707 ENDDO 708 ENDDO 709 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 710 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 3 Source Listing EXCH0 2014-12-17 20:46 module_EXCHM.F 711 ENDIF 712 C 713 C-------------------------------------------------------------------- 714 C SEND TO SOUTH 715 C-------------------------------------------------------------------- 716 C 717 IF(MY_NEB(3).GE.0)THEN 718 IBEG = MYIS-IHALO 719 IEND = MYIE+IHALO 720 IC = 0 721 DO J=0,JHALO-1 722 DO I=IBEG,IEND 723 IC = IC + 1 724 BUF3(IC)=ARR1(I,MYJS+J) 725 ENDDO 726 ENDDO 727 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 728 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 729 ENDIF 730 C 731 C-------------------------------------------------------------------- 732 C STORE RESULTS FROM SOUTH 733 C-------------------------------------------------------------------- 734 C 735 IF(MY_NEB(3).GE.0)THEN 736 IBEG = MYIS-IHALO 737 IEND = MYIE+IHALO 738 IC = 0 739 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 740 DO J=0,JHALO-1 741 DO I=IBEG,IEND 742 IC = IC + 1 743 ARR1(I,MYJS-J-1)=BUF1(IC) 744 ENDDO 745 ENDDO 746 ENDIF 747 C 748 C-------------------------------------------------------------------- 749 C STORE FROM NORTH 750 C-------------------------------------------------------------------- 751 C 752 IF(MY_NEB(1).GE.0)THEN 753 IBEG = MYIS-IHALO 754 IEND = MYIE+IHALO 755 IC = 0 756 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 757 DO J=0,JHALO-1 758 DO I=IBEG,IEND 759 IC = IC + 1 760 ARR1(I,MYJE+J+1)=BUF0(IC) 761 ENDDO 762 ENDDO 763 ENDIF 764 C 765 IF(MY_NEB(1).GE.0)THEN 766 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 767 ENDIF Page 4 Source Listing EXCH0 2014-12-17 20:46 module_EXCHM.F 768 C 769 IF(MY_NEB(3).GE.0)THEN 770 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 771 ENDIF 772 C 773 C-------------------------------------------------------------------- 774 C-------------------------------------------------------------------- 775 C*** 776 C*** EAST/WEST 777 C*** 778 C-------------------------------------------------------------------- 779 C-------------------------------------------------------------------- 780 C 781 C-------------------------------------------------------------------- 782 C RECEIVE FROM WEST 783 C-------------------------------------------------------------------- 784 C 785 IF(MY_NEB(4).GE.0)THEN 786 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 787 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 788 ENDIF 789 C 790 C-------------------------------------------------------------------- 791 C RECEIVE FROM EAST 792 C-------------------------------------------------------------------- 793 C 794 IF(MY_NEB(2).GE.0)THEN 795 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 796 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 797 ENDIF 798 C 799 C-------------------------------------------------------------------- 800 C SEND TO EAST 801 C-------------------------------------------------------------------- 802 C 803 IF(MY_NEB(2).GE.0)THEN 804 IBEG = MYIE-IHALO+1 805 IEND = MYIE 806 IC = 0 807 DO J=MYJS-JHALO,MYJE+JHALO 808 DO I=IBEG,IEND 809 IC = IC + 1 810 BUF2(IC)=ARR1(I,J) 811 ENDDO 812 ENDDO 813 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 814 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 815 ENDIF 816 C 817 C-------------------------------------------------------------------- 818 C SEND TO WEST 819 C-------------------------------------------------------------------- 820 C 821 IF(MY_NEB(4).GE.0)THEN 822 IBEG = MYIS 823 IEND = MYIS+IHALO-1 824 IC = 0 Page 5 Source Listing EXCH0 2014-12-17 20:46 module_EXCHM.F 825 DO J=MYJS-JHALO,MYJE+JHALO 826 DO I=IBEG,IEND 827 IC = IC + 1 828 BUF3(IC)=ARR1(I,J) 829 ENDDO 830 ENDDO 831 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 832 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 833 ENDIF 834 C 835 C-------------------------------------------------------------------- 836 C STORE FROM WEST 837 C-------------------------------------------------------------------- 838 C 839 IF(MY_NEB(4).GE.0)THEN 840 IBEG = MYIS-IHALO 841 IEND = MYIS-1 842 IC = 0 843 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 844 DO J=MYJS-JHALO,MYJE+JHALO 845 DO I=IBEG,IEND 846 IC = IC + 1 847 ARR1(I,J)=BUF0(IC) 848 ENDDO 849 ENDDO 850 ENDIF 851 C 852 C-------------------------------------------------------------------- 853 C STORE FROM EAST 854 C-------------------------------------------------------------------- 855 C 856 IF(MY_NEB(2).GE.0)THEN 857 IBEG = MYIE+1 858 IEND = MYIE+IHALO 859 IC = 0 860 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 861 DO J=MYJS-JHALO,MYJE+JHALO 862 DO I=IBEG,IEND 863 IC = IC + 1 864 ARR1(I,J)=BUF1(IC) 865 ENDDO 866 ENDDO 867 ENDIF 868 C 869 IF(MY_NEB(4).GE.0)THEN 870 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 871 ENDIF 872 C 873 IF(MY_NEB(2).GE.0)THEN 874 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 875 ENDIF 876 C 877 C-------------------------------------------------------------------- 878 END SUBROUTINE Page 6 Source Listing EXCH0 2014-12-17 20:46 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 3 R(4) 4 2 17955 ARG,INOUT 109,127,146,163,213,231,250,267 BUF0 Local 85 R(4) 4 1 2500000 85,163,189,250 BUF1 Local 94 R(4) 4 1 2500000 94,146,198,267 BUF2 Local 109 R(4) 4 1 2500000 109,112,213,216 BUF3 Local 127 R(4) 4 1 2500000 127,130,231,234 EXCH0 Subr 3 EXCH_BUF_REAL Module 58 58 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 107 I(4) 4 scalar 107,109,125,127,144,146,161,163,21 1,213,229,231,248,250,265,267 IBEG Local 103 I(4) 4 scalar 103,107,121,125,139,144,156,161,20 7,211,225,229,243,248,260,265 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 85 I(4) 4 scalar 85,94,189,198 IC Local 105 I(4) 4 scalar 105,108,109,112,123,126,127,130,14 1,145,146,158,162,163,209,212,213, 216,227,230,231,234,245,249,250,26 2,266,267 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 66 IDIM2 Param 19 I(4) 4 scalar 66 IEND Local 104 I(4) 4 scalar 104,107,122,125,140,144,157,161,20 8,211,226,229,244,248,261,265 IERR Local 142 I(4) 4 scalar 142,159,169,173,246,263,273,277 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 3 I(4) 4 scalar ARG,INOUT 103,104,121,122,139,140,156,157,20 7,226,243,261 IHANDLE Local 65 I(4) 4 1 4 86,95,113,131,142,159,169,173,190, 199,217,235,246,263,273,277 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM Page 7 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 86 I(4) 4 scalar 86,95,190,199 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 113 I(4) 4 scalar 113,131,217,235 ISTAT Local 64 I(4) 4 1 5 142,159,169,173,246,263,273,277 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 70 I(4) 4 scalar 70,85,94,112,130,189,198,216,234 J Local 106 I(4) 4 scalar 106,109,124,127,143,146,160,163,21 0,213,228,231,247,250,264,267 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 66 JDIM2 Param 20 I(4) 4 scalar 66 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 3 I(4) 4 scalar ARG,INOUT 106,124,143,160,210,228,247,264 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 3 I(4) 4 scalar ARG,INOUT LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 Page 8 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 86,95,113,131,190,199,217,235 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar Page 9 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar Page 10 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 85 85,94,189,198 Page 11 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ISEND Subr 112 112,130,216,234 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 70 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar Page 12 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,64 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 142 142,159,169,173,246,263,273,277 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar Page 13 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 104,122,140,157,207,208,260,261 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 103,121,139,156,225,226,243,244 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 109,163,210,228,247,264 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 127,146,210,228,247,264 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM Page 14 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 112,130,216,234 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 84,85,93,94,102,112,120,130,138,15 5,168,172,188,189,197,198,206,216, 224,234,242,259,272,276 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM Page 15 Source Listing EXCH0 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 16 Source Listing EXCH0 2014-12-17 20:46 module_EXCHM.F 879 880 SUBROUTINE EXCH1(ARR1,LL1,IHALO,JHALO) 881 USE EXCH_BUF_REAL 882 INCLUDE "parmeta" 905 INCLUDE "mpif.h" 1422 INCLUDE "mpp.h" 1423 C----------------------------------------------------------------------- 1482 INTEGER ISTAT(MPI_STATUS_SIZE) 1483 INTEGER IHANDLE(4) 1484 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 1485 C 1486 C*********************************************************************** 1487 C 1488 ITYPE=MPI_REAL 1489 C 1490 C-------------------------------------------------------------------- 1491 C-------------------------------------------------------------------- 1492 C*** 1493 C*** NORTH/SOUTH 1494 C*** 1495 C-------------------------------------------------------------------- 1496 C-------------------------------------------------------------------- 1497 C 1498 C-------------------------------------------------------------------- 1499 C RECEIVE FROM NORTH 1500 C-------------------------------------------------------------------- 1501 C 1502 IF(MY_NEB(1).GE.0)THEN 1503 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 1504 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 1505 ENDIF 1506 C 1507 C-------------------------------------------------------------------- 1508 C RECEIVE FROM SOUTH 1509 C-------------------------------------------------------------------- 1510 C 1511 IF(MY_NEB(3).GE.0)THEN 1512 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 1513 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 1514 ENDIF 1515 C 1516 C-------------------------------------------------------------------- 1517 C SEND TO NORTH 1518 C-------------------------------------------------------------------- 1519 C 1520 IF(MY_NEB(1).GE.0)THEN 1521 IBEG = MYIS-IHALO 1522 IEND = MYIE+IHALO 1523 IC = 0 1524 DO K=1,LL1 1525 DO J=0,JHALO-1 1526 DO I=IBEG,IEND 1527 IC = IC + 1 1528 BUF2(IC)=ARR1(I,MYJE-J,K) 1529 ENDDO 1530 ENDDO 1531 ENDDO Page 17 Source Listing EXCH1 2014-12-17 20:46 module_EXCHM.F 1532 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 1533 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 1534 ENDIF 1535 C 1536 C-------------------------------------------------------------------- 1537 C SEND TO SOUTH 1538 C-------------------------------------------------------------------- 1539 C 1540 IF(MY_NEB(3).GE.0)THEN 1541 IBEG = MYIS-IHALO 1542 IEND = MYIE+IHALO 1543 IC = 0 1544 DO K=1,LL1 1545 DO J=0,JHALO-1 1546 DO I=IBEG,IEND 1547 IC = IC + 1 1548 BUF3(IC)=ARR1(I,MYJS+J,K) 1549 ENDDO 1550 ENDDO 1551 ENDDO 1552 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 1553 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 1554 ENDIF 1555 C 1556 C-------------------------------------------------------------------- 1557 C STORE RESULTS FROM SOUTH 1558 C-------------------------------------------------------------------- 1559 C 1560 IF(MY_NEB(3).GE.0)THEN 1561 IBEG = MYIS-IHALO 1562 IEND = MYIE+IHALO 1563 IC = 0 1564 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 1565 DO K=1,LL1 1566 DO J=0,JHALO-1 1567 DO I=IBEG,IEND 1568 IC = IC + 1 1569 ARR1(I,MYJS-J-1,K)=BUF1(IC) 1570 ENDDO 1571 ENDDO 1572 ENDDO 1573 ENDIF 1574 C 1575 C-------------------------------------------------------------------- 1576 C STORE FROM NORTH 1577 C-------------------------------------------------------------------- 1578 C 1579 IF(MY_NEB(1).GE.0)THEN 1580 IBEG = MYIS-IHALO 1581 IEND = MYIE+IHALO 1582 IC = 0 1583 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 1584 DO K=1,LL1 1585 DO J=0,JHALO-1 1586 DO I=IBEG,IEND 1587 IC = IC + 1 1588 ARR1(I,MYJE+J+1,K)=BUF0(IC) Page 18 Source Listing EXCH1 2014-12-17 20:46 module_EXCHM.F 1589 ENDDO 1590 ENDDO 1591 ENDDO 1592 ENDIF 1593 C 1594 IF(MY_NEB(1).GE.0)THEN 1595 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 1596 ENDIF 1597 C 1598 IF(MY_NEB(3).GE.0)THEN 1599 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 1600 ENDIF 1601 C 1602 C-------------------------------------------------------------------- 1603 C-------------------------------------------------------------------- 1604 C*** 1605 C*** EAST/WEST 1606 C*** 1607 C-------------------------------------------------------------------- 1608 C-------------------------------------------------------------------- 1609 C 1610 C-------------------------------------------------------------------- 1611 C RECEIVE FROM WEST 1612 C-------------------------------------------------------------------- 1613 C 1614 IF(MY_NEB(4).GE.0)THEN 1615 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 1616 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 1617 ENDIF 1618 C 1619 C-------------------------------------------------------------------- 1620 C RECEIVE FROM EAST 1621 C-------------------------------------------------------------------- 1622 C 1623 IF(MY_NEB(2).GE.0)THEN 1624 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 1625 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 1626 ENDIF 1627 C 1628 C-------------------------------------------------------------------- 1629 C SEND TO EAST 1630 C-------------------------------------------------------------------- 1631 C 1632 IF(MY_NEB(2).GE.0)THEN 1633 IBEG = MYIE-IHALO+1 1634 IEND = MYIE 1635 IC = 0 1636 DO K=1,LL1 1637 DO J=MYJS-JHALO,MYJE+JHALO 1638 DO I=IBEG,IEND 1639 IC = IC + 1 1640 BUF2(IC)=ARR1(I,J,K) 1641 ENDDO 1642 ENDDO 1643 ENDDO 1644 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 1645 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 19 Source Listing EXCH1 2014-12-17 20:46 module_EXCHM.F 1646 ENDIF 1647 C 1648 C-------------------------------------------------------------------- 1649 C SEND TO WEST 1650 C-------------------------------------------------------------------- 1651 C 1652 IF(MY_NEB(4).GE.0)THEN 1653 IBEG = MYIS 1654 IEND = MYIS+IHALO-1 1655 IC = 0 1656 DO K=1,LL1 1657 DO J=MYJS-JHALO,MYJE+JHALO 1658 DO I=IBEG,IEND 1659 IC = IC + 1 1660 BUF3(IC)=ARR1(I,J,K) 1661 ENDDO 1662 ENDDO 1663 ENDDO 1664 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 1665 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 1666 ENDIF 1667 C 1668 C-------------------------------------------------------------------- 1669 C STORE FROM WEST 1670 C-------------------------------------------------------------------- 1671 C 1672 IF(MY_NEB(4).GE.0)THEN 1673 IBEG = MYIS-IHALO 1674 IEND = MYIS-1 1675 IC = 0 1676 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 1677 DO K=1,LL1 1678 DO J=MYJS-JHALO,MYJE+JHALO 1679 DO I=IBEG,IEND 1680 IC = IC + 1 1681 ARR1(I,J,K)=BUF0(IC) 1682 ENDDO 1683 ENDDO 1684 ENDDO 1685 ENDIF 1686 C 1687 C-------------------------------------------------------------------- 1688 C STORE FROM EAST 1689 C-------------------------------------------------------------------- 1690 C 1691 IF(MY_NEB(2).GE.0)THEN 1692 IBEG = MYIE+1 1693 IEND = MYIE+IHALO 1694 IC = 0 1695 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 1696 DO K=1,LL1 1697 DO J=MYJS-JHALO,MYJE+JHALO 1698 DO I=IBEG,IEND 1699 IC = IC + 1 1700 ARR1(I,J,K)=BUF1(IC) 1701 ENDDO 1702 ENDDO Page 20 Source Listing EXCH1 2014-12-17 20:46 module_EXCHM.F 1703 ENDDO 1704 ENDIF 1705 C 1706 IF(MY_NEB(4).GE.0)THEN 1707 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 1708 ENDIF 1709 C 1710 IF(MY_NEB(2).GE.0)THEN 1711 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 1712 ENDIF 1713 C 1714 C-------------------------------------------------------------------- 1715 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch1_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 283 R(4) 4 3 0 ARG,INOUT 335,355,376,395,447,467,488,507 BUF0 Local 310 R(4) 4 1 2500000 310,395,422,488 BUF1 Local 319 R(4) 4 1 2500000 319,376,431,507 BUF2 Local 335 R(4) 4 1 2500000 335,339,447,451 BUF3 Local 355 R(4) 4 1 2500000 355,359,467,471 EXCH1 Subr 283 EXCH_BUF_REAL Module 284 284 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 333 I(4) 4 scalar 333,335,353,355,374,376,393,395,44 5,447,465,467,486,488,505,507 IBEG Local 328 I(4) 4 scalar 328,333,348,353,368,374,387,393,44 0,445,460,465,480,486,499,505 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 310 I(4) 4 scalar 310,319,422,431 IC Local 330 I(4) 4 scalar 330,334,335,339,350,354,355,359,37 0,375,376,389,394,395,442,446,447, 451,462,466,467,471,482,487,488,50 1,506,507 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 291 IDIM2 Param 19 I(4) 4 scalar 291 IEND Local 329 I(4) 4 scalar 329,333,349,353,369,374,388,393,44 1,445,461,465,481,486,500,505 IERR Local 371 I(4) 4 scalar 371,390,402,406,483,502,514,518 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 Page 21 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References IHALO Dummy 283 I(4) 4 scalar ARG,INOUT 328,329,348,349,368,369,387,388,44 0,461,480,500 IHANDLE Local 290 I(4) 4 1 4 311,320,340,360,371,390,402,406,42 3,432,452,472,483,502,514,518 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 311 I(4) 4 scalar 311,320,423,432 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 340 I(4) 4 scalar 340,360,452,472 ISTAT Local 289 I(4) 4 1 5 371,390,402,406,483,502,514,518 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 295 I(4) 4 scalar 295,310,319,339,359,422,431,451,47 1 J Local 332 I(4) 4 scalar 332,335,352,355,373,376,392,395,44 4,447,464,467,485,488,504,507 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 291 JDIM2 Param 20 I(4) 4 scalar 291 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 283 I(4) 4 scalar ARG,INOUT 332,352,373,392,444,464,485,504 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM Page 22 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References K Local 331 I(4) 4 scalar 331,335,351,355,372,376,391,395,44 3,447,463,467,484,488,503,507 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 283 I(4) 4 scalar ARG,INOUT 331,351,372,391,443,463,484,503 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar Page 23 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 311,320,340,360,423,432,452,472 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar Page 24 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar Page 25 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 310 310,319,422,431 MPI_ISEND Subr 339 339,359,451,471 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar Page 26 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 295 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,289 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar Page 27 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 371 371,390,402,406,483,502,514,518 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 329,349,369,388,440,441,499,500 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 328,348,368,387,460,461,480,481 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 335,395,444,464,485,504 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM Page 28 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 355,376,444,464,485,504 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 339,359,451,471 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 309,310,318,319,327,339,347,359,36 7,386,401,405,421,422,430,431,439, 451,459,471,479,498,513,517 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM Page 29 Source Listing EXCH1 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 30 Source Listing EXCH1 2014-12-17 20:46 module_EXCHM.F 1716 1717 SUBROUTINE EXCH01(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 1718 USE EXCH_BUF_REAL 1719 INCLUDE "parmeta" 1742 INCLUDE "mpif.h" 2259 INCLUDE "mpp.h" 2260 C----------------------------------------------------------------------- 2319 INTEGER ISTAT(MPI_STATUS_SIZE) 2320 INTEGER IHANDLE(4) 2321 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 2322 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 2323 C 2324 C*********************************************************************** 2325 C 2326 ITYPE=MPI_REAL 2327 C 2328 C-------------------------------------------------------------------- 2329 C-------------------------------------------------------------------- 2330 C*** 2331 C*** NORTH/SOUTH 2332 C*** 2333 C-------------------------------------------------------------------- 2334 C-------------------------------------------------------------------- 2335 C 2336 C-------------------------------------------------------------------- 2337 C RECEIVE FROM NORTH 2338 C-------------------------------------------------------------------- 2339 C 2340 IF(MY_NEB(1).GE.0)THEN 2341 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 2342 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 2343 ENDIF 2344 C 2345 C-------------------------------------------------------------------- 2346 C RECEIVE FROM SOUTH 2347 C-------------------------------------------------------------------- 2348 C 2349 IF(MY_NEB(3).GE.0)THEN 2350 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 2351 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 2352 ENDIF 2353 C 2354 C-------------------------------------------------------------------- 2355 C SEND TO NORTH 2356 C-------------------------------------------------------------------- 2357 C 2358 IF(MY_NEB(1).GE.0)THEN 2359 IBEG = MYIS-IHALO 2360 IEND = MYIE+IHALO 2361 IC = 0 2362 DO J=0,JHALO-1 2363 DO I=IBEG,IEND 2364 IC = IC + 1 2365 BUF2(IC)=ARR1(I,MYJE-J) 2366 ENDDO 2367 ENDDO 2368 DO K=1,LL2 Page 31 Source Listing EXCH01 2014-12-17 20:46 module_EXCHM.F 2369 DO J=0,JHALO-1 2370 DO I=IBEG,IEND 2371 IC = IC + 1 2372 BUF2(IC)=ARR2(I,MYJE-J,K) 2373 ENDDO 2374 ENDDO 2375 ENDDO 2376 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 2377 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 2378 ENDIF 2379 C 2380 C-------------------------------------------------------------------- 2381 C SEND TO SOUTH 2382 C-------------------------------------------------------------------- 2383 C 2384 IF(MY_NEB(3).GE.0)THEN 2385 IBEG = MYIS-IHALO 2386 IEND = MYIE+IHALO 2387 IC = 0 2388 DO J=0,JHALO-1 2389 DO I=IBEG,IEND 2390 IC = IC + 1 2391 BUF3(IC)=ARR1(I,MYJS+J) 2392 ENDDO 2393 ENDDO 2394 DO K=1,LL2 2395 DO J=0,JHALO-1 2396 DO I=IBEG,IEND 2397 IC = IC + 1 2398 BUF3(IC)=ARR2(I,MYJS+J,K) 2399 ENDDO 2400 ENDDO 2401 ENDDO 2402 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 2403 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 2404 ENDIF 2405 C 2406 C-------------------------------------------------------------------- 2407 C STORE RESULTS FROM SOUTH 2408 C-------------------------------------------------------------------- 2409 C 2410 IF(MY_NEB(3).GE.0)THEN 2411 IBEG = MYIS-IHALO 2412 IEND = MYIE+IHALO 2413 IC = 0 2414 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 2415 DO J=0,JHALO-1 2416 DO I=IBEG,IEND 2417 IC = IC + 1 2418 ARR1(I,MYJS-J-1)=BUF1(IC) 2419 ENDDO 2420 ENDDO 2421 DO K=1,LL2 2422 DO J=0,JHALO-1 2423 DO I=IBEG,IEND 2424 IC = IC + 1 2425 ARR2(I,MYJS-J-1,K)=BUF1(IC) Page 32 Source Listing EXCH01 2014-12-17 20:46 module_EXCHM.F 2426 ENDDO 2427 ENDDO 2428 ENDDO 2429 ENDIF 2430 C 2431 C-------------------------------------------------------------------- 2432 C STORE FROM NORTH 2433 C-------------------------------------------------------------------- 2434 C 2435 IF(MY_NEB(1).GE.0)THEN 2436 IBEG = MYIS-IHALO 2437 IEND = MYIE+IHALO 2438 IC = 0 2439 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 2440 DO J=0,JHALO-1 2441 DO I=IBEG,IEND 2442 IC = IC + 1 2443 ARR1(I,MYJE+J+1)=BUF0(IC) 2444 ENDDO 2445 ENDDO 2446 DO K=1,LL2 2447 DO J=0,JHALO-1 2448 DO I=IBEG,IEND 2449 IC = IC + 1 2450 ARR2(I,MYJE+J+1,K)=BUF0(IC) 2451 ENDDO 2452 ENDDO 2453 ENDDO 2454 ENDIF 2455 C 2456 IF(MY_NEB(1).GE.0)THEN 2457 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 2458 ENDIF 2459 C 2460 IF(MY_NEB(3).GE.0)THEN 2461 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 2462 ENDIF 2463 C 2464 C-------------------------------------------------------------------- 2465 C-------------------------------------------------------------------- 2466 C*** 2467 C*** EAST/WEST 2468 C*** 2469 C-------------------------------------------------------------------- 2470 C-------------------------------------------------------------------- 2471 C 2472 C-------------------------------------------------------------------- 2473 C RECEIVE FROM WEST 2474 C-------------------------------------------------------------------- 2475 C 2476 IF(MY_NEB(4).GE.0)THEN 2477 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 2478 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 2479 ENDIF 2480 C 2481 C-------------------------------------------------------------------- 2482 C RECEIVE FROM EAST Page 33 Source Listing EXCH01 2014-12-17 20:46 module_EXCHM.F 2483 C-------------------------------------------------------------------- 2484 C 2485 IF(MY_NEB(2).GE.0)THEN 2486 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 2487 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 2488 ENDIF 2489 C 2490 C-------------------------------------------------------------------- 2491 C SEND TO EAST 2492 C-------------------------------------------------------------------- 2493 C 2494 IF(MY_NEB(2).GE.0)THEN 2495 IBEG = MYIE-IHALO+1 2496 IEND = MYIE 2497 IC = 0 2498 DO J=MYJS-JHALO,MYJE+JHALO 2499 DO I=IBEG,IEND 2500 IC = IC + 1 2501 BUF2(IC)=ARR1(I,J) 2502 ENDDO 2503 ENDDO 2504 DO K=1,LL2 2505 DO J=MYJS-JHALO,MYJE+JHALO 2506 DO I=IBEG,IEND 2507 IC = IC + 1 2508 BUF2(IC)=ARR2(I,J,K) 2509 ENDDO 2510 ENDDO 2511 ENDDO 2512 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 2513 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 2514 ENDIF 2515 C 2516 C-------------------------------------------------------------------- 2517 C SEND TO WEST 2518 C-------------------------------------------------------------------- 2519 C 2520 IF(MY_NEB(4).GE.0)THEN 2521 IBEG = MYIS 2522 IEND = MYIS+IHALO-1 2523 IC = 0 2524 DO J=MYJS-JHALO,MYJE+JHALO 2525 DO I=IBEG,IEND 2526 IC = IC + 1 2527 BUF3(IC)=ARR1(I,J) 2528 ENDDO 2529 ENDDO 2530 DO K=1,LL2 2531 DO J=MYJS-JHALO,MYJE+JHALO 2532 DO I=IBEG,IEND 2533 IC = IC + 1 2534 BUF3(IC)=ARR2(I,J,K) 2535 ENDDO 2536 ENDDO 2537 ENDDO 2538 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 2539 1, MPI_COMM_COMP,IHANDLE(4),ISEND) Page 34 Source Listing EXCH01 2014-12-17 20:46 module_EXCHM.F 2540 ENDIF 2541 C 2542 C-------------------------------------------------------------------- 2543 C STORE FROM WEST 2544 C-------------------------------------------------------------------- 2545 C 2546 IF(MY_NEB(4).GE.0)THEN 2547 IBEG = MYIS-IHALO 2548 IEND = MYIS-1 2549 IC = 0 2550 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 2551 DO J=MYJS-JHALO,MYJE+JHALO 2552 DO I=IBEG,IEND 2553 IC = IC + 1 2554 ARR1(I,J)=BUF0(IC) 2555 ENDDO 2556 ENDDO 2557 DO K=1,LL2 2558 DO J=MYJS-JHALO,MYJE+JHALO 2559 DO I=IBEG,IEND 2560 IC = IC + 1 2561 ARR2(I,J,K)=BUF0(IC) 2562 ENDDO 2563 ENDDO 2564 ENDDO 2565 ENDIF 2566 C 2567 C-------------------------------------------------------------------- 2568 C STORE FROM EAST 2569 C-------------------------------------------------------------------- 2570 C 2571 IF(MY_NEB(2).GE.0)THEN 2572 IBEG = MYIE+1 2573 IEND = MYIE+IHALO 2574 IC = 0 2575 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 2576 DO J=MYJS-JHALO,MYJE+JHALO 2577 DO I=IBEG,IEND 2578 IC = IC + 1 2579 ARR1(I,J)=BUF1(IC) 2580 ENDDO 2581 ENDDO 2582 DO K=1,LL2 2583 DO J=MYJS-JHALO,MYJE+JHALO 2584 DO I=IBEG,IEND 2585 IC = IC + 1 2586 ARR2(I,J,K)=BUF1(IC) 2587 ENDDO 2588 ENDDO 2589 ENDDO 2590 ENDIF 2591 C 2592 IF(MY_NEB(4).GE.0)THEN 2593 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 2594 ENDIF 2595 C 2596 IF(MY_NEB(2).GE.0)THEN Page 35 Source Listing EXCH01 2014-12-17 20:46 module_EXCHM.F 2597 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 2598 ENDIF 2599 C 2600 C-------------------------------------------------------------------- 2601 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch01_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 524 R(4) 4 2 17955 ARG,INOUT 576,602,629,654,712,738,765,790 ARR2 Dummy 524 R(4) 4 3 0 ARG,INOUT 583,609,636,661,719,745,772,797 BUF0 Local 552 R(4) 4 1 2500000 552,654,661,688,765,772 BUF1 Local 561 R(4) 4 1 2500000 561,629,636,697,790,797 BUF2 Local 576 R(4) 4 1 2500000 576,583,587,712,719,723 BUF3 Local 602 R(4) 4 1 2500000 602,609,613,738,745,749 EXCH01 Subr 524 EXCH_BUF_REAL Module 525 525 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 574 I(4) 4 scalar 574,576,581,583,600,602,607,609,62 7,629,634,636,652,654,659,661,710, 712,717,719,736,738,743,745,763,76 5,770,772,788,790,795,797 IBEG Local 570 I(4) 4 scalar 570,574,581,596,600,607,622,627,63 4,647,652,659,706,710,717,732,736, 743,758,763,770,783,788,795 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 552 I(4) 4 scalar 552,561,688,697 IC Local 572 I(4) 4 scalar 572,575,576,582,583,587,598,601,60 2,608,609,613,624,628,629,635,636, 649,653,654,660,661,708,711,712,71 8,719,723,734,737,738,744,745,749, 760,764,765,771,772,785,789,790,79 6,797 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 532,533 IDIM2 Param 19 I(4) 4 scalar 532,533 IEND Local 571 I(4) 4 scalar 571,574,581,597,600,607,623,627,63 4,648,652,659,707,710,717,733,736, 743,759,763,770,784,788,795 IERR Local 625 I(4) 4 scalar 625,650,668,672,761,786,804,808 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 524 I(4) 4 scalar ARG,INOUT 570,571,596,597,622,623,647,648,70 Page 36 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 6,733,758,784 IHANDLE Local 531 I(4) 4 1 4 553,562,588,614,625,650,668,672,68 9,698,724,750,761,786,804,808 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 553 I(4) 4 scalar 553,562,689,698 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 588 I(4) 4 scalar 588,614,724,750 ISTAT Local 530 I(4) 4 1 5 625,650,668,672,761,786,804,808 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 537 I(4) 4 scalar 537,552,561,587,613,688,697,723,74 9 J Local 573 I(4) 4 scalar 573,576,580,583,599,602,606,609,62 6,629,633,636,651,654,658,661,709, 712,716,719,735,738,742,745,762,76 5,769,772,787,790,794,797 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 532,533 JDIM2 Param 20 I(4) 4 scalar 532,533 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 524 I(4) 4 scalar ARG,INOUT 573,580,599,606,626,633,651,658,70 9,716,735,742,762,769,787,794 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM Page 37 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 579 I(4) 4 scalar 579,583,605,609,632,636,657,661,71 5,719,741,745,768,772,793,797 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 524 I(4) 4 scalar ARG,INOUT LL2 Dummy 524 I(4) 4 scalar ARG,INOUT 579,605,632,657,715,741,768,793 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar Page 38 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 553,562,588,614,689,698,724,750 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar Page 39 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar Page 40 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 552 552,561,688,697 MPI_ISEND Subr 587 587,613,723,749 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar Page 41 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 537 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,530 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar Page 42 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 625 625,650,668,672,761,786,804,808 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 571,597,623,648,706,707,783,784 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 570,596,622,647,732,733,758,759 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 576,583,654,661,709,716,735,742,76 2,769,787,794 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM Page 43 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 602,609,629,636,709,716,735,742,76 2,769,787,794 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 587,613,723,749 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 551,552,560,561,569,587,595,613,62 1,646,667,671,687,688,696,697,705, Page 44 Source Listing EXCH01 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 723,731,749,757,782,803,807 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 45 Source Listing EXCH01 2014-12-17 20:46 module_EXCHM.F 2602 2603 SUBROUTINE EXCH00(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 2604 USE EXCH_BUF_REAL 2605 INCLUDE "parmeta" 2628 INCLUDE "mpif.h" 3145 INCLUDE "mpp.h" 3146 C----------------------------------------------------------------------- 3205 INTEGER ISTAT(MPI_STATUS_SIZE) 3206 INTEGER IHANDLE(4) 3207 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 3208 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2) 3209 C 3210 C*********************************************************************** 3211 C 3212 ITYPE=MPI_REAL 3213 C 3214 C-------------------------------------------------------------------- 3215 C-------------------------------------------------------------------- 3216 C*** 3217 C*** NORTH/SOUTH 3218 C*** 3219 C-------------------------------------------------------------------- 3220 C-------------------------------------------------------------------- 3221 C 3222 C-------------------------------------------------------------------- 3223 C RECEIVE FROM NORTH 3224 C-------------------------------------------------------------------- 3225 C 3226 IF(MY_NEB(1).GE.0)THEN 3227 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 3228 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 3229 ENDIF 3230 C 3231 C-------------------------------------------------------------------- 3232 C RECEIVE FROM SOUTH 3233 C-------------------------------------------------------------------- 3234 C 3235 IF(MY_NEB(3).GE.0)THEN 3236 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 3237 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 3238 ENDIF 3239 C 3240 C-------------------------------------------------------------------- 3241 C SEND TO NORTH 3242 C-------------------------------------------------------------------- 3243 C 3244 IF(MY_NEB(1).GE.0)THEN 3245 IBEG=MYIS-IHALO 3246 IEND=MYIE+IHALO 3247 IC = 0 3248 DO J=0,JHALO-1 3249 DO I=IBEG,IEND 3250 IC = IC + 1 3251 BUF2(IC)=ARR1(I,MYJE-J) 3252 ENDDO 3253 ENDDO 3254 DO J=0,JHALO-1 Page 46 Source Listing EXCH00 2014-12-17 20:46 module_EXCHM.F 3255 DO I=IBEG,IEND 3256 IC = IC + 1 3257 BUF2(IC)=ARR2(I,MYJE-J) 3258 ENDDO 3259 ENDDO 3260 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 3261 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 3262 ENDIF 3263 C 3264 C-------------------------------------------------------------------- 3265 C SEND TO SOUTH 3266 C-------------------------------------------------------------------- 3267 C 3268 IF(MY_NEB(3).GE.0)THEN 3269 IBEG=MYIS-IHALO 3270 IEND=MYIE+IHALO 3271 IC = 0 3272 DO J=0,JHALO-1 3273 DO I=IBEG,IEND 3274 IC = IC + 1 3275 BUF3(IC)=ARR1(I,MYJS+J) 3276 ENDDO 3277 ENDDO 3278 DO J=0,JHALO-1 3279 DO I=IBEG,IEND 3280 IC = IC + 1 3281 BUF3(IC)=ARR2(I,MYJS+J) 3282 ENDDO 3283 ENDDO 3284 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 3285 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 3286 ENDIF 3287 C 3288 C-------------------------------------------------------------------- 3289 C STORE RESULTS FROM SOUTH 3290 C-------------------------------------------------------------------- 3291 C 3292 IF(MY_NEB(3).GE.0)THEN 3293 IBEG=MYIS-IHALO 3294 IEND=MYIE+IHALO 3295 IC = 0 3296 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 3297 DO J=0,JHALO-1 3298 DO I=IBEG,IEND 3299 IC = IC + 1 3300 ARR1(I,MYJS-J-1)=BUF1(IC) 3301 ENDDO 3302 ENDDO 3303 DO J=0,JHALO-1 3304 DO I=IBEG,IEND 3305 IC = IC + 1 3306 ARR2(I,MYJS-J-1)=BUF1(IC) 3307 ENDDO 3308 ENDDO 3309 ENDIF 3310 C 3311 C-------------------------------------------------------------------- Page 47 Source Listing EXCH00 2014-12-17 20:46 module_EXCHM.F 3312 C STORE FROM NORTH 3313 C-------------------------------------------------------------------- 3314 C 3315 IF(MY_NEB(1).GE.0)THEN 3316 IBEG=MYIS-IHALO 3317 IEND=MYIE+IHALO 3318 IC = 0 3319 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 3320 DO J=0,JHALO-1 3321 DO I=IBEG,IEND 3322 IC = IC + 1 3323 ARR1(I,MYJE+J+1)=BUF0(IC) 3324 ENDDO 3325 ENDDO 3326 DO J=0,JHALO-1 3327 DO I=IBEG,IEND 3328 IC = IC + 1 3329 ARR2(I,MYJE+J+1)=BUF0(IC) 3330 ENDDO 3331 ENDDO 3332 ENDIF 3333 C 3334 IF(MY_NEB(1).GE.0)THEN 3335 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 3336 ENDIF 3337 C 3338 IF(MY_NEB(3).GE.0)THEN 3339 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 3340 ENDIF 3341 C 3342 C-------------------------------------------------------------------- 3343 C-------------------------------------------------------------------- 3344 C*** 3345 C*** EAST/WEST 3346 C*** 3347 C-------------------------------------------------------------------- 3348 C-------------------------------------------------------------------- 3349 C 3350 C-------------------------------------------------------------------- 3351 C RECEIVE FROM WEST 3352 C-------------------------------------------------------------------- 3353 C 3354 IF(MY_NEB(4).GE.0)THEN 3355 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 3356 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 3357 ENDIF 3358 C 3359 C-------------------------------------------------------------------- 3360 C RECEIVE FROM EAST 3361 C-------------------------------------------------------------------- 3362 C 3363 IF(MY_NEB(2).GE.0)THEN 3364 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 3365 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 3366 ENDIF 3367 C 3368 C-------------------------------------------------------------------- Page 48 Source Listing EXCH00 2014-12-17 20:46 module_EXCHM.F 3369 C SEND TO EAST 3370 C-------------------------------------------------------------------- 3371 C 3372 IF(MY_NEB(2).GE.0)THEN 3373 IBEG=MYIE-IHALO+1 3374 IEND=MYIE 3375 IC = 0 3376 DO J=MYJS-JHALO,MYJE+JHALO 3377 DO I=IBEG,IEND 3378 IC = IC + 1 3379 BUF2(IC)=ARR1(I,J) 3380 ENDDO 3381 ENDDO 3382 DO J=MYJS-JHALO,MYJE+JHALO 3383 DO I=IBEG,IEND 3384 IC = IC + 1 3385 BUF2(IC)=ARR2(I,J) 3386 ENDDO 3387 ENDDO 3388 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 3389 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 3390 ENDIF 3391 C 3392 C-------------------------------------------------------------------- 3393 C SEND TO WEST 3394 C-------------------------------------------------------------------- 3395 C 3396 IF(MY_NEB(4).GE.0)THEN 3397 IBEG=MYIS 3398 IEND=MYIS+IHALO-1 3399 IC = 0 3400 DO J=MYJS-JHALO,MYJE+JHALO 3401 DO I=IBEG,IEND 3402 IC = IC + 1 3403 BUF3(IC)=ARR1(I,J) 3404 ENDDO 3405 ENDDO 3406 DO J=MYJS-JHALO,MYJE+JHALO 3407 DO I=IBEG,IEND 3408 IC = IC + 1 3409 BUF3(IC)=ARR2(I,J) 3410 ENDDO 3411 ENDDO 3412 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 3413 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 3414 ENDIF 3415 C 3416 C-------------------------------------------------------------------- 3417 C STORE FROM WEST 3418 C-------------------------------------------------------------------- 3419 C 3420 IF(MY_NEB(4).GE.0)THEN 3421 IBEG=MYIS-IHALO 3422 IEND=MYIS-1 3423 IC = 0 3424 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 3425 DO J=MYJS-JHALO,MYJE+JHALO Page 49 Source Listing EXCH00 2014-12-17 20:46 module_EXCHM.F 3426 DO I=IBEG,IEND 3427 IC = IC + 1 3428 ARR1(I,J)=BUF0(IC) 3429 ENDDO 3430 ENDDO 3431 DO J=MYJS-JHALO,MYJE+JHALO 3432 DO I=IBEG,IEND 3433 IC = IC + 1 3434 ARR2(I,J)=BUF0(IC) 3435 ENDDO 3436 ENDDO 3437 ENDIF 3438 C 3439 C-------------------------------------------------------------------- 3440 C STORE FROM EAST 3441 C-------------------------------------------------------------------- 3442 C 3443 IF(MY_NEB(2).GE.0)THEN 3444 IBEG=MYIE+1 3445 IEND=MYIE+IHALO 3446 IC = 0 3447 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 3448 DO J=MYJS-JHALO,MYJE+JHALO 3449 DO I=IBEG,IEND 3450 IC = IC + 1 3451 ARR1(I,J)=BUF1(IC) 3452 ENDDO 3453 ENDDO 3454 DO J=MYJS-JHALO,MYJE+JHALO 3455 DO I=IBEG,IEND 3456 IC = IC + 1 3457 ARR2(I,J)=BUF1(IC) 3458 ENDDO 3459 ENDDO 3460 ENDIF 3461 C 3462 IF(MY_NEB(4).GE.0)THEN 3463 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 3464 ENDIF 3465 C 3466 IF(MY_NEB(2).GE.0)THEN 3467 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 3468 ENDIF 3469 C 3470 C-------------------------------------------------------------------- 3471 END SUBROUTINE Page 50 Source Listing EXCH00 2014-12-17 20:46 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 814 R(4) 4 2 17955 ARG,INOUT 866,890,915,938,994,1018,1043,1066 ARR2 Dummy 814 R(4) 4 2 17955 ARG,INOUT 872,896,921,944,1000,1024,1049,107 2 BUF0 Local 842 R(4) 4 1 2500000 842,938,944,970,1043,1049 BUF1 Local 851 R(4) 4 1 2500000 851,915,921,979,1066,1072 BUF2 Local 866 R(4) 4 1 2500000 866,872,875,994,1000,1003 BUF3 Local 890 R(4) 4 1 2500000 890,896,899,1018,1024,1027 EXCH00 Subr 814 EXCH_BUF_REAL Module 815 815 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 864 I(4) 4 scalar 864,866,870,872,888,890,894,896,91 3,915,919,921,936,938,942,944,992, 994,998,1000,1016,1018,1022,1024,1 041,1043,1047,1049,1064,1066,1070, 1072 IBEG Local 860 I(4) 4 scalar 860,864,870,884,888,894,908,913,91 9,931,936,942,988,992,998,1012,101 6,1022,1036,1041,1047,1059,1064,10 70 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 842 I(4) 4 scalar 842,851,970,979 IC Local 862 I(4) 4 scalar 862,865,866,871,872,875,886,889,89 0,895,896,899,910,914,915,920,921, 933,937,938,943,944,990,993,994,99 9,1000,1003,1014,1017,1018,1023,10 24,1027,1038,1042,1043,1048,1049,1 061,1065,1066,1071,1072 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 822,823 IDIM2 Param 19 I(4) 4 scalar 822,823 IEND Local 861 I(4) 4 scalar 861,864,870,885,888,894,909,913,91 9,932,936,942,989,992,998,1013,101 6,1022,1037,1041,1047,1060,1064,10 70 IERR Local 911 I(4) 4 scalar 911,934,950,954,1039,1062,1078,108 2 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 814 I(4) 4 scalar ARG,INOUT 860,861,884,885,908,909,931,932,98 Page 51 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 8,1013,1036,1060 IHANDLE Local 821 I(4) 4 1 4 843,852,876,900,911,934,950,954,97 1,980,1004,1028,1039,1062,1078,108 2 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 843 I(4) 4 scalar 843,852,971,980 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 876 I(4) 4 scalar 876,900,1004,1028 ISTAT Local 820 I(4) 4 1 5 911,934,950,954,1039,1062,1078,108 2 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 827 I(4) 4 scalar 827,842,851,875,899,970,979,1003,1 027 J Local 863 I(4) 4 scalar 863,866,869,872,887,890,893,896,91 2,915,918,921,935,938,941,944,991, 994,997,1000,1015,1018,1021,1024,1 040,1043,1046,1049,1063,1066,1069, 1072 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 822,823 JDIM2 Param 20 I(4) 4 scalar 822,823 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 814 I(4) 4 scalar ARG,INOUT 863,869,887,893,912,918,935,941,99 1,997,1015,1021,1040,1046,1063,106 9 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM Page 52 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 814 I(4) 4 scalar ARG,INOUT LL2 Dummy 814 I(4) 4 scalar ARG,INOUT LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar Page 53 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 843,852,876,900,971,980,1004,1028 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar Page 54 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar Page 55 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 842 842,851,970,979 MPI_ISEND Subr 875 875,899,1003,1027 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar Page 56 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 827 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,820 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar Page 57 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 911 911,934,950,954,1039,1062,1078,108 2 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 861,885,909,932,988,989,1059,1060 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 860,884,908,931,1012,1013,1036,103 7 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 866,872,938,944,991,997,1015,1021, 1040,1046,1063,1069 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM Page 58 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 890,896,915,921,991,997,1015,1021, 1040,1046,1063,1069 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 875,899,1003,1027 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM Page 59 Source Listing EXCH00 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 841,842,850,851,859,875,883,899,90 7,930,949,953,969,970,978,979,987, 1003,1011,1027,1035,1058,1077,1081 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 60 Source Listing EXCH00 2014-12-17 20:46 module_EXCHM.F 3472 3473 SUBROUTINE EXCH11(ARR1,LL1,ARR2,LL2,IHALO,JHALO) 3474 USE EXCH_BUF_REAL 3475 INCLUDE "parmeta" 3498 INCLUDE "mpif.h" 4015 INCLUDE "mpp.h" 4016 C----------------------------------------------------------------------- 4075 INTEGER ISTAT(MPI_STATUS_SIZE) 4076 INTEGER IHANDLE(4) 4077 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 4078 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 4079 C 4080 C*********************************************************************** 4081 C 4082 ITYPE=MPI_REAL 4083 C 4084 C-------------------------------------------------------------------- 4085 C-------------------------------------------------------------------- 4086 C*** 4087 C*** NORTH/SOUTH 4088 C*** 4089 C-------------------------------------------------------------------- 4090 C-------------------------------------------------------------------- 4091 C 4092 C-------------------------------------------------------------------- 4093 C RECEIVE FROM NORTH 4094 C-------------------------------------------------------------------- 4095 C 4096 IF(MY_NEB(1).GE.0)THEN 4097 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 4098 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 4099 ENDIF 4100 C 4101 C-------------------------------------------------------------------- 4102 C RECEIVE FROM SOUTH 4103 C-------------------------------------------------------------------- 4104 C 4105 IF(MY_NEB(3).GE.0)THEN 4106 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 4107 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 4108 ENDIF 4109 C 4110 C-------------------------------------------------------------------- 4111 C SEND TO NORTH 4112 C-------------------------------------------------------------------- 4113 C 4114 IF(MY_NEB(1).GE.0)THEN 4115 IBEG = MYIS-IHALO 4116 IEND = MYIE+IHALO 4117 IC = 0 4118 DO K=1,LL1 4119 DO J=0,JHALO-1 4120 DO I=IBEG,IEND 4121 IC = IC + 1 4122 BUF2(IC)=ARR1(I,MYJE-J,K) 4123 ENDDO 4124 ENDDO Page 61 Source Listing EXCH11 2014-12-17 20:46 module_EXCHM.F 4125 ENDDO 4126 DO K=1,LL2 4127 DO J=0,JHALO-1 4128 DO I=IBEG,IEND 4129 IC = IC + 1 4130 BUF2(IC)=ARR2(I,MYJE-J,K) 4131 ENDDO 4132 ENDDO 4133 ENDDO 4134 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 4135 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 4136 ENDIF 4137 C 4138 C-------------------------------------------------------------------- 4139 C SEND TO SOUTH 4140 C-------------------------------------------------------------------- 4141 C 4142 IF(MY_NEB(3).GE.0)THEN 4143 IBEG = MYIS-IHALO 4144 IEND = MYIE+IHALO 4145 IC = 0 4146 DO K=1,LL1 4147 DO J=0,JHALO-1 4148 DO I=IBEG,IEND 4149 IC = IC + 1 4150 BUF3(IC)=ARR1(I,MYJS+J,K) 4151 ENDDO 4152 ENDDO 4153 ENDDO 4154 DO K=1,LL2 4155 DO J=0,JHALO-1 4156 DO I=IBEG,IEND 4157 IC = IC + 1 4158 BUF3(IC)=ARR2(I,MYJS+J,K) 4159 ENDDO 4160 ENDDO 4161 ENDDO 4162 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 4163 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 4164 ENDIF 4165 C 4166 C-------------------------------------------------------------------- 4167 C STORE RESULTS FROM SOUTH 4168 C-------------------------------------------------------------------- 4169 C 4170 IF(MY_NEB(3).GE.0)THEN 4171 IBEG = MYIS-IHALO 4172 IEND = MYIE+IHALO 4173 IC = 0 4174 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 4175 DO K=1,LL1 4176 DO J=0,JHALO-1 4177 DO I=IBEG,IEND 4178 IC = IC + 1 4179 ARR1(I,MYJS-J-1,K)=BUF1(IC) 4180 ENDDO 4181 ENDDO Page 62 Source Listing EXCH11 2014-12-17 20:46 module_EXCHM.F 4182 ENDDO 4183 DO K=1,LL2 4184 DO J=0,JHALO-1 4185 DO I=IBEG,IEND 4186 IC = IC + 1 4187 ARR2(I,MYJS-J-1,K)=BUF1(IC) 4188 ENDDO 4189 ENDDO 4190 ENDDO 4191 ENDIF 4192 C 4193 C-------------------------------------------------------------------- 4194 C STORE FROM NORTH 4195 C-------------------------------------------------------------------- 4196 C 4197 IF(MY_NEB(1).GE.0)THEN 4198 IBEG = MYIS-IHALO 4199 IEND = MYIE+IHALO 4200 IC = 0 4201 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 4202 DO K=1,LL1 4203 DO J=0,JHALO-1 4204 DO I=IBEG,IEND 4205 IC = IC + 1 4206 ARR1(I,MYJE+J+1,K)=BUF0(IC) 4207 ENDDO 4208 ENDDO 4209 ENDDO 4210 DO K=1,LL2 4211 DO J=0,JHALO-1 4212 DO I=IBEG,IEND 4213 IC = IC + 1 4214 ARR2(I,MYJE+J+1,K)=BUF0(IC) 4215 ENDDO 4216 ENDDO 4217 ENDDO 4218 ENDIF 4219 C 4220 IF(MY_NEB(1).GE.0)THEN 4221 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 4222 ENDIF 4223 C 4224 IF(MY_NEB(3).GE.0)THEN 4225 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 4226 ENDIF 4227 C 4228 C-------------------------------------------------------------------- 4229 C-------------------------------------------------------------------- 4230 C*** 4231 C*** EAST/WEST 4232 C*** 4233 C-------------------------------------------------------------------- 4234 C-------------------------------------------------------------------- 4235 C 4236 C-------------------------------------------------------------------- 4237 C RECEIVE FROM WEST 4238 C-------------------------------------------------------------------- Page 63 Source Listing EXCH11 2014-12-17 20:46 module_EXCHM.F 4239 C 4240 IF(MY_NEB(4).GE.0)THEN 4241 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 4242 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 4243 ENDIF 4244 C 4245 C-------------------------------------------------------------------- 4246 C RECEIVE FROM EAST 4247 C-------------------------------------------------------------------- 4248 C 4249 IF(MY_NEB(2).GE.0)THEN 4250 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 4251 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 4252 ENDIF 4253 C 4254 C-------------------------------------------------------------------- 4255 C SEND TO EAST 4256 C-------------------------------------------------------------------- 4257 C 4258 IF(MY_NEB(2).GE.0)THEN 4259 IBEG = MYIE-IHALO+1 4260 IEND = MYIE 4261 IC = 0 4262 DO K=1,LL1 4263 DO J=MYJS-JHALO,MYJE+JHALO 4264 DO I=IBEG,IEND 4265 IC = IC + 1 4266 BUF2(IC)=ARR1(I,J,K) 4267 ENDDO 4268 ENDDO 4269 ENDDO 4270 DO K=1,LL2 4271 DO J=MYJS-JHALO,MYJE+JHALO 4272 DO I=IBEG,IEND 4273 IC = IC + 1 4274 BUF2(IC)=ARR2(I,J,K) 4275 ENDDO 4276 ENDDO 4277 ENDDO 4278 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 4279 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 4280 ENDIF 4281 C 4282 C-------------------------------------------------------------------- 4283 C SEND TO WEST 4284 C-------------------------------------------------------------------- 4285 C 4286 IF(MY_NEB(4).GE.0)THEN 4287 IBEG = MYIS 4288 IEND = MYIS+IHALO-1 4289 IC = 0 4290 DO K=1,LL1 4291 DO J=MYJS-JHALO,MYJE+JHALO 4292 DO I=IBEG,IEND 4293 IC = IC + 1 4294 BUF3(IC)=ARR1(I,J,K) 4295 ENDDO Page 64 Source Listing EXCH11 2014-12-17 20:46 module_EXCHM.F 4296 ENDDO 4297 ENDDO 4298 DO K=1,LL2 4299 DO J=MYJS-JHALO,MYJE+JHALO 4300 DO I=IBEG,IEND 4301 IC = IC + 1 4302 BUF3(IC)=ARR2(I,J,K) 4303 ENDDO 4304 ENDDO 4305 ENDDO 4306 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 4307 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 4308 ENDIF 4309 C 4310 C-------------------------------------------------------------------- 4311 C STORE FROM WEST 4312 C-------------------------------------------------------------------- 4313 C 4314 IF(MY_NEB(4).GE.0)THEN 4315 IBEG = MYIS-IHALO 4316 IEND = MYIS-1 4317 IC = 0 4318 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 4319 DO K=1,LL1 4320 DO J=MYJS-JHALO,MYJE+JHALO 4321 DO I=IBEG,IEND 4322 IC = IC + 1 4323 ARR1(I,J,K)=BUF0(IC) 4324 ENDDO 4325 ENDDO 4326 ENDDO 4327 DO K=1,LL2 4328 DO J=MYJS-JHALO,MYJE+JHALO 4329 DO I=IBEG,IEND 4330 IC = IC + 1 4331 ARR2(I,J,K)=BUF0(IC) 4332 ENDDO 4333 ENDDO 4334 ENDDO 4335 ENDIF 4336 C 4337 C-------------------------------------------------------------------- 4338 C STORE FROM EAST 4339 C-------------------------------------------------------------------- 4340 C 4341 IF(MY_NEB(2).GE.0)THEN 4342 IBEG = MYIE+1 4343 IEND = MYIE+IHALO 4344 IC = 0 4345 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 4346 DO K=1,LL1 4347 DO J=MYJS-JHALO,MYJE+JHALO 4348 DO I=IBEG,IEND 4349 IC = IC + 1 4350 ARR1(I,J,K)=BUF1(IC) 4351 ENDDO 4352 ENDDO Page 65 Source Listing EXCH11 2014-12-17 20:46 module_EXCHM.F 4353 ENDDO 4354 DO K=1,LL2 4355 DO J=MYJS-JHALO,MYJE+JHALO 4356 DO I=IBEG,IEND 4357 IC = IC + 1 4358 ARR2(I,J,K)=BUF1(IC) 4359 ENDDO 4360 ENDDO 4361 ENDDO 4362 ENDIF 4363 C 4364 IF(MY_NEB(4).GE.0)THEN 4365 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 4366 ENDIF 4367 C 4368 IF(MY_NEB(2).GE.0)THEN 4369 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 4370 ENDIF 4371 C 4372 C-------------------------------------------------------------------- 4373 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch11_ Page 66 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 1088 R(4) 4 3 0 ARG,INOUT 1141,1169,1198,1225,1285,1313,1342 ,1369 ARR2 Dummy 1088 R(4) 4 3 0 ARG,INOUT 1149,1177,1206,1233,1293,1321,1350 ,1377 BUF0 Local 1116 R(4) 4 1 2500000 1116,1225,1233,1260,1342,1350 BUF1 Local 1125 R(4) 4 1 2500000 1125,1198,1206,1269,1369,1377 BUF2 Local 1141 R(4) 4 1 2500000 1141,1149,1153,1285,1293,1297 BUF3 Local 1169 R(4) 4 1 2500000 1169,1177,1181,1313,1321,1325 EXCH11 Subr 1088 EXCH_BUF_REAL Module 1089 1089 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 1139 I(4) 4 scalar 1139,1141,1147,1149,1167,1169,1175 ,1177,1196,1198,1204,1206,1223,122 5,1231,1233,1283,1285,1291,1293,13 11,1313,1319,1321,1340,1342,1348,1 350,1367,1369,1375,1377 IBEG Local 1134 I(4) 4 scalar 1134,1139,1147,1162,1167,1175,1190 ,1196,1204,1217,1223,1231,1278,128 3,1291,1306,1311,1319,1334,1340,13 48,1361,1367,1375 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 1116 I(4) 4 scalar 1116,1125,1260,1269 IC Local 1136 I(4) 4 scalar 1136,1140,1141,1148,1149,1153,1164 ,1168,1169,1176,1177,1181,1192,119 7,1198,1205,1206,1219,1224,1225,12 32,1233,1280,1284,1285,1292,1293,1 297,1308,1312,1313,1320,1321,1325, 1336,1341,1342,1349,1350,1363,1368 ,1369,1376,1377 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 1096,1097 IDIM2 Param 19 I(4) 4 scalar 1096,1097 IEND Local 1135 I(4) 4 scalar 1135,1139,1147,1163,1167,1175,1191 ,1196,1204,1218,1223,1231,1279,128 3,1291,1307,1311,1319,1335,1340,13 48,1362,1367,1375 IERR Local 1193 I(4) 4 scalar 1193,1220,1240,1244,1337,1364,1384 ,1388 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 1088 I(4) 4 scalar ARG,INOUT 1134,1135,1162,1163,1190,1191,1217 ,1218,1278,1307,1334,1362 IHANDLE Local 1095 I(4) 4 1 4 1117,1126,1154,1182,1193,1220,1240 ,1244,1261,1270,1298,1326,1337,136 4,1384,1388 ILCOL Scalar 22 I(4) 4 scalar COM Page 67 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 1117 I(4) 4 scalar 1117,1126,1261,1270 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 1154 I(4) 4 scalar 1154,1182,1298,1326 ISTAT Local 1094 I(4) 4 1 5 1193,1220,1240,1244,1337,1364,1384 ,1388 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 1101 I(4) 4 scalar 1101,1116,1125,1153,1181,1260,1269 ,1297,1325 J Local 1138 I(4) 4 scalar 1138,1141,1146,1149,1166,1169,1174 ,1177,1195,1198,1203,1206,1222,122 5,1230,1233,1282,1285,1290,1293,13 10,1313,1318,1321,1339,1342,1347,1 350,1366,1369,1374,1377 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 1096,1097 JDIM2 Param 20 I(4) 4 scalar 1096,1097 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 1088 I(4) 4 scalar ARG,INOUT 1138,1146,1166,1174,1195,1203,1222 ,1230,1282,1290,1310,1318,1339,134 7,1366,1374 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM Page 68 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 1137 I(4) 4 scalar 1137,1141,1145,1149,1165,1169,1173 ,1177,1194,1198,1202,1206,1221,122 5,1229,1233,1281,1285,1289,1293,13 09,1313,1317,1321,1338,1342,1346,1 350,1365,1369,1373,1377 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 1088 I(4) 4 scalar ARG,INOUT 1137,1165,1194,1221,1281,1309,1338 ,1365 LL2 Dummy 1088 I(4) 4 scalar ARG,INOUT 1145,1173,1202,1229,1289,1317,1346 ,1373 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar Page 69 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 1117,1126,1154,1182,1261,1270,1298 ,1326 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar Page 70 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar Page 71 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 1116 1116,1125,1260,1269 MPI_ISEND Subr 1153 1153,1181,1297,1325 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar Page 72 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 1101 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,1094 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar Page 73 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 1193 1193,1220,1240,1244,1337,1364,1384 ,1388 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 1135,1163,1191,1218,1278,1279,1361 ,1362 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 1134,1162,1190,1217,1306,1307,1334 ,1335 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 1141,1149,1225,1233,1282,1290,1310 Page 74 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,1318,1339,1347,1366,1374 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 1169,1177,1198,1206,1282,1290,1310 ,1318,1339,1347,1366,1374 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 1153,1181,1297,1325 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM Page 75 Source Listing EXCH11 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 1115,1116,1124,1125,1133,1153,1161 ,1181,1189,1216,1239,1243,1259,126 0,1268,1269,1277,1297,1305,1325,13 33,1360,1383,1387 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 76 Source Listing EXCH11 2014-12-17 20:46 module_EXCHM.F 4374 4375 SUBROUTINE EXCH111(ARR1,LL1,ARR2,LL2,ARR3,LL3,IHALO,JHALO) 4376 USE EXCH_BUF_REAL 4377 INCLUDE "parmeta" 4400 INCLUDE "mpif.h" 4917 INCLUDE "mpp.h" 4918 C----------------------------------------------------------------------- 4977 INTEGER ISTAT(MPI_STATUS_SIZE) 4978 INTEGER IHANDLE(4) 4979 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 4980 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 4981 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 4982 C 4983 C*********************************************************************** 4984 C 4985 ITYPE=MPI_REAL 4986 C 4987 C-------------------------------------------------------------------- 4988 C-------------------------------------------------------------------- 4989 C*** 4990 C*** NORTH/SOUTH 4991 C*** 4992 C-------------------------------------------------------------------- 4993 C-------------------------------------------------------------------- 4994 C 4995 C-------------------------------------------------------------------- 4996 C RECEIVE FROM NORTH 4997 C-------------------------------------------------------------------- 4998 C 4999 IF(MY_NEB(1).GE.0)THEN 5000 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 5001 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 5002 ENDIF 5003 C 5004 C-------------------------------------------------------------------- 5005 C RECEIVE FROM SOUTH 5006 C-------------------------------------------------------------------- 5007 C 5008 IF(MY_NEB(3).GE.0)THEN 5009 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 5010 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 5011 ENDIF 5012 C 5013 C-------------------------------------------------------------------- 5014 C SEND TO NORTH 5015 C-------------------------------------------------------------------- 5016 C 5017 IF(MY_NEB(1).GE.0)THEN 5018 IBEG=MYIS-IHALO 5019 IEND=MYIE+IHALO 5020 IC = 0 5021 DO K=1,LL1 5022 DO J=0,JHALO-1 5023 DO I=IBEG,IEND 5024 IC = IC + 1 5025 BUF2(IC)=ARR1(I,MYJE-J,K) 5026 ENDDO Page 77 Source Listing EXCH111 2014-12-17 20:46 module_EXCHM.F 5027 ENDDO 5028 ENDDO 5029 DO K=1,LL2 5030 DO J=0,JHALO-1 5031 DO I=IBEG,IEND 5032 IC = IC + 1 5033 BUF2(IC)=ARR2(I,MYJE-J,K) 5034 ENDDO 5035 ENDDO 5036 ENDDO 5037 DO K=1,LL3 5038 DO J=0,JHALO-1 5039 DO I=IBEG,IEND 5040 IC = IC + 1 5041 BUF2(IC)=ARR3(I,MYJE-J,K) 5042 ENDDO 5043 ENDDO 5044 ENDDO 5045 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 5046 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 5047 ENDIF 5048 C 5049 C-------------------------------------------------------------------- 5050 C SEND TO SOUTH 5051 C-------------------------------------------------------------------- 5052 C 5053 IF(MY_NEB(3).GE.0)THEN 5054 IBEG=MYIS-IHALO 5055 IEND=MYIE+IHALO 5056 IC = 0 5057 DO K=1,LL1 5058 DO J=0,JHALO-1 5059 DO I=IBEG,IEND 5060 IC = IC + 1 5061 BUF3(IC)=ARR1(I,MYJS+J,K) 5062 ENDDO 5063 ENDDO 5064 ENDDO 5065 DO K=1,LL2 5066 DO J=0,JHALO-1 5067 DO I=IBEG,IEND 5068 IC = IC + 1 5069 BUF3(IC)=ARR2(I,MYJS+J,K) 5070 ENDDO 5071 ENDDO 5072 ENDDO 5073 DO K=1,LL3 5074 DO J=0,JHALO-1 5075 DO I=IBEG,IEND 5076 IC = IC + 1 5077 BUF3(IC)=ARR3(I,MYJS+J,K) 5078 ENDDO 5079 ENDDO 5080 ENDDO 5081 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 5082 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 5083 ENDIF Page 78 Source Listing EXCH111 2014-12-17 20:46 module_EXCHM.F 5084 C 5085 C-------------------------------------------------------------------- 5086 C STORE RESULTS FROM SOUTH 5087 C-------------------------------------------------------------------- 5088 C 5089 IF(MY_NEB(3).GE.0)THEN 5090 IBEG=MYIS-IHALO 5091 IEND=MYIE+IHALO 5092 IC = 0 5093 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 5094 DO K=1,LL1 5095 DO J=0,JHALO-1 5096 DO I=IBEG,IEND 5097 IC = IC + 1 5098 ARR1(I,MYJS-J-1,K)=BUF1(IC) 5099 ENDDO 5100 ENDDO 5101 ENDDO 5102 DO K=1,LL2 5103 DO J=0,JHALO-1 5104 DO I=IBEG,IEND 5105 IC = IC + 1 5106 ARR2(I,MYJS-J-1,K)=BUF1(IC) 5107 ENDDO 5108 ENDDO 5109 ENDDO 5110 DO K=1,LL3 5111 DO J=0,JHALO-1 5112 DO I=IBEG,IEND 5113 IC = IC + 1 5114 ARR3(I,MYJS-J-1,K)=BUF1(IC) 5115 ENDDO 5116 ENDDO 5117 ENDDO 5118 ENDIF 5119 C 5120 C-------------------------------------------------------------------- 5121 C STORE FROM NORTH 5122 C-------------------------------------------------------------------- 5123 C 5124 IF(MY_NEB(1).GE.0)THEN 5125 IBEG=MYIS-IHALO 5126 IEND=MYIE+IHALO 5127 IC = 0 5128 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 5129 DO K=1,LL1 5130 DO J=0,JHALO-1 5131 DO I=IBEG,IEND 5132 IC = IC + 1 5133 ARR1(I,MYJE+J+1,K)=BUF0(IC) 5134 ENDDO 5135 ENDDO 5136 ENDDO 5137 DO K=1,LL2 5138 DO J=0,JHALO-1 5139 DO I=IBEG,IEND 5140 IC = IC + 1 Page 79 Source Listing EXCH111 2014-12-17 20:46 module_EXCHM.F 5141 ARR2(I,MYJE+J+1,K)=BUF0(IC) 5142 ENDDO 5143 ENDDO 5144 ENDDO 5145 DO K=1,LL3 5146 DO J=0,JHALO-1 5147 DO I=IBEG,IEND 5148 IC = IC + 1 5149 ARR3(I,MYJE+J+1,K)=BUF0(IC) 5150 ENDDO 5151 ENDDO 5152 ENDDO 5153 ENDIF 5154 C 5155 IF(MY_NEB(1).GE.0)THEN 5156 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 5157 ENDIF 5158 C 5159 IF(MY_NEB(3).GE.0)THEN 5160 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 5161 ENDIF 5162 C 5163 C-------------------------------------------------------------------- 5164 C-------------------------------------------------------------------- 5165 C*** 5166 C*** EAST/WEST 5167 C*** 5168 C-------------------------------------------------------------------- 5169 C-------------------------------------------------------------------- 5170 C 5171 C-------------------------------------------------------------------- 5172 C RECEIVE FROM WEST 5173 C-------------------------------------------------------------------- 5174 C 5175 IF(MY_NEB(4).GE.0)THEN 5176 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 5177 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 5178 ENDIF 5179 C 5180 C-------------------------------------------------------------------- 5181 C RECEIVE FROM EAST 5182 C-------------------------------------------------------------------- 5183 C 5184 IF(MY_NEB(2).GE.0)THEN 5185 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 5186 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 5187 ENDIF 5188 C 5189 C-------------------------------------------------------------------- 5190 C SEND TO EAST 5191 C-------------------------------------------------------------------- 5192 C 5193 IF(MY_NEB(2).GE.0)THEN 5194 IBEG=MYIE-IHALO+1 5195 IEND=MYIE 5196 IC = 0 5197 DO K=1,LL1 Page 80 Source Listing EXCH111 2014-12-17 20:46 module_EXCHM.F 5198 DO J=MYJS-JHALO,MYJE+JHALO 5199 DO I=IBEG,IEND 5200 IC = IC + 1 5201 BUF2(IC)=ARR1(I,J,K) 5202 ENDDO 5203 ENDDO 5204 ENDDO 5205 DO K=1,LL2 5206 DO J=MYJS-JHALO,MYJE+JHALO 5207 DO I=IBEG,IEND 5208 IC = IC + 1 5209 BUF2(IC)=ARR2(I,J,K) 5210 ENDDO 5211 ENDDO 5212 ENDDO 5213 DO K=1,LL3 5214 DO J=MYJS-JHALO,MYJE+JHALO 5215 DO I=IBEG,IEND 5216 IC = IC + 1 5217 BUF2(IC)=ARR3(I,J,K) 5218 ENDDO 5219 ENDDO 5220 ENDDO 5221 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 5222 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 5223 ENDIF 5224 C 5225 C-------------------------------------------------------------------- 5226 C SEND TO WEST 5227 C-------------------------------------------------------------------- 5228 C 5229 IF(MY_NEB(4).GE.0)THEN 5230 NEBPE=MY_NEB(4) 5231 IBEG=MYIS 5232 IEND=MYIS+IHALO-1 5233 IC = 0 5234 DO K=1,LL1 5235 DO J=MYJS-JHALO,MYJE+JHALO 5236 DO I=IBEG,IEND 5237 IC = IC + 1 5238 BUF3(IC)=ARR1(I,J,K) 5239 ENDDO 5240 ENDDO 5241 ENDDO 5242 DO K=1,LL2 5243 DO J=MYJS-JHALO,MYJE+JHALO 5244 DO I=IBEG,IEND 5245 IC = IC + 1 5246 BUF3(IC)=ARR2(I,J,K) 5247 ENDDO 5248 ENDDO 5249 ENDDO 5250 DO K=1,LL3 5251 DO J=MYJS-JHALO,MYJE+JHALO 5252 DO I=IBEG,IEND 5253 IC = IC + 1 5254 BUF3(IC)=ARR3(I,J,K) Page 81 Source Listing EXCH111 2014-12-17 20:46 module_EXCHM.F 5255 ENDDO 5256 ENDDO 5257 ENDDO 5258 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 5259 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 5260 ENDIF 5261 C 5262 C-------------------------------------------------------------------- 5263 C STORE FROM WEST 5264 C-------------------------------------------------------------------- 5265 C 5266 IF(MY_NEB(4).GE.0)THEN 5267 IBEG=MYIS-IHALO 5268 IEND=MYIS-1 5269 IC = 0 5270 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 5271 DO K=1,LL1 5272 DO J=MYJS-JHALO,MYJE+JHALO 5273 DO I=IBEG,IEND 5274 IC = IC + 1 5275 ARR1(I,J,K)=BUF0(IC) 5276 ENDDO 5277 ENDDO 5278 ENDDO 5279 DO K=1,LL2 5280 DO J=MYJS-JHALO,MYJE+JHALO 5281 DO I=IBEG,IEND 5282 IC = IC + 1 5283 ARR2(I,J,K)=BUF0(IC) 5284 ENDDO 5285 ENDDO 5286 ENDDO 5287 DO K=1,LL3 5288 DO J=MYJS-JHALO,MYJE+JHALO 5289 DO I=IBEG,IEND 5290 IC = IC + 1 5291 ARR3(I,J,K)=BUF0(IC) 5292 ENDDO 5293 ENDDO 5294 ENDDO 5295 ENDIF 5296 C 5297 C-------------------------------------------------------------------- 5298 C STORE FROM EAST 5299 C-------------------------------------------------------------------- 5300 C 5301 IF(MY_NEB(2).GE.0)THEN 5302 IBEG=MYIE+1 5303 IEND=MYIE+IHALO 5304 IC = 0 5305 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 5306 DO K=1,LL1 5307 DO J=MYJS-JHALO,MYJE+JHALO 5308 DO I=IBEG,IEND 5309 IC = IC + 1 5310 ARR1(I,J,K)=BUF1(IC) 5311 ENDDO Page 82 Source Listing EXCH111 2014-12-17 20:46 module_EXCHM.F 5312 ENDDO 5313 ENDDO 5314 DO K=1,LL2 5315 DO J=MYJS-JHALO,MYJE+JHALO 5316 DO I=IBEG,IEND 5317 IC = IC + 1 5318 ARR2(I,J,K)=BUF1(IC) 5319 ENDDO 5320 ENDDO 5321 ENDDO 5322 DO K=1,LL3 5323 DO J=MYJS-JHALO,MYJE+JHALO 5324 DO I=IBEG,IEND 5325 IC = IC + 1 5326 ARR3(I,J,K)=BUF1(IC) 5327 ENDDO 5328 ENDDO 5329 ENDDO 5330 ENDIF 5331 C 5332 IF(MY_NEB(4).GE.0)THEN 5333 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 5334 ENDIF 5335 C 5336 IF(MY_NEB(2).GE.0)THEN 5337 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 5338 ENDIF 5339 C 5340 C-------------------------------------------------------------------- 5341 END SUBROUTINE Page 83 Source Listing EXCH111 2014-12-17 20:46 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 1394 R(4) 4 3 0 ARG,INOUT 1448,1484,1521,1556,1624,1661,1698 ,1733 ARR2 Dummy 1394 R(4) 4 3 0 ARG,INOUT 1456,1492,1529,1564,1632,1669,1706 ,1741 ARR3 Dummy 1394 R(4) 4 3 0 ARG,INOUT 1464,1500,1537,1572,1640,1677,1714 ,1749 BUF0 Local 1423 R(4) 4 1 2500000 1423,1556,1564,1572,1599,1698,1706 ,1714 BUF1 Local 1432 R(4) 4 1 2500000 1432,1521,1529,1537,1608,1733,1741 ,1749 BUF2 Local 1448 R(4) 4 1 2500000 1448,1456,1464,1468,1624,1632,1640 ,1644 BUF3 Local 1484 R(4) 4 1 2500000 1484,1492,1500,1504,1661,1669,1677 ,1681 EXCH111 Subr 1394 EXCH_BUF_REAL Module 1395 1395 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 1446 I(4) 4 scalar 1446,1448,1454,1456,1462,1464,1482 ,1484,1490,1492,1498,1500,1519,152 1,1527,1529,1535,1537,1554,1556,15 62,1564,1570,1572,1622,1624,1630,1 632,1638,1640,1659,1661,1667,1669, 1675,1677,1696,1698,1704,1706,1712 ,1714,1731,1733,1739,1741,1747,174 9 IBEG Local 1441 I(4) 4 scalar 1441,1446,1454,1462,1477,1482,1490 ,1498,1513,1519,1527,1535,1548,155 4,1562,1570,1617,1622,1630,1638,16 54,1659,1667,1675,1690,1696,1704,1 712,1725,1731,1739,1747 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 1423 I(4) 4 scalar 1423,1432,1599,1608 IC Local 1443 I(4) 4 scalar 1443,1447,1448,1455,1456,1463,1464 ,1468,1479,1483,1484,1491,1492,149 9,1500,1504,1515,1520,1521,1528,15 29,1536,1537,1550,1555,1556,1563,1 564,1571,1572,1619,1623,1624,1631, 1632,1639,1640,1644,1656,1660,1661 ,1668,1669,1676,1677,1681,1692,169 7,1698,1705,1706,1713,1714,1727,17 32,1733,1740,1741,1748,1749 Page 84 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 1402,1403,1404 IDIM2 Param 19 I(4) 4 scalar 1402,1403,1404 IEND Local 1442 I(4) 4 scalar 1442,1446,1454,1462,1478,1482,1490 ,1498,1514,1519,1527,1535,1549,155 4,1562,1570,1618,1622,1630,1638,16 55,1659,1667,1675,1691,1696,1704,1 712,1726,1731,1739,1747 IERR Local 1516 I(4) 4 scalar 1516,1551,1579,1583,1693,1728,1756 ,1760 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 1394 I(4) 4 scalar ARG,INOUT 1441,1442,1477,1478,1513,1514,1548 ,1549,1617,1655,1690,1726 IHANDLE Local 1401 I(4) 4 1 4 1424,1433,1469,1505,1516,1551,1579 ,1583,1600,1609,1645,1682,1693,172 8,1756,1760 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 1424 I(4) 4 scalar 1424,1433,1600,1609 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 1469 I(4) 4 scalar 1469,1505,1645,1682 ISTAT Local 1400 I(4) 4 1 5 1516,1551,1579,1583,1693,1728,1756 ,1760 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 1408 I(4) 4 scalar 1408,1423,1432,1468,1504,1599,1608 ,1644,1681 J Local 1445 I(4) 4 scalar 1445,1448,1453,1456,1461,1464,1481 ,1484,1489,1492,1497,1500,1518,152 1,1526,1529,1534,1537,1553,1556,15 61,1564,1569,1572,1621,1624,1629,1 632,1637,1640,1658,1661,1666,1669, 1674,1677,1695,1698,1703,1706,1711 ,1714,1730,1733,1738,1741,1746,174 9 Page 85 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 1402,1403,1404 JDIM2 Param 20 I(4) 4 scalar 1402,1403,1404 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 1394 I(4) 4 scalar ARG,INOUT 1445,1453,1461,1481,1489,1497,1518 ,1526,1534,1553,1561,1569,1621,162 9,1637,1658,1666,1674,1695,1703,17 11,1730,1738,1746 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 1444 I(4) 4 scalar 1444,1448,1452,1456,1460,1464,1480 ,1484,1488,1492,1496,1500,1517,152 1,1525,1529,1533,1537,1552,1556,15 60,1564,1568,1572,1620,1624,1628,1 632,1636,1640,1657,1661,1665,1669, 1673,1677,1694,1698,1702,1706,1710 ,1714,1729,1733,1737,1741,1745,174 9 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 1394 I(4) 4 scalar ARG,INOUT 1444,1480,1517,1552,1620,1657,1694 ,1729 LL2 Dummy 1394 I(4) 4 scalar ARG,INOUT 1452,1488,1525,1560,1628,1665,1702 ,1737 LL3 Dummy 1394 I(4) 4 scalar ARG,INOUT 1460,1496,1533,1568,1636,1673,1710 ,1745 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar Page 86 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 1424,1433,1469,1505,1600,1609,1645 ,1682 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar Page 87 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar Page 88 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 1423 1423,1432,1599,1608 MPI_ISEND Subr 1468 1468,1504,1644,1681 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar Page 89 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 1408 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 Page 90 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,1400 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 1516 1516,1551,1579,1583,1693,1728,1756 ,1760 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar Page 91 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 1442,1478,1514,1549,1617,1618,1725 ,1726 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 1441,1477,1513,1548,1654,1655,1690 ,1691 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 1448,1456,1464,1556,1564,1572,1621 ,1629,1637,1658,1666,1674,1695,170 3,1711,1730,1738,1746 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 1484,1492,1500,1521,1529,1537,1621 Page 92 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,1629,1637,1658,1666,1674,1695,170 3,1711,1730,1738,1746 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 1468,1504,1644,1681 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 1422,1423,1431,1432,1440,1468,1476 ,1504,1512,1547,1578,1582,1598,159 9,1607,1608,1616,1644,1652,1653,16 81,1689,1724,1755,1759 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NEBPE Local 1653 I(4) 4 scalar 1653 NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM Page 93 Source Listing EXCH111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 94 Source Listing EXCH111 2014-12-17 20:46 module_EXCHM.F 5342 5343 SUBROUTINE EXCH1111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 5344 * ARR4,LL4,IHALO,JHALO) 5345 USE EXCH_BUF_REAL 5346 INCLUDE "parmeta" 5369 INCLUDE "mpif.h" 5886 INCLUDE "mpp.h" 5887 C----------------------------------------------------------------------- 5946 INTEGER ISTAT(MPI_STATUS_SIZE) 5947 INTEGER IHANDLE(4) 5948 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 5949 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 5950 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 5951 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 5952 C 5953 C*********************************************************************** 5954 C 5955 ITYPE=MPI_REAL 5956 C 5957 C-------------------------------------------------------------------- 5958 C-------------------------------------------------------------------- 5959 C*** 5960 C*** NORTH/SOUTH 5961 C*** 5962 C-------------------------------------------------------------------- 5963 C-------------------------------------------------------------------- 5964 C 5965 C-------------------------------------------------------------------- 5966 C RECEIVE FROM NORTH 5967 C-------------------------------------------------------------------- 5968 C 5969 IF(MY_NEB(1).GE.0)THEN 5970 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 5971 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 5972 ENDIF 5973 C 5974 C-------------------------------------------------------------------- 5975 C RECEIVE FROM SOUTH 5976 C-------------------------------------------------------------------- 5977 C 5978 IF(MY_NEB(3).GE.0)THEN 5979 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 5980 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 5981 ENDIF 5982 C 5983 C-------------------------------------------------------------------- 5984 C SEND TO NORTH 5985 C-------------------------------------------------------------------- 5986 C 5987 IF(MY_NEB(1).GE.0)THEN 5988 IBEG=MYIS-IHALO 5989 IEND=MYIE+IHALO 5990 IC = 0 5991 DO K=1,LL1 5992 DO J=0,JHALO-1 5993 DO I=IBEG,IEND 5994 IC = IC + 1 Page 95 Source Listing EXCH1111 2014-12-17 20:46 module_EXCHM.F 5995 BUF2(IC)=ARR1(I,MYJE-J,K) 5996 ENDDO 5997 ENDDO 5998 ENDDO 5999 DO K=1,LL2 6000 DO J=0,JHALO-1 6001 DO I=IBEG,IEND 6002 IC = IC + 1 6003 BUF2(IC)=ARR2(I,MYJE-J,K) 6004 ENDDO 6005 ENDDO 6006 ENDDO 6007 DO K=1,LL3 6008 DO J=0,JHALO-1 6009 DO I=IBEG,IEND 6010 IC = IC + 1 6011 BUF2(IC)=ARR3(I,MYJE-J,K) 6012 ENDDO 6013 ENDDO 6014 ENDDO 6015 DO K=1,LL4 6016 DO J=0,JHALO-1 6017 DO I=IBEG,IEND 6018 IC = IC + 1 6019 BUF2(IC)=ARR4(I,MYJE-J,K) 6020 ENDDO 6021 ENDDO 6022 ENDDO 6023 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 6024 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 6025 ENDIF 6026 C 6027 C-------------------------------------------------------------------- 6028 C SEND TO SOUTH 6029 C-------------------------------------------------------------------- 6030 C 6031 IF(MY_NEB(3).GE.0)THEN 6032 IBEG=MYIS-IHALO 6033 IEND=MYIE+IHALO 6034 IC = 0 6035 DO K=1,LL1 6036 DO J=0,JHALO-1 6037 DO I=IBEG,IEND 6038 IC = IC + 1 6039 BUF3(IC)=ARR1(I,MYJS+J,K) 6040 ENDDO 6041 ENDDO 6042 ENDDO 6043 DO K=1,LL2 6044 DO J=0,JHALO-1 6045 DO I=IBEG,IEND 6046 IC = IC + 1 6047 BUF3(IC)=ARR2(I,MYJS+J,K) 6048 ENDDO 6049 ENDDO 6050 ENDDO 6051 DO K=1,LL3 Page 96 Source Listing EXCH1111 2014-12-17 20:46 module_EXCHM.F 6052 DO J=0,JHALO-1 6053 DO I=IBEG,IEND 6054 IC = IC + 1 6055 BUF3(IC)=ARR3(I,MYJS+J,K) 6056 ENDDO 6057 ENDDO 6058 ENDDO 6059 DO K=1,LL4 6060 DO J=0,JHALO-1 6061 DO I=IBEG,IEND 6062 IC = IC + 1 6063 BUF3(IC)=ARR4(I,MYJS+J,K) 6064 ENDDO 6065 ENDDO 6066 ENDDO 6067 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 6068 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 6069 ENDIF 6070 C 6071 C-------------------------------------------------------------------- 6072 C STORE RESULTS FROM SOUTH 6073 C-------------------------------------------------------------------- 6074 C 6075 IF(MY_NEB(3).GE.0)THEN 6076 IBEG=MYIS-IHALO 6077 IEND=MYIE+IHALO 6078 IC = 0 6079 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 6080 DO K=1,LL1 6081 DO J=0,JHALO-1 6082 DO I=IBEG,IEND 6083 IC = IC + 1 6084 ARR1(I,MYJS-J-1,K)=BUF1(IC) 6085 ENDDO 6086 ENDDO 6087 ENDDO 6088 DO K=1,LL2 6089 DO J=0,JHALO-1 6090 DO I=IBEG,IEND 6091 IC = IC + 1 6092 ARR2(I,MYJS-J-1,K)=BUF1(IC) 6093 ENDDO 6094 ENDDO 6095 ENDDO 6096 DO K=1,LL3 6097 DO J=0,JHALO-1 6098 DO I=IBEG,IEND 6099 IC = IC + 1 6100 ARR3(I,MYJS-J-1,K)=BUF1(IC) 6101 ENDDO 6102 ENDDO 6103 ENDDO 6104 DO K=1,LL4 6105 DO J=0,JHALO-1 6106 DO I=IBEG,IEND 6107 IC = IC + 1 6108 ARR4(I,MYJS-J-1,K)=BUF1(IC) Page 97 Source Listing EXCH1111 2014-12-17 20:46 module_EXCHM.F 6109 ENDDO 6110 ENDDO 6111 ENDDO 6112 ENDIF 6113 C 6114 C-------------------------------------------------------------------- 6115 C STORE FROM NORTH 6116 C-------------------------------------------------------------------- 6117 C 6118 IF(MY_NEB(1).GE.0)THEN 6119 IBEG=MYIS-IHALO 6120 IEND=MYIE+IHALO 6121 IC = 0 6122 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 6123 DO K=1,LL1 6124 DO J=0,JHALO-1 6125 DO I=IBEG,IEND 6126 IC = IC + 1 6127 ARR1(I,MYJE+J+1,K)=BUF0(IC) 6128 ENDDO 6129 ENDDO 6130 ENDDO 6131 DO K=1,LL2 6132 DO J=0,JHALO-1 6133 DO I=IBEG,IEND 6134 IC = IC + 1 6135 ARR2(I,MYJE+J+1,K)=BUF0(IC) 6136 ENDDO 6137 ENDDO 6138 ENDDO 6139 DO K=1,LL3 6140 DO J=0,JHALO-1 6141 DO I=IBEG,IEND 6142 IC = IC + 1 6143 ARR3(I,MYJE+J+1,K)=BUF0(IC) 6144 ENDDO 6145 ENDDO 6146 ENDDO 6147 DO K=1,LL4 6148 DO J=0,JHALO-1 6149 DO I=IBEG,IEND 6150 IC = IC + 1 6151 ARR4(I,MYJE+J+1,K)=BUF0(IC) 6152 ENDDO 6153 ENDDO 6154 ENDDO 6155 ENDIF 6156 C 6157 IF(MY_NEB(1).GE.0)THEN 6158 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 6159 ENDIF 6160 C 6161 IF(MY_NEB(3).GE.0)THEN 6162 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 6163 ENDIF 6164 C 6165 C-------------------------------------------------------------------- Page 98 Source Listing EXCH1111 2014-12-17 20:46 module_EXCHM.F 6166 C-------------------------------------------------------------------- 6167 C*** 6168 C*** EAST/WEST 6169 C*** 6170 C-------------------------------------------------------------------- 6171 C-------------------------------------------------------------------- 6172 C 6173 C-------------------------------------------------------------------- 6174 C RECEIVE FROM WEST 6175 C-------------------------------------------------------------------- 6176 C 6177 IF(MY_NEB(4).GE.0)THEN 6178 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 6179 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 6180 ENDIF 6181 C 6182 C-------------------------------------------------------------------- 6183 C RECEIVE FROM EAST 6184 C-------------------------------------------------------------------- 6185 C 6186 IF(MY_NEB(2).GE.0)THEN 6187 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 6188 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 6189 ENDIF 6190 C 6191 C-------------------------------------------------------------------- 6192 C SEND TO EAST 6193 C-------------------------------------------------------------------- 6194 C 6195 IF(MY_NEB(2).GE.0)THEN 6196 NEBPE=MY_NEB(2) 6197 IBEG=MYIE-IHALO+1 6198 IEND=MYIE 6199 IC = 0 6200 DO K=1,LL1 6201 DO J=MYJS-JHALO,MYJE+JHALO 6202 DO I=IBEG,IEND 6203 IC = IC + 1 6204 BUF2(IC)=ARR1(I,J,K) 6205 ENDDO 6206 ENDDO 6207 ENDDO 6208 DO K=1,LL2 6209 DO J=MYJS-JHALO,MYJE+JHALO 6210 DO I=IBEG,IEND 6211 IC = IC + 1 6212 BUF2(IC)=ARR2(I,J,K) 6213 ENDDO 6214 ENDDO 6215 ENDDO 6216 DO K=1,LL3 6217 DO J=MYJS-JHALO,MYJE+JHALO 6218 DO I=IBEG,IEND 6219 IC = IC + 1 6220 BUF2(IC)=ARR3(I,J,K) 6221 ENDDO 6222 ENDDO Page 99 Source Listing EXCH1111 2014-12-17 20:46 module_EXCHM.F 6223 ENDDO 6224 DO K=1,LL4 6225 DO J=MYJS-JHALO,MYJE+JHALO 6226 DO I=IBEG,IEND 6227 IC = IC + 1 6228 BUF2(IC)=ARR4(I,J,K) 6229 ENDDO 6230 ENDDO 6231 ENDDO 6232 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 6233 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 6234 ENDIF 6235 C 6236 C-------------------------------------------------------------------- 6237 C SEND TO WEST 6238 C-------------------------------------------------------------------- 6239 C 6240 IF(MY_NEB(4).GE.0)THEN 6241 IBEG=MYIS 6242 IEND=MYIS+IHALO-1 6243 IC = 0 6244 DO K=1,LL1 6245 DO J=MYJS-JHALO,MYJE+JHALO 6246 DO I=IBEG,IEND 6247 IC = IC + 1 6248 BUF3(IC)=ARR1(I,J,K) 6249 ENDDO 6250 ENDDO 6251 ENDDO 6252 DO K=1,LL2 6253 DO J=MYJS-JHALO,MYJE+JHALO 6254 DO I=IBEG,IEND 6255 IC = IC + 1 6256 BUF3(IC)=ARR2(I,J,K) 6257 ENDDO 6258 ENDDO 6259 ENDDO 6260 DO K=1,LL3 6261 DO J=MYJS-JHALO,MYJE+JHALO 6262 DO I=IBEG,IEND 6263 IC = IC + 1 6264 BUF3(IC)=ARR3(I,J,K) 6265 ENDDO 6266 ENDDO 6267 ENDDO 6268 DO K=1,LL4 6269 DO J=MYJS-JHALO,MYJE+JHALO 6270 DO I=IBEG,IEND 6271 IC = IC + 1 6272 BUF3(IC)=ARR4(I,J,K) 6273 ENDDO 6274 ENDDO 6275 ENDDO 6276 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 6277 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 6278 ENDIF 6279 C Page 100 Source Listing EXCH1111 2014-12-17 20:46 module_EXCHM.F 6280 C-------------------------------------------------------------------- 6281 C STORE FROM WEST 6282 C-------------------------------------------------------------------- 6283 C 6284 IF(MY_NEB(4).GE.0)THEN 6285 IBEG=MYIS-IHALO 6286 IEND=MYIS-1 6287 IC = 0 6288 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 6289 DO K=1,LL1 6290 DO J=MYJS-JHALO,MYJE+JHALO 6291 DO I=IBEG,IEND 6292 IC = IC + 1 6293 ARR1(I,J,K)=BUF0(IC) 6294 ENDDO 6295 ENDDO 6296 ENDDO 6297 DO K=1,LL2 6298 DO J=MYJS-JHALO,MYJE+JHALO 6299 DO I=IBEG,IEND 6300 IC = IC + 1 6301 ARR2(I,J,K)=BUF0(IC) 6302 ENDDO 6303 ENDDO 6304 ENDDO 6305 DO K=1,LL3 6306 DO J=MYJS-JHALO,MYJE+JHALO 6307 DO I=IBEG,IEND 6308 IC = IC + 1 6309 ARR3(I,J,K)=BUF0(IC) 6310 ENDDO 6311 ENDDO 6312 ENDDO 6313 DO K=1,LL4 6314 DO J=MYJS-JHALO,MYJE+JHALO 6315 DO I=IBEG,IEND 6316 IC = IC + 1 6317 ARR4(I,J,K)=BUF0(IC) 6318 ENDDO 6319 ENDDO 6320 ENDDO 6321 ENDIF 6322 C 6323 C-------------------------------------------------------------------- 6324 C STORE FROM EAST 6325 C-------------------------------------------------------------------- 6326 C 6327 IF(MY_NEB(2).GE.0)THEN 6328 IBEG=MYIE+1 6329 IEND=MYIE+IHALO 6330 IC = 0 6331 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 6332 DO K=1,LL1 6333 DO J=MYJS-JHALO,MYJE+JHALO 6334 DO I=IBEG,IEND 6335 IC = IC + 1 6336 ARR1(I,J,K)=BUF1(IC) Page 101 Source Listing EXCH1111 2014-12-17 20:46 module_EXCHM.F 6337 ENDDO 6338 ENDDO 6339 ENDDO 6340 DO K=1,LL2 6341 DO J=MYJS-JHALO,MYJE+JHALO 6342 DO I=IBEG,IEND 6343 IC = IC + 1 6344 ARR2(I,J,K)=BUF1(IC) 6345 ENDDO 6346 ENDDO 6347 ENDDO 6348 DO K=1,LL3 6349 DO J=MYJS-JHALO,MYJE+JHALO 6350 DO I=IBEG,IEND 6351 IC = IC + 1 6352 ARR3(I,J,K)=BUF1(IC) 6353 ENDDO 6354 ENDDO 6355 ENDDO 6356 DO K=1,LL4 6357 DO J=MYJS-JHALO,MYJE+JHALO 6358 DO I=IBEG,IEND 6359 IC = IC + 1 6360 ARR4(I,J,K)=BUF1(IC) 6361 ENDDO 6362 ENDDO 6363 ENDDO 6364 ENDIF 6365 C 6366 IF(MY_NEB(4).GE.0)THEN 6367 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 6368 ENDIF 6369 C 6370 IF(MY_NEB(2).GE.0)THEN 6371 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 6372 ENDIF 6373 C 6374 C-------------------------------------------------------------------- 6375 END SUBROUTINE Page 102 Source Listing EXCH1111 2014-12-17 20:46 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 1766 R(4) 4 3 0 ARG,INOUT 1822,1866,1911,1954,2031,2075,2120 ,2163 ARR2 Dummy 1766 R(4) 4 3 0 ARG,INOUT 1830,1874,1919,1962,2039,2083,2128 ,2171 ARR3 Dummy 1766 R(4) 4 3 0 ARG,INOUT 1838,1882,1927,1970,2047,2091,2136 ,2179 ARR4 Dummy 1767 R(4) 4 3 0 ARG,INOUT 1846,1890,1935,1978,2055,2099,2144 ,2187 BUF0 Local 1797 R(4) 4 1 2500000 1797,1954,1962,1970,1978,2005,2120 ,2128,2136,2144 BUF1 Local 1806 R(4) 4 1 2500000 1806,1911,1919,1927,1935,2014,2163 ,2171,2179,2187 BUF2 Local 1822 R(4) 4 1 2500000 1822,1830,1838,1846,1850,2031,2039 ,2047,2055,2059 BUF3 Local 1866 R(4) 4 1 2500000 1866,1874,1882,1890,1894,2075,2083 ,2091,2099,2103 EXCH1111 Subr 1766 EXCH_BUF_REAL Module 1768 1768 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 1820 I(4) 4 scalar 1820,1822,1828,1830,1836,1838,1844 ,1846,1864,1866,1872,1874,1880,188 2,1888,1890,1909,1911,1917,1919,19 25,1927,1933,1935,1952,1954,1960,1 962,1968,1970,1976,1978,2029,2031, 2037,2039,2045,2047,2053,2055,2073 ,2075,2081,2083,2089,2091,2097,209 9,2118,2120,2126,2128,2134,2136,21 42,2144,2161,2163,2169,2171,2177,2 179,2185,2187 IBEG Local 1815 I(4) 4 scalar 1815,1820,1828,1836,1844,1859,1864 ,1872,1880,1888,1903,1909,1917,192 5,1933,1946,1952,1960,1968,1976,20 24,2029,2037,2045,2053,2068,2073,2 081,2089,2097,2112,2118,2126,2134, 2142,2155,2161,2169,2177,2185 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 1797 I(4) 4 scalar 1797,1806,2005,2014 IC Local 1817 I(4) 4 scalar 1817,1821,1822,1829,1830,1837,1838 ,1845,1846,1850,1861,1865,1866,187 3,1874,1881,1882,1889,1890,1894,19 05,1910,1911,1918,1919,1926,1927,1 Page 103 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 934,1935,1948,1953,1954,1961,1962, 1969,1970,1977,1978,2026,2030,2031 ,2038,2039,2046,2047,2054,2055,205 9,2070,2074,2075,2082,2083,2090,20 91,2098,2099,2103,2114,2119,2120,2 127,2128,2135,2136,2143,2144,2157, 2162,2163,2170,2171,2178,2179,2186 ,2187 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 1775,1776,1777,1778 IDIM2 Param 19 I(4) 4 scalar 1775,1776,1777,1778 IEND Local 1816 I(4) 4 scalar 1816,1820,1828,1836,1844,1860,1864 ,1872,1880,1888,1904,1909,1917,192 5,1933,1947,1952,1960,1968,1976,20 25,2029,2037,2045,2053,2069,2073,2 081,2089,2097,2113,2118,2126,2134, 2142,2156,2161,2169,2177,2185 IERR Local 1906 I(4) 4 scalar 1906,1949,1985,1989,2115,2158,2194 ,2198 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 1767 I(4) 4 scalar ARG,INOUT 1815,1816,1859,1860,1903,1904,1946 ,1947,2024,2069,2112,2156 IHANDLE Local 1774 I(4) 4 1 4 1798,1807,1851,1895,1906,1949,1985 ,1989,2006,2015,2060,2104,2115,215 8,2194,2198 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 1798 I(4) 4 scalar 1798,1807,2006,2015 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 1851 I(4) 4 scalar 1851,1895,2060,2104 ISTAT Local 1773 I(4) 4 1 5 1906,1949,1985,1989,2115,2158,2194 ,2198 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 1782 I(4) 4 scalar 1782,1797,1806,1850,1894,2005,2014 Page 104 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,2059,2103 J Local 1819 I(4) 4 scalar 1819,1822,1827,1830,1835,1838,1843 ,1846,1863,1866,1871,1874,1879,188 2,1887,1890,1908,1911,1916,1919,19 24,1927,1932,1935,1951,1954,1959,1 962,1967,1970,1975,1978,2028,2031, 2036,2039,2044,2047,2052,2055,2072 ,2075,2080,2083,2088,2091,2096,209 9,2117,2120,2125,2128,2133,2136,21 41,2144,2160,2163,2168,2171,2176,2 179,2184,2187 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 1775,1776,1777,1778 JDIM2 Param 20 I(4) 4 scalar 1775,1776,1777,1778 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 1767 I(4) 4 scalar ARG,INOUT 1819,1827,1835,1843,1863,1871,1879 ,1887,1908,1916,1924,1932,1951,195 9,1967,1975,2028,2036,2044,2052,20 72,2080,2088,2096,2117,2125,2133,2 141,2160,2168,2176,2184 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 1818 I(4) 4 scalar 1818,1822,1826,1830,1834,1838,1842 ,1846,1862,1866,1870,1874,1878,188 2,1886,1890,1907,1911,1915,1919,19 23,1927,1931,1935,1950,1954,1958,1 962,1966,1970,1974,1978,2027,2031, 2035,2039,2043,2047,2051,2055,2071 ,2075,2079,2083,2087,2091,2095,209 9,2116,2120,2124,2128,2132,2136,21 40,2144,2159,2163,2167,2171,2175,2 179,2183,2187 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 1766 I(4) 4 scalar ARG,INOUT 1818,1862,1907,1950,2027,2071,2116 ,2159 LL2 Dummy 1766 I(4) 4 scalar ARG,INOUT 1826,1870,1915,1958,2035,2079,2124 ,2167 LL3 Dummy 1766 I(4) 4 scalar ARG,INOUT 1834,1878,1923,1966,2043,2087,2132 ,2175 Page 105 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References LL4 Dummy 1767 I(4) 4 scalar ARG,INOUT 1842,1886,1931,1974,2051,2095,2140 ,2183 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar Page 106 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 1798,1807,1851,1895,2006,2015,2060 ,2104 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar Page 107 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar Page 108 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 1797 1797,1806,2005,2014 MPI_ISEND Subr 1850 1850,1894,2059,2103 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar Page 109 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 1782 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,1773 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar Page 110 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 1906 1906,1949,1985,1989,2115,2158,2194 ,2198 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 1816,1860,1904,1947,2024,2025,2155 ,2156 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 1815,1859,1903,1946,2068,2069,2112 ,2113 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 1822,1830,1838,1846,1954,1962,1970 ,1978,2028,2036,2044,2052,2072,208 0,2088,2096,2117,2125,2133,2141,21 60,2168,2176,2184 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM Page 111 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 1866,1874,1882,1890,1911,1919,1927 ,1935,2028,2036,2044,2052,2072,208 0,2088,2096,2117,2125,2133,2141,21 60,2168,2176,2184 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 1850,1894,2059,2103 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM Page 112 Source Listing EXCH1111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MY_NEB Scalar 21 I(4) 4 1 8 COM 1796,1797,1805,1806,1814,1850,1858 ,1894,1902,1945,1984,1988,2004,200 5,2013,2014,2022,2023,2059,2067,21 03,2111,2154,2193,2197 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NEBPE Local 2023 I(4) 4 scalar 2023 NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 113 Source Listing EXCH1111 2014-12-17 20:46 module_EXCHM.F 6376 6377 SUBROUTINE EXCH11111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 6378 * ARR4,LL4,ARR5,LL5,IHALO,JHALO) 6379 USE EXCH_BUF_REAL 6380 INCLUDE "parmeta" 6403 INCLUDE "mpif.h" 6920 INCLUDE "mpp.h" 6921 C----------------------------------------------------------------------- 6980 INTEGER ISTAT(MPI_STATUS_SIZE) 6981 INTEGER IHANDLE(4) 6982 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 6983 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 6984 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 6985 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 6986 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 6987 C 6988 C*********************************************************************** 6989 C 6990 ITYPE=MPI_REAL 6991 C 6992 C-------------------------------------------------------------------- 6993 C-------------------------------------------------------------------- 6994 C*** 6995 C*** NORTH/SOUTH 6996 C*** 6997 C-------------------------------------------------------------------- 6998 C-------------------------------------------------------------------- 6999 C 7000 C-------------------------------------------------------------------- 7001 C RECEIVE FROM NORTH 7002 C-------------------------------------------------------------------- 7003 C 7004 IF(MY_NEB(1).GE.0)THEN 7005 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 7006 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 7007 ENDIF 7008 C 7009 C-------------------------------------------------------------------- 7010 C RECEIVE FROM SOUTH 7011 C-------------------------------------------------------------------- 7012 C 7013 IF(MY_NEB(3).GE.0)THEN 7014 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 7015 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 7016 ENDIF 7017 C 7018 C-------------------------------------------------------------------- 7019 C SEND TO NORTH 7020 C-------------------------------------------------------------------- 7021 C 7022 IF(MY_NEB(1).GE.0)THEN 7023 IBEG=MYIS-IHALO 7024 IEND=MYIE+IHALO 7025 IC = 0 7026 DO K=1,LL1 7027 DO J=0,JHALO-1 7028 DO I=IBEG,IEND Page 114 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7029 IC = IC + 1 7030 BUF2(IC)=ARR1(I,MYJE-J,K) 7031 ENDDO 7032 ENDDO 7033 ENDDO 7034 DO K=1,LL2 7035 DO J=0,JHALO-1 7036 DO I=IBEG,IEND 7037 IC = IC + 1 7038 BUF2(IC)=ARR2(I,MYJE-J,K) 7039 ENDDO 7040 ENDDO 7041 ENDDO 7042 DO K=1,LL3 7043 DO J=0,JHALO-1 7044 DO I=IBEG,IEND 7045 IC = IC + 1 7046 BUF2(IC)=ARR3(I,MYJE-J,K) 7047 ENDDO 7048 ENDDO 7049 ENDDO 7050 DO K=1,LL4 7051 DO J=0,JHALO-1 7052 DO I=IBEG,IEND 7053 IC = IC + 1 7054 BUF2(IC)=ARR4(I,MYJE-J,K) 7055 ENDDO 7056 ENDDO 7057 ENDDO 7058 DO K=1,LL5 7059 DO J=0,JHALO-1 7060 DO I=IBEG,IEND 7061 IC = IC + 1 7062 BUF2(IC)=ARR5(I,MYJE-J,K) 7063 ENDDO 7064 ENDDO 7065 ENDDO 7066 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 7067 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 7068 ENDIF 7069 C 7070 C-------------------------------------------------------------------- 7071 C SEND TO SOUTH 7072 C-------------------------------------------------------------------- 7073 C 7074 IF(MY_NEB(3).GE.0)THEN 7075 IBEG=MYIS-IHALO 7076 IEND=MYIE+IHALO 7077 IC = 0 7078 DO K=1,LL1 7079 DO J=0,JHALO-1 7080 DO I=IBEG,IEND 7081 IC = IC + 1 7082 BUF3(IC)=ARR1(I,MYJS+J,K) 7083 ENDDO 7084 ENDDO 7085 ENDDO Page 115 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7086 DO K=1,LL2 7087 DO J=0,JHALO-1 7088 DO I=IBEG,IEND 7089 IC = IC + 1 7090 BUF3(IC)=ARR2(I,MYJS+J,K) 7091 ENDDO 7092 ENDDO 7093 ENDDO 7094 DO K=1,LL3 7095 DO J=0,JHALO-1 7096 DO I=IBEG,IEND 7097 IC = IC + 1 7098 BUF3(IC)=ARR3(I,MYJS+J,K) 7099 ENDDO 7100 ENDDO 7101 ENDDO 7102 DO K=1,LL4 7103 DO J=0,JHALO-1 7104 DO I=IBEG,IEND 7105 IC = IC + 1 7106 BUF3(IC)=ARR4(I,MYJS+J,K) 7107 ENDDO 7108 ENDDO 7109 ENDDO 7110 DO K=1,LL5 7111 DO J=0,JHALO-1 7112 DO I=IBEG,IEND 7113 IC = IC + 1 7114 BUF3(IC)=ARR5(I,MYJS+J,K) 7115 ENDDO 7116 ENDDO 7117 ENDDO 7118 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 7119 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 7120 ENDIF 7121 C 7122 C-------------------------------------------------------------------- 7123 C STORE RESULTS FROM SOUTH 7124 C-------------------------------------------------------------------- 7125 C 7126 IF(MY_NEB(3).GE.0)THEN 7127 IBEG=MYIS-IHALO 7128 IEND=MYIE+IHALO 7129 IC = 0 7130 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 7131 DO K=1,LL1 7132 DO J=0,JHALO-1 7133 DO I=IBEG,IEND 7134 IC = IC + 1 7135 ARR1(I,MYJS-J-1,K)=BUF1(IC) 7136 ENDDO 7137 ENDDO 7138 ENDDO 7139 DO K=1,LL2 7140 DO J=0,JHALO-1 7141 DO I=IBEG,IEND 7142 IC = IC + 1 Page 116 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7143 ARR2(I,MYJS-J-1,K)=BUF1(IC) 7144 ENDDO 7145 ENDDO 7146 ENDDO 7147 DO K=1,LL3 7148 DO J=0,JHALO-1 7149 DO I=IBEG,IEND 7150 IC = IC + 1 7151 ARR3(I,MYJS-J-1,K)=BUF1(IC) 7152 ENDDO 7153 ENDDO 7154 ENDDO 7155 DO K=1,LL4 7156 DO J=0,JHALO-1 7157 DO I=IBEG,IEND 7158 IC = IC + 1 7159 ARR4(I,MYJS-J-1,K)=BUF1(IC) 7160 ENDDO 7161 ENDDO 7162 ENDDO 7163 DO K=1,LL5 7164 DO J=0,JHALO-1 7165 DO I=IBEG,IEND 7166 IC = IC + 1 7167 ARR5(I,MYJS-J-1,K)=BUF1(IC) 7168 ENDDO 7169 ENDDO 7170 ENDDO 7171 ENDIF 7172 C 7173 C-------------------------------------------------------------------- 7174 C STORE FROM NORTH 7175 C-------------------------------------------------------------------- 7176 C 7177 IF(MY_NEB(1).GE.0)THEN 7178 IBEG=MYIS-IHALO 7179 IEND=MYIE+IHALO 7180 IC = 0 7181 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 7182 DO K=1,LL1 7183 DO J=0,JHALO-1 7184 DO I=IBEG,IEND 7185 IC = IC + 1 7186 ARR1(I,MYJE+J+1,K)=BUF0(IC) 7187 ENDDO 7188 ENDDO 7189 ENDDO 7190 DO K=1,LL2 7191 DO J=0,JHALO-1 7192 DO I=IBEG,IEND 7193 IC = IC + 1 7194 ARR2(I,MYJE+J+1,K)=BUF0(IC) 7195 ENDDO 7196 ENDDO 7197 ENDDO 7198 DO K=1,LL3 7199 DO J=0,JHALO-1 Page 117 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7200 DO I=IBEG,IEND 7201 IC = IC + 1 7202 ARR3(I,MYJE+J+1,K)=BUF0(IC) 7203 ENDDO 7204 ENDDO 7205 ENDDO 7206 DO K=1,LL4 7207 DO J=0,JHALO-1 7208 DO I=IBEG,IEND 7209 IC = IC + 1 7210 ARR4(I,MYJE+J+1,K)=BUF0(IC) 7211 ENDDO 7212 ENDDO 7213 ENDDO 7214 DO K=1,LL5 7215 DO J=0,JHALO-1 7216 DO I=IBEG,IEND 7217 IC = IC + 1 7218 ARR5(I,MYJE+J+1,K)=BUF0(IC) 7219 ENDDO 7220 ENDDO 7221 ENDDO 7222 ENDIF 7223 C 7224 IF(MY_NEB(1).GE.0)THEN 7225 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 7226 ENDIF 7227 C 7228 IF(MY_NEB(3).GE.0)THEN 7229 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 7230 ENDIF 7231 C 7232 C-------------------------------------------------------------------- 7233 C-------------------------------------------------------------------- 7234 C*** 7235 C*** EAST/WEST 7236 C*** 7237 C-------------------------------------------------------------------- 7238 C-------------------------------------------------------------------- 7239 C 7240 C-------------------------------------------------------------------- 7241 C RECEIVE FROM WEST 7242 C-------------------------------------------------------------------- 7243 C 7244 IF(MY_NEB(4).GE.0)THEN 7245 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 7246 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 7247 ENDIF 7248 C 7249 C-------------------------------------------------------------------- 7250 C RECEIVE FROM EAST 7251 C-------------------------------------------------------------------- 7252 C 7253 IF(MY_NEB(2).GE.0)THEN 7254 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 7255 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 7256 ENDIF Page 118 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7257 C 7258 C-------------------------------------------------------------------- 7259 C SEND TO EAST 7260 C-------------------------------------------------------------------- 7261 C 7262 IF(MY_NEB(2).GE.0)THEN 7263 IBEG=MYIE-IHALO+1 7264 IEND=MYIE 7265 IC = 0 7266 DO K=1,LL1 7267 DO J=MYJS-JHALO,MYJE+JHALO 7268 DO I=IBEG,IEND 7269 IC = IC + 1 7270 BUF2(IC)=ARR1(I,J,K) 7271 ENDDO 7272 ENDDO 7273 ENDDO 7274 DO K=1,LL2 7275 DO J=MYJS-JHALO,MYJE+JHALO 7276 DO I=IBEG,IEND 7277 IC = IC + 1 7278 BUF2(IC)=ARR2(I,J,K) 7279 ENDDO 7280 ENDDO 7281 ENDDO 7282 DO K=1,LL3 7283 DO J=MYJS-JHALO,MYJE+JHALO 7284 DO I=IBEG,IEND 7285 IC = IC + 1 7286 BUF2(IC)=ARR3(I,J,K) 7287 ENDDO 7288 ENDDO 7289 ENDDO 7290 DO K=1,LL4 7291 DO J=MYJS-JHALO,MYJE+JHALO 7292 DO I=IBEG,IEND 7293 IC = IC + 1 7294 BUF2(IC)=ARR4(I,J,K) 7295 ENDDO 7296 ENDDO 7297 ENDDO 7298 DO K=1,LL5 7299 DO J=MYJS-JHALO,MYJE+JHALO 7300 DO I=IBEG,IEND 7301 IC = IC + 1 7302 BUF2(IC)=ARR5(I,J,K) 7303 ENDDO 7304 ENDDO 7305 ENDDO 7306 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 7307 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 7308 ENDIF 7309 C 7310 C-------------------------------------------------------------------- 7311 C SEND TO WEST 7312 C-------------------------------------------------------------------- 7313 C Page 119 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7314 IF(MY_NEB(4).GE.0)THEN 7315 IBEG=MYIS 7316 IEND=MYIS+IHALO-1 7317 IC = 0 7318 DO K=1,LL1 7319 DO J=MYJS-JHALO,MYJE+JHALO 7320 DO I=IBEG,IEND 7321 IC = IC + 1 7322 BUF3(IC)=ARR1(I,J,K) 7323 ENDDO 7324 ENDDO 7325 ENDDO 7326 DO K=1,LL2 7327 DO J=MYJS-JHALO,MYJE+JHALO 7328 DO I=IBEG,IEND 7329 IC = IC + 1 7330 BUF3(IC)=ARR2(I,J,K) 7331 ENDDO 7332 ENDDO 7333 ENDDO 7334 DO K=1,LL3 7335 DO J=MYJS-JHALO,MYJE+JHALO 7336 DO I=IBEG,IEND 7337 IC = IC + 1 7338 BUF3(IC)=ARR3(I,J,K) 7339 ENDDO 7340 ENDDO 7341 ENDDO 7342 DO K=1,LL4 7343 DO J=MYJS-JHALO,MYJE+JHALO 7344 DO I=IBEG,IEND 7345 IC = IC + 1 7346 BUF3(IC)=ARR4(I,J,K) 7347 ENDDO 7348 ENDDO 7349 ENDDO 7350 DO K=1,LL5 7351 DO J=MYJS-JHALO,MYJE+JHALO 7352 DO I=IBEG,IEND 7353 IC = IC + 1 7354 BUF3(IC)=ARR5(I,J,K) 7355 ENDDO 7356 ENDDO 7357 ENDDO 7358 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 7359 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 7360 ENDIF 7361 C 7362 C-------------------------------------------------------------------- 7363 C STORE FROM WEST 7364 C-------------------------------------------------------------------- 7365 C 7366 IF(MY_NEB(4).GE.0)THEN 7367 IBEG=MYIS-IHALO 7368 IEND=MYIS-1 7369 IC = 0 7370 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) Page 120 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7371 DO K=1,LL1 7372 DO J=MYJS-JHALO,MYJE+JHALO 7373 DO I=IBEG,IEND 7374 IC = IC + 1 7375 ARR1(I,J,K)=BUF0(IC) 7376 ENDDO 7377 ENDDO 7378 ENDDO 7379 DO K=1,LL2 7380 DO J=MYJS-JHALO,MYJE+JHALO 7381 DO I=IBEG,IEND 7382 IC = IC + 1 7383 ARR2(I,J,K)=BUF0(IC) 7384 ENDDO 7385 ENDDO 7386 ENDDO 7387 DO K=1,LL3 7388 DO J=MYJS-JHALO,MYJE+JHALO 7389 DO I=IBEG,IEND 7390 IC = IC + 1 7391 ARR3(I,J,K)=BUF0(IC) 7392 ENDDO 7393 ENDDO 7394 ENDDO 7395 DO K=1,LL4 7396 DO J=MYJS-JHALO,MYJE+JHALO 7397 DO I=IBEG,IEND 7398 IC = IC + 1 7399 ARR4(I,J,K)=BUF0(IC) 7400 ENDDO 7401 ENDDO 7402 ENDDO 7403 DO K=1,LL5 7404 DO J=MYJS-JHALO,MYJE+JHALO 7405 DO I=IBEG,IEND 7406 IC = IC + 1 7407 ARR5(I,J,K)=BUF0(IC) 7408 ENDDO 7409 ENDDO 7410 ENDDO 7411 ENDIF 7412 C 7413 C-------------------------------------------------------------------- 7414 C STORE FROM EAST 7415 C-------------------------------------------------------------------- 7416 C 7417 IF(MY_NEB(2).GE.0)THEN 7418 IBEG=MYIE+1 7419 IEND=MYIE+IHALO 7420 IC = 0 7421 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 7422 DO K=1,LL1 7423 DO J=MYJS-JHALO,MYJE+JHALO 7424 DO I=IBEG,IEND 7425 IC = IC + 1 7426 ARR1(I,J,K)=BUF1(IC) 7427 ENDDO Page 121 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7428 ENDDO 7429 ENDDO 7430 DO K=1,LL2 7431 DO J=MYJS-JHALO,MYJE+JHALO 7432 DO I=IBEG,IEND 7433 IC = IC + 1 7434 ARR2(I,J,K)=BUF1(IC) 7435 ENDDO 7436 ENDDO 7437 ENDDO 7438 DO K=1,LL3 7439 DO J=MYJS-JHALO,MYJE+JHALO 7440 DO I=IBEG,IEND 7441 IC = IC + 1 7442 ARR3(I,J,K)=BUF1(IC) 7443 ENDDO 7444 ENDDO 7445 ENDDO 7446 DO K=1,LL4 7447 DO J=MYJS-JHALO,MYJE+JHALO 7448 DO I=IBEG,IEND 7449 IC = IC + 1 7450 ARR4(I,J,K)=BUF1(IC) 7451 ENDDO 7452 ENDDO 7453 ENDDO 7454 DO K=1,LL5 7455 DO J=MYJS-JHALO,MYJE+JHALO 7456 DO I=IBEG,IEND 7457 IC = IC + 1 7458 ARR5(I,J,K)=BUF1(IC) 7459 ENDDO 7460 ENDDO 7461 ENDDO 7462 ENDIF 7463 C 7464 IF(MY_NEB(4).GE.0)THEN 7465 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 7466 ENDIF 7467 C 7468 IF(MY_NEB(2).GE.0)THEN 7469 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 7470 ENDIF 7471 C 7472 C-------------------------------------------------------------------- 7473 END SUBROUTINE Page 122 Source Listing EXCH11111 2014-12-17 20:46 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 2204 R(4) 4 3 0 ARG,INOUT 2261,2313,2366,2417,2501,2553,2606 ,2657 ARR2 Dummy 2204 R(4) 4 3 0 ARG,INOUT 2269,2321,2374,2425,2509,2561,2614 ,2665 ARR3 Dummy 2204 R(4) 4 3 0 ARG,INOUT 2277,2329,2382,2433,2517,2569,2622 ,2673 ARR4 Dummy 2205 R(4) 4 3 0 ARG,INOUT 2285,2337,2390,2441,2525,2577,2630 ,2681 ARR5 Dummy 2205 R(4) 4 3 0 ARG,INOUT 2293,2345,2398,2449,2533,2585,2638 ,2689 BUF0 Local 2236 R(4) 4 1 2500000 2236,2417,2425,2433,2441,2449,2476 ,2606,2614,2622,2630,2638 BUF1 Local 2245 R(4) 4 1 2500000 2245,2366,2374,2382,2390,2398,2485 ,2657,2665,2673,2681,2689 BUF2 Local 2261 R(4) 4 1 2500000 2261,2269,2277,2285,2293,2297,2501 ,2509,2517,2525,2533,2537 BUF3 Local 2313 R(4) 4 1 2500000 2313,2321,2329,2337,2345,2349,2553 ,2561,2569,2577,2585,2589 EXCH11111 Subr 2204 EXCH_BUF_REAL Module 2206 2206 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 2259 I(4) 4 scalar 2259,2261,2267,2269,2275,2277,2283 ,2285,2291,2293,2311,2313,2319,232 1,2327,2329,2335,2337,2343,2345,23 64,2366,2372,2374,2380,2382,2388,2 390,2396,2398,2415,2417,2423,2425, 2431,2433,2439,2441,2447,2449,2499 ,2501,2507,2509,2515,2517,2523,252 5,2531,2533,2551,2553,2559,2561,25 67,2569,2575,2577,2583,2585,2604,2 606,2612,2614,2620,2622,2628,2630, 2636,2638,2655,2657,2663,2665,2671 ,2673,2679,2681,2687,2689 IBEG Local 2254 I(4) 4 scalar 2254,2259,2267,2275,2283,2291,2306 ,2311,2319,2327,2335,2343,2358,236 4,2372,2380,2388,2396,2409,2415,24 23,2431,2439,2447,2494,2499,2507,2 515,2523,2531,2546,2551,2559,2567, 2575,2583,2598,2604,2612,2620,2628 ,2636,2649,2655,2663,2671,2679,268 7 Page 123 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 2236 I(4) 4 scalar 2236,2245,2476,2485 IC Local 2256 I(4) 4 scalar 2256,2260,2261,2268,2269,2276,2277 ,2284,2285,2292,2293,2297,2308,231 2,2313,2320,2321,2328,2329,2336,23 37,2344,2345,2349,2360,2365,2366,2 373,2374,2381,2382,2389,2390,2397, 2398,2411,2416,2417,2424,2425,2432 ,2433,2440,2441,2448,2449,2496,250 0,2501,2508,2509,2516,2517,2524,25 25,2532,2533,2537,2548,2552,2553,2 560,2561,2568,2569,2576,2577,2584, 2585,2589,2600,2605,2606,2613,2614 ,2621,2622,2629,2630,2637,2638,265 1,2656,2657,2664,2665,2672,2673,26 80,2681,2688,2689 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 2213,2214,2215,2216,2217 IDIM2 Param 19 I(4) 4 scalar 2213,2214,2215,2216,2217 IEND Local 2255 I(4) 4 scalar 2255,2259,2267,2275,2283,2291,2307 ,2311,2319,2327,2335,2343,2359,236 4,2372,2380,2388,2396,2410,2415,24 23,2431,2439,2447,2495,2499,2507,2 515,2523,2531,2547,2551,2559,2567, 2575,2583,2599,2604,2612,2620,2628 ,2636,2650,2655,2663,2671,2679,268 7 IERR Local 2361 I(4) 4 scalar 2361,2412,2456,2460,2601,2652,2696 ,2700 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 2205 I(4) 4 scalar ARG,INOUT 2254,2255,2306,2307,2358,2359,2409 ,2410,2494,2547,2598,2650 IHANDLE Local 2212 I(4) 4 1 4 2237,2246,2298,2350,2361,2412,2456 ,2460,2477,2486,2538,2590,2601,265 2,2696,2700 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 2237 I(4) 4 scalar 2237,2246,2477,2486 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM Page 124 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ISEND Local 2298 I(4) 4 scalar 2298,2350,2538,2590 ISTAT Local 2211 I(4) 4 1 5 2361,2412,2456,2460,2601,2652,2696 ,2700 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 2221 I(4) 4 scalar 2221,2236,2245,2297,2349,2476,2485 ,2537,2589 J Local 2258 I(4) 4 scalar 2258,2261,2266,2269,2274,2277,2282 ,2285,2290,2293,2310,2313,2318,232 1,2326,2329,2334,2337,2342,2345,23 63,2366,2371,2374,2379,2382,2387,2 390,2395,2398,2414,2417,2422,2425, 2430,2433,2438,2441,2446,2449,2498 ,2501,2506,2509,2514,2517,2522,252 5,2530,2533,2550,2553,2558,2561,25 66,2569,2574,2577,2582,2585,2603,2 606,2611,2614,2619,2622,2627,2630, 2635,2638,2654,2657,2662,2665,2670 ,2673,2678,2681,2686,2689 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 2213,2214,2215,2216,2217 JDIM2 Param 20 I(4) 4 scalar 2213,2214,2215,2216,2217 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 2205 I(4) 4 scalar ARG,INOUT 2258,2266,2274,2282,2290,2310,2318 ,2326,2334,2342,2363,2371,2379,238 7,2395,2414,2422,2430,2438,2446,24 98,2506,2514,2522,2530,2550,2558,2 566,2574,2582,2603,2611,2619,2627, 2635,2654,2662,2670,2678,2686 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 2257 I(4) 4 scalar 2257,2261,2265,2269,2273,2277,2281 ,2285,2289,2293,2309,2313,2317,232 1,2325,2329,2333,2337,2341,2345,23 62,2366,2370,2374,2378,2382,2386,2 390,2394,2398,2413,2417,2421,2425, Page 125 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 2429,2433,2437,2441,2445,2449,2497 ,2501,2505,2509,2513,2517,2521,252 5,2529,2533,2549,2553,2557,2561,25 65,2569,2573,2577,2581,2585,2602,2 606,2610,2614,2618,2622,2626,2630, 2634,2638,2653,2657,2661,2665,2669 ,2673,2677,2681,2685,2689 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 2204 I(4) 4 scalar ARG,INOUT 2257,2309,2362,2413,2497,2549,2602 ,2653 LL2 Dummy 2204 I(4) 4 scalar ARG,INOUT 2265,2317,2370,2421,2505,2557,2610 ,2661 LL3 Dummy 2204 I(4) 4 scalar ARG,INOUT 2273,2325,2378,2429,2513,2565,2618 ,2669 LL4 Dummy 2205 I(4) 4 scalar ARG,INOUT 2281,2333,2386,2437,2521,2573,2626 ,2677 LL5 Dummy 2205 I(4) 4 scalar ARG,INOUT 2289,2341,2394,2445,2529,2581,2634 ,2685 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar Page 126 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 2237,2246,2298,2350,2477,2486,2538 ,2590 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar Page 127 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar Page 128 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 2236 2236,2245,2476,2485 MPI_ISEND Subr 2297 2297,2349,2537,2589 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar Page 129 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 2221 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,2211 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar Page 130 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 2361 2361,2412,2456,2460,2601,2652,2696 ,2700 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 2255,2307,2359,2410,2494,2495,2649 ,2650 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 2254,2306,2358,2409,2546,2547,2598 ,2599 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM Page 131 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 2261,2269,2277,2285,2293,2417,2425 ,2433,2441,2449,2498,2506,2514,252 2,2530,2550,2558,2566,2574,2582,26 03,2611,2619,2627,2635,2654,2662,2 670,2678,2686 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 2313,2321,2329,2337,2345,2366,2374 ,2382,2390,2398,2498,2506,2514,252 2,2530,2550,2558,2566,2574,2582,26 03,2611,2619,2627,2635,2654,2662,2 670,2678,2686 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM Page 132 Source Listing EXCH11111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 2297,2349,2537,2589 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 2235,2236,2244,2245,2253,2297,2305 ,2349,2357,2408,2455,2459,2475,247 6,2484,2485,2493,2537,2545,2589,25 97,2648,2695,2699 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 133 Source Listing EXCH11111 2014-12-17 20:46 module_EXCHM.F 7474 7475 SUBROUTINE EXCH111111(ARR1,LL1,ARR2,LL2,ARR3,LL3,ARR4,LL4 7476 1, ARR5,LL5,ARR6,LL6,IHALO,JHALO) 7477 USE EXCH_BUF_REAL 7478 INCLUDE "parmeta" 7501 INCLUDE "mpif.h" 8018 INCLUDE "mpp.h" 8019 C----------------------------------------------------------------------- 8078 INTEGER ISTAT(MPI_STATUS_SIZE) 8079 INTEGER IHANDLE(4) 8080 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2,*) 8081 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 8082 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 8083 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 8084 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 8085 REAL ARR6(IDIM1:IDIM2,JDIM1:JDIM2,*) 8086 C 8087 C*********************************************************************** 8088 C 8089 ITYPE=MPI_REAL 8090 C 8091 C-------------------------------------------------------------------- 8092 C-------------------------------------------------------------------- 8093 C*** 8094 C*** NORTH/SOUTH 8095 C*** 8096 C-------------------------------------------------------------------- 8097 C-------------------------------------------------------------------- 8098 C 8099 C-------------------------------------------------------------------- 8100 C RECEIVE FROM NORTH 8101 C-------------------------------------------------------------------- 8102 C 8103 IF(MY_NEB(1).GE.0)THEN 8104 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 8105 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 8106 ENDIF 8107 C 8108 C-------------------------------------------------------------------- 8109 C RECEIVE FROM SOUTH 8110 C-------------------------------------------------------------------- 8111 C 8112 IF(MY_NEB(3).GE.0)THEN 8113 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 8114 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 8115 ENDIF 8116 C 8117 C-------------------------------------------------------------------- 8118 C SEND TO NORTH 8119 C-------------------------------------------------------------------- 8120 C 8121 IF(MY_NEB(1).GE.0)THEN 8122 IBEG=MYIS-IHALO 8123 IEND=MYIE+IHALO 8124 IC = 0 8125 DO K=1,LL1 8126 DO J=0,JHALO-1 Page 134 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8127 DO I=IBEG,IEND 8128 IC = IC + 1 8129 BUF2(IC)=ARR1(I,MYJE-J,K) 8130 ENDDO 8131 ENDDO 8132 ENDDO 8133 DO K=1,LL2 8134 DO J=0,JHALO-1 8135 DO I=IBEG,IEND 8136 IC = IC + 1 8137 BUF2(IC)=ARR2(I,MYJE-J,K) 8138 ENDDO 8139 ENDDO 8140 ENDDO 8141 DO K=1,LL3 8142 DO J=0,JHALO-1 8143 DO I=IBEG,IEND 8144 IC = IC + 1 8145 BUF2(IC)=ARR3(I,MYJE-J,K) 8146 ENDDO 8147 ENDDO 8148 ENDDO 8149 DO K=1,LL4 8150 DO J=0,JHALO-1 8151 DO I=IBEG,IEND 8152 IC = IC + 1 8153 BUF2(IC)=ARR4(I,MYJE-J,K) 8154 ENDDO 8155 ENDDO 8156 ENDDO 8157 DO K=1,LL5 8158 DO J=0,JHALO-1 8159 DO I=IBEG,IEND 8160 IC = IC + 1 8161 BUF2(IC)=ARR5(I,MYJE-J,K) 8162 ENDDO 8163 ENDDO 8164 ENDDO 8165 DO K=1,LL6 8166 DO J=0,JHALO-1 8167 DO I=IBEG,IEND 8168 IC = IC + 1 8169 BUF2(IC)=ARR6(I,MYJE-J,K) 8170 ENDDO 8171 ENDDO 8172 ENDDO 8173 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 8174 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 8175 ENDIF 8176 C 8177 C-------------------------------------------------------------------- 8178 C SEND TO SOUTH 8179 C-------------------------------------------------------------------- 8180 C 8181 IF(MY_NEB(3).GE.0)THEN 8182 IBEG=MYIS-IHALO 8183 IEND=MYIE+IHALO Page 135 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8184 IC = 0 8185 DO K=1,LL1 8186 DO J=0,JHALO-1 8187 DO I=IBEG,IEND 8188 IC = IC + 1 8189 BUF3(IC)=ARR1(I,MYJS+J,K) 8190 ENDDO 8191 ENDDO 8192 ENDDO 8193 DO K=1,LL2 8194 DO J=0,JHALO-1 8195 DO I=IBEG,IEND 8196 IC = IC + 1 8197 BUF3(IC)=ARR2(I,MYJS+J,K) 8198 ENDDO 8199 ENDDO 8200 ENDDO 8201 DO K=1,LL3 8202 DO J=0,JHALO-1 8203 DO I=IBEG,IEND 8204 IC = IC + 1 8205 BUF3(IC)=ARR3(I,MYJS+J,K) 8206 ENDDO 8207 ENDDO 8208 ENDDO 8209 DO K=1,LL4 8210 DO J=0,JHALO-1 8211 DO I=IBEG,IEND 8212 IC = IC + 1 8213 BUF3(IC)=ARR4(I,MYJS+J,K) 8214 ENDDO 8215 ENDDO 8216 ENDDO 8217 DO K=1,LL5 8218 DO J=0,JHALO-1 8219 DO I=IBEG,IEND 8220 IC = IC + 1 8221 BUF3(IC)=ARR5(I,MYJS+J,K) 8222 ENDDO 8223 ENDDO 8224 ENDDO 8225 DO K=1,LL6 8226 DO J=0,JHALO-1 8227 DO I=IBEG,IEND 8228 IC = IC + 1 8229 BUF3(IC)=ARR6(I,MYJS+J,K) 8230 ENDDO 8231 ENDDO 8232 ENDDO 8233 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 8234 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 8235 ENDIF 8236 C 8237 C-------------------------------------------------------------------- 8238 C STORE RESULTS FROM SOUTH 8239 C-------------------------------------------------------------------- 8240 C Page 136 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8241 IF(MY_NEB(3).GE.0)THEN 8242 IBEG=MYIS-IHALO 8243 IEND=MYIE+IHALO 8244 IC = 0 8245 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 8246 DO K=1,LL1 8247 DO J=0,JHALO-1 8248 DO I=IBEG,IEND 8249 IC = IC + 1 8250 ARR1(I,MYJS-J-1,K)=BUF1(IC) 8251 ENDDO 8252 ENDDO 8253 ENDDO 8254 DO K=1,LL2 8255 DO J=0,JHALO-1 8256 DO I=IBEG,IEND 8257 IC = IC + 1 8258 ARR2(I,MYJS-J-1,K)=BUF1(IC) 8259 ENDDO 8260 ENDDO 8261 ENDDO 8262 DO K=1,LL3 8263 DO J=0,JHALO-1 8264 DO I=IBEG,IEND 8265 IC = IC + 1 8266 ARR3(I,MYJS-J-1,K)=BUF1(IC) 8267 ENDDO 8268 ENDDO 8269 ENDDO 8270 DO K=1,LL4 8271 DO J=0,JHALO-1 8272 DO I=IBEG,IEND 8273 IC = IC + 1 8274 ARR4(I,MYJS-J-1,K)=BUF1(IC) 8275 ENDDO 8276 ENDDO 8277 ENDDO 8278 DO K=1,LL5 8279 DO J=0,JHALO-1 8280 DO I=IBEG,IEND 8281 IC = IC + 1 8282 ARR5(I,MYJS-J-1,K)=BUF1(IC) 8283 ENDDO 8284 ENDDO 8285 ENDDO 8286 DO K=1,LL6 8287 DO J=0,JHALO-1 8288 DO I=IBEG,IEND 8289 IC = IC + 1 8290 ARR6(I,MYJS-J-1,K)=BUF1(IC) 8291 ENDDO 8292 ENDDO 8293 ENDDO 8294 ENDIF 8295 C 8296 C-------------------------------------------------------------------- 8297 C STORE FROM NORTH Page 137 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8298 C-------------------------------------------------------------------- 8299 C 8300 IF(MY_NEB(1).GE.0)THEN 8301 IBEG=MYIS-IHALO 8302 IEND=MYIE+IHALO 8303 IC = 0 8304 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 8305 DO K=1,LL1 8306 DO J=0,JHALO-1 8307 DO I=IBEG,IEND 8308 IC = IC + 1 8309 ARR1(I,MYJE+J+1,K)=BUF0(IC) 8310 ENDDO 8311 ENDDO 8312 ENDDO 8313 DO K=1,LL2 8314 DO J=0,JHALO-1 8315 DO I=IBEG,IEND 8316 IC = IC + 1 8317 ARR2(I,MYJE+J+1,K)=BUF0(IC) 8318 ENDDO 8319 ENDDO 8320 ENDDO 8321 DO K=1,LL3 8322 DO J=0,JHALO-1 8323 DO I=IBEG,IEND 8324 IC = IC + 1 8325 ARR3(I,MYJE+J+1,K)=BUF0(IC) 8326 ENDDO 8327 ENDDO 8328 ENDDO 8329 DO K=1,LL4 8330 DO J=0,JHALO-1 8331 DO I=IBEG,IEND 8332 IC = IC + 1 8333 ARR4(I,MYJE+J+1,K)=BUF0(IC) 8334 ENDDO 8335 ENDDO 8336 ENDDO 8337 DO K=1,LL5 8338 DO J=0,JHALO-1 8339 DO I=IBEG,IEND 8340 IC = IC + 1 8341 ARR5(I,MYJE+J+1,K)=BUF0(IC) 8342 ENDDO 8343 ENDDO 8344 ENDDO 8345 DO K=1,LL6 8346 DO J=0,JHALO-1 8347 DO I=IBEG,IEND 8348 IC = IC + 1 8349 ARR6(I,MYJE+J+1,K)=BUF0(IC) 8350 ENDDO 8351 ENDDO 8352 ENDDO 8353 ENDIF 8354 C Page 138 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8355 IF(MY_NEB(1).GE.0)THEN 8356 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 8357 ENDIF 8358 C 8359 IF(MY_NEB(3).GE.0)THEN 8360 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 8361 ENDIF 8362 C 8363 C-------------------------------------------------------------------- 8364 C-------------------------------------------------------------------- 8365 C*** 8366 C*** EAST/WEST 8367 C*** 8368 C-------------------------------------------------------------------- 8369 C-------------------------------------------------------------------- 8370 C 8371 C-------------------------------------------------------------------- 8372 C RECEIVE FROM WEST 8373 C-------------------------------------------------------------------- 8374 C 8375 IF(MY_NEB(4).GE.0)THEN 8376 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 8377 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 8378 ENDIF 8379 C 8380 C-------------------------------------------------------------------- 8381 C RECEIVE FROM EAST 8382 C-------------------------------------------------------------------- 8383 C 8384 IF(MY_NEB(2).GE.0)THEN 8385 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 8386 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 8387 ENDIF 8388 C 8389 C-------------------------------------------------------------------- 8390 C SEND TO EAST 8391 C-------------------------------------------------------------------- 8392 C 8393 IF(MY_NEB(2).GE.0)THEN 8394 IBEG=MYIE-IHALO+1 8395 IEND=MYIE 8396 IC = 0 8397 DO K=1,LL1 8398 DO J=MYJS-JHALO,MYJE+JHALO 8399 DO I=IBEG,IEND 8400 IC = IC + 1 8401 BUF2(IC)=ARR1(I,J,K) 8402 ENDDO 8403 ENDDO 8404 ENDDO 8405 DO K=1,LL2 8406 DO J=MYJS-JHALO,MYJE+JHALO 8407 DO I=IBEG,IEND 8408 IC = IC + 1 8409 BUF2(IC)=ARR2(I,J,K) 8410 ENDDO 8411 ENDDO Page 139 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8412 ENDDO 8413 DO K=1,LL3 8414 DO J=MYJS-JHALO,MYJE+JHALO 8415 DO I=IBEG,IEND 8416 IC = IC + 1 8417 BUF2(IC)=ARR3(I,J,K) 8418 ENDDO 8419 ENDDO 8420 ENDDO 8421 DO K=1,LL4 8422 DO J=MYJS-JHALO,MYJE+JHALO 8423 DO I=IBEG,IEND 8424 IC = IC + 1 8425 BUF2(IC)=ARR4(I,J,K) 8426 ENDDO 8427 ENDDO 8428 ENDDO 8429 DO K=1,LL5 8430 DO J=MYJS-JHALO,MYJE+JHALO 8431 DO I=IBEG,IEND 8432 IC = IC + 1 8433 BUF2(IC)=ARR5(I,J,K) 8434 ENDDO 8435 ENDDO 8436 ENDDO 8437 DO K=1,LL6 8438 DO J=MYJS-JHALO,MYJE+JHALO 8439 DO I=IBEG,IEND 8440 IC = IC + 1 8441 BUF2(IC)=ARR6(I,J,K) 8442 ENDDO 8443 ENDDO 8444 ENDDO 8445 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 8446 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 8447 ENDIF 8448 C 8449 C-------------------------------------------------------------------- 8450 C SEND TO WEST 8451 C-------------------------------------------------------------------- 8452 C 8453 IF(MY_NEB(4).GE.0)THEN 8454 IBEG=MYIS 8455 IEND=MYIS+IHALO-1 8456 IC = 0 8457 DO K=1,LL1 8458 DO J=MYJS-JHALO,MYJE+JHALO 8459 DO I=IBEG,IEND 8460 IC = IC + 1 8461 BUF3(IC)=ARR1(I,J,K) 8462 ENDDO 8463 ENDDO 8464 ENDDO 8465 DO K=1,LL2 8466 DO J=MYJS-JHALO,MYJE+JHALO 8467 DO I=IBEG,IEND 8468 IC = IC + 1 Page 140 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8469 BUF3(IC)=ARR2(I,J,K) 8470 ENDDO 8471 ENDDO 8472 ENDDO 8473 DO K=1,LL3 8474 DO J=MYJS-JHALO,MYJE+JHALO 8475 DO I=IBEG,IEND 8476 IC = IC + 1 8477 BUF3(IC)=ARR3(I,J,K) 8478 ENDDO 8479 ENDDO 8480 ENDDO 8481 DO K=1,LL4 8482 DO J=MYJS-JHALO,MYJE+JHALO 8483 DO I=IBEG,IEND 8484 IC = IC + 1 8485 BUF3(IC)=ARR4(I,J,K) 8486 ENDDO 8487 ENDDO 8488 ENDDO 8489 DO K=1,LL5 8490 DO J=MYJS-JHALO,MYJE+JHALO 8491 DO I=IBEG,IEND 8492 IC = IC + 1 8493 BUF3(IC)=ARR5(I,J,K) 8494 ENDDO 8495 ENDDO 8496 ENDDO 8497 DO K=1,LL6 8498 DO J=MYJS-JHALO,MYJE+JHALO 8499 DO I=IBEG,IEND 8500 IC = IC + 1 8501 BUF3(IC)=ARR6(I,J,K) 8502 ENDDO 8503 ENDDO 8504 ENDDO 8505 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 8506 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 8507 ENDIF 8508 C 8509 C-------------------------------------------------------------------- 8510 C STORE FROM WEST 8511 C-------------------------------------------------------------------- 8512 C 8513 IF(MY_NEB(4).GE.0)THEN 8514 IBEG=MYIS-IHALO 8515 IEND=MYIS-1 8516 IC = 0 8517 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 8518 DO K=1,LL1 8519 DO J=MYJS-JHALO,MYJE+JHALO 8520 DO I=IBEG,IEND 8521 IC = IC + 1 8522 ARR1(I,J,K)=BUF0(IC) 8523 ENDDO 8524 ENDDO 8525 ENDDO Page 141 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8526 DO K=1,LL2 8527 DO J=MYJS-JHALO,MYJE+JHALO 8528 DO I=IBEG,IEND 8529 IC = IC + 1 8530 ARR2(I,J,K)=BUF0(IC) 8531 ENDDO 8532 ENDDO 8533 ENDDO 8534 DO K=1,LL3 8535 DO J=MYJS-JHALO,MYJE+JHALO 8536 DO I=IBEG,IEND 8537 IC = IC + 1 8538 ARR3(I,J,K)=BUF0(IC) 8539 ENDDO 8540 ENDDO 8541 ENDDO 8542 DO K=1,LL4 8543 DO J=MYJS-JHALO,MYJE+JHALO 8544 DO I=IBEG,IEND 8545 IC = IC + 1 8546 ARR4(I,J,K)=BUF0(IC) 8547 ENDDO 8548 ENDDO 8549 ENDDO 8550 DO K=1,LL5 8551 DO J=MYJS-JHALO,MYJE+JHALO 8552 DO I=IBEG,IEND 8553 IC = IC + 1 8554 ARR5(I,J,K)=BUF0(IC) 8555 ENDDO 8556 ENDDO 8557 ENDDO 8558 DO K=1,LL6 8559 DO J=MYJS-JHALO,MYJE+JHALO 8560 DO I=IBEG,IEND 8561 IC = IC + 1 8562 ARR6(I,J,K)=BUF0(IC) 8563 ENDDO 8564 ENDDO 8565 ENDDO 8566 ENDIF 8567 C 8568 C-------------------------------------------------------------------- 8569 C STORE FROM EAST 8570 C-------------------------------------------------------------------- 8571 C 8572 IF(MY_NEB(2).GE.0)THEN 8573 IBEG=MYIE+1 8574 IEND=MYIE+IHALO 8575 IC = 0 8576 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 8577 DO K=1,LL1 8578 DO J=MYJS-JHALO,MYJE+JHALO 8579 DO I=IBEG,IEND 8580 IC = IC + 1 8581 ARR1(I,J,K)=BUF1(IC) 8582 ENDDO Page 142 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8583 ENDDO 8584 ENDDO 8585 DO K=1,LL2 8586 DO J=MYJS-JHALO,MYJE+JHALO 8587 DO I=IBEG,IEND 8588 IC = IC + 1 8589 ARR2(I,J,K)=BUF1(IC) 8590 ENDDO 8591 ENDDO 8592 ENDDO 8593 DO K=1,LL3 8594 DO J=MYJS-JHALO,MYJE+JHALO 8595 DO I=IBEG,IEND 8596 IC = IC + 1 8597 ARR3(I,J,K)=BUF1(IC) 8598 ENDDO 8599 ENDDO 8600 ENDDO 8601 DO K=1,LL4 8602 DO J=MYJS-JHALO,MYJE+JHALO 8603 DO I=IBEG,IEND 8604 IC = IC + 1 8605 ARR4(I,J,K)=BUF1(IC) 8606 ENDDO 8607 ENDDO 8608 ENDDO 8609 DO K=1,LL5 8610 DO J=MYJS-JHALO,MYJE+JHALO 8611 DO I=IBEG,IEND 8612 IC = IC + 1 8613 ARR5(I,J,K)=BUF1(IC) 8614 ENDDO 8615 ENDDO 8616 ENDDO 8617 DO K=1,LL6 8618 DO J=MYJS-JHALO,MYJE+JHALO 8619 DO I=IBEG,IEND 8620 IC = IC + 1 8621 ARR6(I,J,K)=BUF1(IC) 8622 ENDDO 8623 ENDDO 8624 ENDDO 8625 ENDIF 8626 C 8627 IF(MY_NEB(4).GE.0)THEN 8628 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 8629 ENDIF 8630 C 8631 IF(MY_NEB(2).GE.0)THEN 8632 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 8633 ENDIF 8634 C 8635 C-------------------------------------------------------------------- 8636 END SUBROUTINE Page 143 Source Listing EXCH111111 2014-12-17 20:46 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 2706 R(4) 4 3 0 ARG,INOUT 2764,2824,2885,2944,3036,3096,3157 ,3216 ARR2 Dummy 2706 R(4) 4 3 0 ARG,INOUT 2772,2832,2893,2952,3044,3104,3165 ,3224 ARR3 Dummy 2706 R(4) 4 3 0 ARG,INOUT 2780,2840,2901,2960,3052,3112,3173 ,3232 ARR4 Dummy 2706 R(4) 4 3 0 ARG,INOUT 2788,2848,2909,2968,3060,3120,3181 ,3240 ARR5 Dummy 2707 R(4) 4 3 0 ARG,INOUT 2796,2856,2917,2976,3068,3128,3189 ,3248 ARR6 Dummy 2707 R(4) 4 3 0 ARG,INOUT 2804,2864,2925,2984,3076,3136,3197 ,3256 BUF0 Local 2739 R(4) 4 1 2500000 2739,2944,2952,2960,2968,2976,2984 ,3011,3157,3165,3173,3181,3189,319 7 BUF1 Local 2748 R(4) 4 1 2500000 2748,2885,2893,2901,2909,2917,2925 ,3020,3216,3224,3232,3240,3248,325 6 BUF2 Local 2764 R(4) 4 1 2500000 2764,2772,2780,2788,2796,2804,2808 ,3036,3044,3052,3060,3068,3076,308 0 BUF3 Local 2824 R(4) 4 1 2500000 2824,2832,2840,2848,2856,2864,2868 ,3096,3104,3112,3120,3128,3136,314 0 EXCH111111 Subr 2706 EXCH_BUF_REAL Module 2708 2708 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 2762 I(4) 4 scalar 2762,2764,2770,2772,2778,2780,2786 ,2788,2794,2796,2802,2804,2822,282 4,2830,2832,2838,2840,2846,2848,28 54,2856,2862,2864,2883,2885,2891,2 893,2899,2901,2907,2909,2915,2917, 2923,2925,2942,2944,2950,2952,2958 ,2960,2966,2968,2974,2976,2982,298 4,3034,3036,3042,3044,3050,3052,30 58,3060,3066,3068,3074,3076,3094,3 096,3102,3104,3110,3112,3118,3120, 3126,3128,3134,3136,3155,3157,3163 ,3165,3171,3173,3179,3181,3187,318 9,3195,3197,3214,3216,3222,3224,32 30,3232,3238,3240,3246,3248,3254,3 Page 144 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 256 IBEG Local 2757 I(4) 4 scalar 2757,2762,2770,2778,2786,2794,2802 ,2817,2822,2830,2838,2846,2854,286 2,2877,2883,2891,2899,2907,2915,29 23,2936,2942,2950,2958,2966,2974,2 982,3029,3034,3042,3050,3058,3066, 3074,3089,3094,3102,3110,3118,3126 ,3134,3149,3155,3163,3171,3179,318 7,3195,3208,3214,3222,3230,3238,32 46,3254 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 2739 I(4) 4 scalar 2739,2748,3011,3020 IC Local 2759 I(4) 4 scalar 2759,2763,2764,2771,2772,2779,2780 ,2787,2788,2795,2796,2803,2804,280 8,2819,2823,2824,2831,2832,2839,28 40,2847,2848,2855,2856,2863,2864,2 868,2879,2884,2885,2892,2893,2900, 2901,2908,2909,2916,2917,2924,2925 ,2938,2943,2944,2951,2952,2959,296 0,2967,2968,2975,2976,2983,2984,30 31,3035,3036,3043,3044,3051,3052,3 059,3060,3067,3068,3075,3076,3080, 3091,3095,3096,3103,3104,3111,3112 ,3119,3120,3127,3128,3135,3136,314 0,3151,3156,3157,3164,3165,3172,31 73,3180,3181,3188,3189,3196,3197,3 210,3215,3216,3223,3224,3231,3232, 3239,3240,3247,3248,3255,3256 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 2715,2716,2717,2718,2719,2720 IDIM2 Param 19 I(4) 4 scalar 2715,2716,2717,2718,2719,2720 IEND Local 2758 I(4) 4 scalar 2758,2762,2770,2778,2786,2794,2802 ,2818,2822,2830,2838,2846,2854,286 2,2878,2883,2891,2899,2907,2915,29 23,2937,2942,2950,2958,2966,2974,2 982,3030,3034,3042,3050,3058,3066, 3074,3090,3094,3102,3110,3118,3126 ,3134,3150,3155,3163,3171,3179,318 7,3195,3209,3214,3222,3230,3238,32 46,3254 IERR Local 2880 I(4) 4 scalar 2880,2939,2991,2995,3152,3211,3263 ,3267 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 2707 I(4) 4 scalar ARG,INOUT 2757,2758,2817,2818,2877,2878,2936 ,2937,3029,3090,3149,3209 IHANDLE Local 2714 I(4) 4 1 4 2740,2749,2809,2869,2880,2939,2991 ,2995,3012,3021,3081,3141,3152,321 1,3263,3267 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM Page 145 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 2740 I(4) 4 scalar 2740,2749,3012,3021 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 2809 I(4) 4 scalar 2809,2869,3081,3141 ISTAT Local 2713 I(4) 4 1 5 2880,2939,2991,2995,3152,3211,3263 ,3267 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 2724 I(4) 4 scalar 2724,2739,2748,2808,2868,3011,3020 ,3080,3140 J Local 2761 I(4) 4 scalar 2761,2764,2769,2772,2777,2780,2785 ,2788,2793,2796,2801,2804,2821,282 4,2829,2832,2837,2840,2845,2848,28 53,2856,2861,2864,2882,2885,2890,2 893,2898,2901,2906,2909,2914,2917, 2922,2925,2941,2944,2949,2952,2957 ,2960,2965,2968,2973,2976,2981,298 4,3033,3036,3041,3044,3049,3052,30 57,3060,3065,3068,3073,3076,3093,3 096,3101,3104,3109,3112,3117,3120, 3125,3128,3133,3136,3154,3157,3162 ,3165,3170,3173,3178,3181,3186,318 9,3194,3197,3213,3216,3221,3224,32 29,3232,3237,3240,3245,3248,3253,3 256 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 2715,2716,2717,2718,2719,2720 JDIM2 Param 20 I(4) 4 scalar 2715,2716,2717,2718,2719,2720 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 2707 I(4) 4 scalar ARG,INOUT 2761,2769,2777,2785,2793,2801,2821 ,2829,2837,2845,2853,2861,2882,289 0,2898,2906,2914,2922,2941,2949,29 57,2965,2973,2981,3033,3041,3049,3 057,3065,3073,3093,3101,3109,3117, Page 146 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 3125,3133,3154,3162,3170,3178,3186 ,3194,3213,3221,3229,3237,3245,325 3 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 2760 I(4) 4 scalar 2760,2764,2768,2772,2776,2780,2784 ,2788,2792,2796,2800,2804,2820,282 4,2828,2832,2836,2840,2844,2848,28 52,2856,2860,2864,2881,2885,2889,2 893,2897,2901,2905,2909,2913,2917, 2921,2925,2940,2944,2948,2952,2956 ,2960,2964,2968,2972,2976,2980,298 4,3032,3036,3040,3044,3048,3052,30 56,3060,3064,3068,3072,3076,3092,3 096,3100,3104,3108,3112,3116,3120, 3124,3128,3132,3136,3153,3157,3161 ,3165,3169,3173,3177,3181,3185,318 9,3193,3197,3212,3216,3220,3224,32 28,3232,3236,3240,3244,3248,3252,3 256 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 2706 I(4) 4 scalar ARG,INOUT 2760,2820,2881,2940,3032,3092,3153 ,3212 LL2 Dummy 2706 I(4) 4 scalar ARG,INOUT 2768,2828,2889,2948,3040,3100,3161 ,3220 LL3 Dummy 2706 I(4) 4 scalar ARG,INOUT 2776,2836,2897,2956,3048,3108,3169 ,3228 LL4 Dummy 2706 I(4) 4 scalar ARG,INOUT 2784,2844,2905,2964,3056,3116,3177 ,3236 LL5 Dummy 2707 I(4) 4 scalar ARG,INOUT 2792,2852,2913,2972,3064,3124,3185 ,3244 LL6 Dummy 2707 I(4) 4 scalar ARG,INOUT 2800,2860,2921,2980,3072,3132,3193 ,3252 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar Page 147 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 2740,2749,2809,2869,3012,3021,3081 ,3141 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar Page 148 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar Page 149 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 2739 2739,2748,3011,3020 MPI_ISEND Subr 2808 2808,2868,3080,3140 Page 150 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 2724 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar Page 151 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,2713 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 2880 2880,2939,2991,2995,3152,3211,3263 ,3267 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar Page 152 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 2758,2818,2878,2937,3029,3030,3208 ,3209 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 2757,2817,2877,2936,3089,3090,3149 ,3150 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 2764,2772,2780,2788,2796,2804,2944 ,2952,2960,2968,2976,2984,3033,304 1,3049,3057,3065,3073,3093,3101,31 09,3117,3125,3133,3154,3162,3170,3 178,3186,3194,3213,3221,3229,3237, 3245,3253 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM Page 153 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 2824,2832,2840,2848,2856,2864,2885 ,2893,2901,2909,2917,2925,3033,304 1,3049,3057,3065,3073,3093,3101,31 09,3117,3125,3133,3154,3162,3170,3 178,3186,3194,3213,3221,3229,3237, 3245,3253 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 2808,2868,3080,3140 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 2738,2739,2747,2748,2756,2808,2816 ,2868,2876,2935,2990,2994,3010,301 1,3019,3020,3028,3080,3088,3140,31 48,3207,3262,3266 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM Page 154 Source Listing EXCH111111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 155 Source Listing EXCH111111 2014-12-17 20:46 module_EXCHM.F 8637 8638 SUBROUTINE EXCH011(ARR1,LL1,ARR2,LL2,ARR3,LL3,IHALO,JHALO) 8639 USE EXCH_BUF_REAL 8640 INCLUDE "parmeta" 8663 INCLUDE "mpif.h" 9180 INCLUDE "mpp.h" 9181 C----------------------------------------------------------------------- 9240 INTEGER ISTAT(MPI_STATUS_SIZE) 9241 INTEGER IHANDLE(4) 9242 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 9243 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2,*) 9244 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2,*) 9245 C 9246 C*********************************************************************** 9247 C 9248 ITYPE=MPI_REAL 9249 C 9250 C-------------------------------------------------------------------- 9251 C-------------------------------------------------------------------- 9252 C*** 9253 C*** NORTH/SOUTH 9254 C*** 9255 C-------------------------------------------------------------------- 9256 C-------------------------------------------------------------------- 9257 C 9258 C-------------------------------------------------------------------- 9259 C RECEIVE FROM NORTH 9260 C-------------------------------------------------------------------- 9261 C 9262 IF(MY_NEB(1).GE.0)THEN 9263 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 9264 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 9265 ENDIF 9266 C 9267 C-------------------------------------------------------------------- 9268 C RECEIVE FROM SOUTH 9269 C-------------------------------------------------------------------- 9270 C 9271 IF(MY_NEB(3).GE.0)THEN 9272 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 9273 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 9274 ENDIF 9275 C 9276 C-------------------------------------------------------------------- 9277 C SEND TO NORTH 9278 C-------------------------------------------------------------------- 9279 C 9280 IF(MY_NEB(1).GE.0)THEN 9281 IBEG=MYIS-IHALO 9282 IEND=MYIE+IHALO 9283 IC = 0 9284 DO J=0,JHALO-1 9285 DO I=IBEG,IEND 9286 IC = IC + 1 9287 BUF2(IC)=ARR1(I,MYJE-J) 9288 ENDDO 9289 ENDDO Page 156 Source Listing EXCH011 2014-12-17 20:46 module_EXCHM.F 9290 DO K=1,LL2 9291 DO J=0,JHALO-1 9292 DO I=IBEG,IEND 9293 IC = IC + 1 9294 BUF2(IC)=ARR2(I,MYJE-J,K) 9295 ENDDO 9296 ENDDO 9297 ENDDO 9298 DO K=1,LL3 9299 DO J=0,JHALO-1 9300 DO I=IBEG,IEND 9301 IC = IC + 1 9302 BUF2(IC)=ARR3(I,MYJE-J,K) 9303 ENDDO 9304 ENDDO 9305 ENDDO 9306 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 9307 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 9308 ENDIF 9309 C 9310 C-------------------------------------------------------------------- 9311 C SEND TO SOUTH 9312 C-------------------------------------------------------------------- 9313 C 9314 IF(MY_NEB(3).GE.0)THEN 9315 IBEG=MYIS-IHALO 9316 IEND=MYIE+IHALO 9317 IC = 0 9318 DO J=0,JHALO-1 9319 DO I=IBEG,IEND 9320 IC = IC + 1 9321 BUF3(IC)=ARR1(I,MYJS+J) 9322 ENDDO 9323 ENDDO 9324 DO K=1,LL2 9325 DO J=0,JHALO-1 9326 DO I=IBEG,IEND 9327 IC = IC + 1 9328 BUF3(IC)=ARR2(I,MYJS+J,K) 9329 ENDDO 9330 ENDDO 9331 ENDDO 9332 DO K=1,LL3 9333 DO J=0,JHALO-1 9334 DO I=IBEG,IEND 9335 IC = IC + 1 9336 BUF3(IC)=ARR3(I,MYJS+J,K) 9337 ENDDO 9338 ENDDO 9339 ENDDO 9340 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 9341 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 9342 ENDIF 9343 C 9344 C-------------------------------------------------------------------- 9345 C STORE RESULTS FROM SOUTH 9346 C-------------------------------------------------------------------- Page 157 Source Listing EXCH011 2014-12-17 20:46 module_EXCHM.F 9347 C 9348 IF(MY_NEB(3).GE.0)THEN 9349 IBEG=MYIS-IHALO 9350 IEND=MYIE+IHALO 9351 IC = 0 9352 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 9353 DO J=0,JHALO-1 9354 DO I=IBEG,IEND 9355 IC = IC + 1 9356 ARR1(I,MYJS-J-1)=BUF1(IC) 9357 ENDDO 9358 ENDDO 9359 DO K=1,LL2 9360 DO J=0,JHALO-1 9361 DO I=IBEG,IEND 9362 IC = IC + 1 9363 ARR2(I,MYJS-J-1,K)=BUF1(IC) 9364 ENDDO 9365 ENDDO 9366 ENDDO 9367 DO K=1,LL3 9368 DO J=0,JHALO-1 9369 DO I=IBEG,IEND 9370 IC = IC + 1 9371 ARR3(I,MYJS-J-1,K)=BUF1(IC) 9372 ENDDO 9373 ENDDO 9374 ENDDO 9375 ENDIF 9376 C 9377 C-------------------------------------------------------------------- 9378 C STORE FROM NORTH 9379 C-------------------------------------------------------------------- 9380 C 9381 IF(MY_NEB(1).GE.0)THEN 9382 IBEG=MYIS-IHALO 9383 IEND=MYIE+IHALO 9384 IC = 0 9385 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 9386 DO J=0,JHALO-1 9387 DO I=IBEG,IEND 9388 IC = IC + 1 9389 ARR1(I,MYJE+J+1)=BUF0(IC) 9390 ENDDO 9391 ENDDO 9392 DO K=1,LL2 9393 DO J=0,JHALO-1 9394 DO I=IBEG,IEND 9395 IC = IC + 1 9396 ARR2(I,MYJE+J+1,K)=BUF0(IC) 9397 ENDDO 9398 ENDDO 9399 ENDDO 9400 DO K=1,LL3 9401 DO J=0,JHALO-1 9402 DO I=IBEG,IEND 9403 IC = IC + 1 Page 158 Source Listing EXCH011 2014-12-17 20:46 module_EXCHM.F 9404 ARR3(I,MYJE+J+1,K)=BUF0(IC) 9405 ENDDO 9406 ENDDO 9407 ENDDO 9408 ENDIF 9409 C 9410 IF(MY_NEB(1).GE.0)THEN 9411 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 9412 ENDIF 9413 C 9414 IF(MY_NEB(3).GE.0)THEN 9415 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 9416 ENDIF 9417 C 9418 C-------------------------------------------------------------------- 9419 C-------------------------------------------------------------------- 9420 C*** 9421 C*** EAST/WEST 9422 C*** 9423 C-------------------------------------------------------------------- 9424 C-------------------------------------------------------------------- 9425 C 9426 C-------------------------------------------------------------------- 9427 C RECEIVE FROM WEST 9428 C-------------------------------------------------------------------- 9429 C 9430 IF(MY_NEB(4).GE.0)THEN 9431 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 9432 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 9433 ENDIF 9434 C 9435 C-------------------------------------------------------------------- 9436 C RECEIVE FROM EAST 9437 C-------------------------------------------------------------------- 9438 C 9439 IF(MY_NEB(2).GE.0)THEN 9440 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 9441 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 9442 ENDIF 9443 C 9444 C-------------------------------------------------------------------- 9445 C SEND TO EAST 9446 C-------------------------------------------------------------------- 9447 C 9448 IF(MY_NEB(2).GE.0)THEN 9449 IBEG=MYIE-IHALO+1 9450 IEND=MYIE 9451 IC = 0 9452 DO J=MYJS-JHALO,MYJE+JHALO 9453 DO I=IBEG,IEND 9454 IC = IC + 1 9455 BUF2(IC)=ARR1(I,J) 9456 ENDDO 9457 ENDDO 9458 DO K=1,LL2 9459 DO J=MYJS-JHALO,MYJE+JHALO 9460 DO I=IBEG,IEND Page 159 Source Listing EXCH011 2014-12-17 20:46 module_EXCHM.F 9461 IC = IC + 1 9462 BUF2(IC)=ARR2(I,J,K) 9463 ENDDO 9464 ENDDO 9465 ENDDO 9466 DO K=1,LL3 9467 DO J=MYJS-JHALO,MYJE+JHALO 9468 DO I=IBEG,IEND 9469 IC = IC + 1 9470 BUF2(IC)=ARR3(I,J,K) 9471 ENDDO 9472 ENDDO 9473 ENDDO 9474 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 9475 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 9476 ENDIF 9477 C 9478 C-------------------------------------------------------------------- 9479 C SEND TO WEST 9480 C-------------------------------------------------------------------- 9481 C 9482 IF(MY_NEB(4).GE.0)THEN 9483 IBEG=MYIS 9484 IEND=MYIS+IHALO-1 9485 IC = 0 9486 DO J=MYJS-JHALO,MYJE+JHALO 9487 DO I=IBEG,IEND 9488 IC = IC + 1 9489 BUF3(IC)=ARR1(I,J) 9490 ENDDO 9491 ENDDO 9492 DO K=1,LL2 9493 DO J=MYJS-JHALO,MYJE+JHALO 9494 DO I=IBEG,IEND 9495 IC = IC + 1 9496 BUF3(IC)=ARR2(I,J,K) 9497 ENDDO 9498 ENDDO 9499 ENDDO 9500 DO K=1,LL3 9501 DO J=MYJS-JHALO,MYJE+JHALO 9502 DO I=IBEG,IEND 9503 IC = IC + 1 9504 BUF3(IC)=ARR3(I,J,K) 9505 ENDDO 9506 ENDDO 9507 ENDDO 9508 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 9509 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 9510 ENDIF 9511 C 9512 C-------------------------------------------------------------------- 9513 C STORE FROM WEST 9514 C-------------------------------------------------------------------- 9515 C 9516 IF(MY_NEB(4).GE.0)THEN 9517 IBEG=MYIS-IHALO Page 160 Source Listing EXCH011 2014-12-17 20:46 module_EXCHM.F 9518 IEND=MYIS-1 9519 IC = 0 9520 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 9521 DO J=MYJS-JHALO,MYJE+JHALO 9522 DO I=IBEG,IEND 9523 IC = IC + 1 9524 ARR1(I,J)=BUF0(IC) 9525 ENDDO 9526 ENDDO 9527 DO K=1,LL2 9528 DO J=MYJS-JHALO,MYJE+JHALO 9529 DO I=IBEG,IEND 9530 IC = IC + 1 9531 ARR2(I,J,K)=BUF0(IC) 9532 ENDDO 9533 ENDDO 9534 ENDDO 9535 DO K=1,LL3 9536 DO J=MYJS-JHALO,MYJE+JHALO 9537 DO I=IBEG,IEND 9538 IC = IC + 1 9539 ARR3(I,J,K)=BUF0(IC) 9540 ENDDO 9541 ENDDO 9542 ENDDO 9543 ENDIF 9544 C 9545 C-------------------------------------------------------------------- 9546 C STORE FROM EAST 9547 C-------------------------------------------------------------------- 9548 C 9549 IF(MY_NEB(2).GE.0)THEN 9550 IBEG=MYIE+1 9551 IEND=MYIE+IHALO 9552 IC = 0 9553 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 9554 DO J=MYJS-JHALO,MYJE+JHALO 9555 DO I=IBEG,IEND 9556 IC = IC + 1 9557 ARR1(I,J)=BUF1(IC) 9558 ENDDO 9559 ENDDO 9560 DO K=1,LL2 9561 DO J=MYJS-JHALO,MYJE+JHALO 9562 DO I=IBEG,IEND 9563 IC = IC + 1 9564 ARR2(I,J,K)=BUF1(IC) 9565 ENDDO 9566 ENDDO 9567 ENDDO 9568 DO K=1,LL3 9569 DO J=MYJS-JHALO,MYJE+JHALO 9570 DO I=IBEG,IEND 9571 IC = IC + 1 9572 ARR3(I,J,K)=BUF1(IC) 9573 ENDDO 9574 ENDDO Page 161 Source Listing EXCH011 2014-12-17 20:46 module_EXCHM.F 9575 ENDDO 9576 ENDIF 9577 C 9578 IF(MY_NEB(4).GE.0)THEN 9579 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 9580 ENDIF 9581 C 9582 IF(MY_NEB(2).GE.0)THEN 9583 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 9584 ENDIF 9585 C 9586 C-------------------------------------------------------------------- 9587 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch011_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 3273 R(4) 4 2 17955 ARG,INOUT 3326,3360,3395,3428,3494,3528,3563 ,3596 ARR2 Dummy 3273 R(4) 4 3 0 ARG,INOUT 3333,3367,3402,3435,3501,3535,3570 ,3603 ARR3 Dummy 3273 R(4) 4 3 0 ARG,INOUT 3341,3375,3410,3443,3509,3543,3578 ,3611 BUF0 Local 3302 R(4) 4 1 2500000 3302,3428,3435,3443,3470,3563,3570 ,3578 BUF1 Local 3311 R(4) 4 1 2500000 3311,3395,3402,3410,3479,3596,3603 ,3611 BUF2 Local 3326 R(4) 4 1 2500000 3326,3333,3341,3345,3494,3501,3509 ,3513 BUF3 Local 3360 R(4) 4 1 2500000 3360,3367,3375,3379,3528,3535,3543 ,3547 EXCH011 Subr 3273 EXCH_BUF_REAL Module 3274 3274 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 3324 I(4) 4 scalar 3324,3326,3331,3333,3339,3341,3358 ,3360,3365,3367,3373,3375,3393,339 5,3400,3402,3408,3410,3426,3428,34 33,3435,3441,3443,3492,3494,3499,3 501,3507,3509,3526,3528,3533,3535, 3541,3543,3561,3563,3568,3570,3576 ,3578,3594,3596,3601,3603,3609,361 1 IBEG Local 3320 I(4) 4 scalar 3320,3324,3331,3339,3354,3358,3365 ,3373,3388,3393,3400,3408,3421,342 6,3433,3441,3488,3492,3499,3507,35 Page 162 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 22,3526,3533,3541,3556,3561,3568,3 576,3589,3594,3601,3609 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 3302 I(4) 4 scalar 3302,3311,3470,3479 IC Local 3322 I(4) 4 scalar 3322,3325,3326,3332,3333,3340,3341 ,3345,3356,3359,3360,3366,3367,337 4,3375,3379,3390,3394,3395,3401,34 02,3409,3410,3423,3427,3428,3434,3 435,3442,3443,3490,3493,3494,3500, 3501,3508,3509,3513,3524,3527,3528 ,3534,3535,3542,3543,3547,3558,356 2,3563,3569,3570,3577,3578,3591,35 95,3596,3602,3603,3610,3611 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 3281,3282,3283 IDIM2 Param 19 I(4) 4 scalar 3281,3282,3283 IEND Local 3321 I(4) 4 scalar 3321,3324,3331,3339,3355,3358,3365 ,3373,3389,3393,3400,3408,3422,342 6,3433,3441,3489,3492,3499,3507,35 23,3526,3533,3541,3557,3561,3568,3 576,3590,3594,3601,3609 IERR Local 3391 I(4) 4 scalar 3391,3424,3450,3454,3559,3592,3618 ,3622 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 3273 I(4) 4 scalar ARG,INOUT 3320,3321,3354,3355,3388,3389,3421 ,3422,3488,3523,3556,3590 IHANDLE Local 3280 I(4) 4 1 4 3303,3312,3346,3380,3391,3424,3450 ,3454,3471,3480,3514,3548,3559,359 2,3618,3622 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 3303 I(4) 4 scalar 3303,3312,3471,3480 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 3346 I(4) 4 scalar 3346,3380,3514,3548 ISTAT Local 3279 I(4) 4 1 5 3391,3424,3450,3454,3559,3592,3618 ,3622 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar Page 163 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 3287 I(4) 4 scalar 3287,3302,3311,3345,3379,3470,3479 ,3513,3547 J Local 3323 I(4) 4 scalar 3323,3326,3330,3333,3338,3341,3357 ,3360,3364,3367,3372,3375,3392,339 5,3399,3402,3407,3410,3425,3428,34 32,3435,3440,3443,3491,3494,3498,3 501,3506,3509,3525,3528,3532,3535, 3540,3543,3560,3563,3567,3570,3575 ,3578,3593,3596,3600,3603,3608,361 1 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3281,3282,3283 JDIM2 Param 20 I(4) 4 scalar 3281,3282,3283 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 3273 I(4) 4 scalar ARG,INOUT 3323,3330,3338,3357,3364,3372,3392 ,3399,3407,3425,3432,3440,3491,349 8,3506,3525,3532,3540,3560,3567,35 75,3593,3600,3608 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 3329 I(4) 4 scalar 3329,3333,3337,3341,3363,3367,3371 ,3375,3398,3402,3406,3410,3431,343 5,3439,3443,3497,3501,3505,3509,35 31,3535,3539,3543,3566,3570,3574,3 578,3599,3603,3607,3611 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 3273 I(4) 4 scalar ARG,INOUT LL2 Dummy 3273 I(4) 4 scalar ARG,INOUT 3329,3363,3398,3431,3497,3531,3566 ,3599 LL3 Dummy 3273 I(4) 4 scalar ARG,INOUT 3337,3371,3406,3439,3505,3539,3574 ,3607 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 Page 164 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 3303,3312,3346,3380,3471,3480,3514 Page 165 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,3548 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar Page 166 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar Page 167 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 3302 3302,3311,3470,3479 MPI_ISEND Subr 3345 3345,3379,3513,3547 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar Page 168 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 3287 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,3279 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 3391 3391,3424,3450,3454,3559,3592,3618 ,3622 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar Page 169 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 3321,3355,3389,3422,3488,3489,3589 ,3590 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 3320,3354,3388,3421,3522,3523,3556 ,3557 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 3326,3333,3341,3428,3435,3443,3491 ,3498,3506,3525,3532,3540,3560,356 7,3575,3593,3600,3608 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM Page 170 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 3360,3367,3375,3395,3402,3410,3491 ,3498,3506,3525,3532,3540,3560,356 7,3575,3593,3600,3608 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 3345,3379,3513,3547 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 3301,3302,3310,3311,3319,3345,3353 ,3379,3387,3420,3449,3453,3469,347 0,3478,3479,3487,3513,3521,3547,35 55,3588,3617,3621 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM Page 171 Source Listing EXCH011 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 172 Source Listing EXCH011 2014-12-17 20:46 module_EXCHM.F 9588 9589 SUBROUTINE IEXCH(ARR1,LL1,IHALO,JHALO) 9590 USE EXCH_BUF_INTEGER 9591 INCLUDE "parmeta" 9614 INCLUDE "mpif.h" 10131 INCLUDE "mpp.h" 10132 C----------------------------------------------------------------------- 10191 INTEGER ISTAT(MPI_STATUS_SIZE) 10192 INTEGER IHANDLE(4) 10193 INTEGER ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 10194 C 10195 C*********************************************************************** 10196 C 10197 ITYPE=MPI_INTEGER 10198 C 10199 C-------------------------------------------------------------------- 10200 C-------------------------------------------------------------------- 10201 C*** 10202 C*** NORTH/SOUTH 10203 C*** 10204 C-------------------------------------------------------------------- 10205 C-------------------------------------------------------------------- 10206 C 10207 C-------------------------------------------------------------------- 10208 C RECEIVE FROM NORTH 10209 C-------------------------------------------------------------------- 10210 C 10211 IF(MY_NEB(1).GE.0)THEN 10212 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 10213 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 10214 ENDIF 10215 C 10216 C-------------------------------------------------------------------- 10217 C RECEIVE FROM SOUTH 10218 C-------------------------------------------------------------------- 10219 C 10220 IF(MY_NEB(3).GE.0)THEN 10221 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 10222 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 10223 ENDIF 10224 C 10225 C-------------------------------------------------------------------- 10226 C SEND TO NORTH 10227 C-------------------------------------------------------------------- 10228 C 10229 IF(MY_NEB(1).GE.0)THEN 10230 IBEG=MYIS-IHALO 10231 IEND=MYIE+IHALO 10232 IC = 0 10233 DO J=0,JHALO-1 10234 DO I=IBEG,IEND 10235 IC = IC + 1 10236 BUF2(IC)=ARR1(I,MYJE-J) 10237 ENDDO 10238 ENDDO 10239 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 10240 1, MPI_COMM_COMP,IHANDLE(3),ISEND) Page 173 Source Listing IEXCH 2014-12-17 20:46 module_EXCHM.F 10241 ENDIF 10242 C 10243 C-------------------------------------------------------------------- 10244 C SEND TO SOUTH 10245 C-------------------------------------------------------------------- 10246 C 10247 IF(MY_NEB(3).GE.0)THEN 10248 IBEG=MYIS-IHALO 10249 IEND=MYIE+IHALO 10250 IC = 0 10251 DO J=0,JHALO-1 10252 DO I=IBEG,IEND 10253 IC = IC + 1 10254 BUF3(IC)=ARR1(I,MYJS+J) 10255 ENDDO 10256 ENDDO 10257 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 10258 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 10259 ENDIF 10260 C 10261 C-------------------------------------------------------------------- 10262 C STORE RESULTS FROM SOUTH 10263 C-------------------------------------------------------------------- 10264 C 10265 IF(MY_NEB(3).GE.0)THEN 10266 IBEG=MYIS-IHALO 10267 IEND=MYIE+IHALO 10268 IC = 0 10269 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 10270 DO J=0,JHALO-1 10271 DO I=IBEG,IEND 10272 IC = IC + 1 10273 ARR1(I,MYJS-J-1)=BUF1(IC) 10274 ENDDO 10275 ENDDO 10276 ENDIF 10277 C 10278 C-------------------------------------------------------------------- 10279 C STORE FROM NORTH 10280 C-------------------------------------------------------------------- 10281 C 10282 IF(MY_NEB(1).GE.0)THEN 10283 IBEG=MYIS-IHALO 10284 IEND=MYIE+IHALO 10285 IC = 0 10286 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 10287 DO J=0,JHALO-1 10288 DO I=IBEG,IEND 10289 IC = IC + 1 10290 ARR1(I,MYJE+J+1)=BUF0(IC) 10291 ENDDO 10292 ENDDO 10293 ENDIF 10294 C 10295 IF(MY_NEB(1).GE.0)THEN 10296 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 10297 ENDIF Page 174 Source Listing IEXCH 2014-12-17 20:46 module_EXCHM.F 10298 C 10299 IF(MY_NEB(3).GE.0)THEN 10300 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 10301 ENDIF 10302 C 10303 C-------------------------------------------------------------------- 10304 C-------------------------------------------------------------------- 10305 C*** 10306 C*** EAST/WEST 10307 C*** 10308 C-------------------------------------------------------------------- 10309 C-------------------------------------------------------------------- 10310 C 10311 C-------------------------------------------------------------------- 10312 C RECEIVE FROM WEST 10313 C-------------------------------------------------------------------- 10314 C 10315 IF(MY_NEB(4).GE.0)THEN 10316 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 10317 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 10318 ENDIF 10319 C 10320 C-------------------------------------------------------------------- 10321 C RECEIVE FROM EAST 10322 C-------------------------------------------------------------------- 10323 C 10324 IF(MY_NEB(2).GE.0)THEN 10325 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 10326 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 10327 ENDIF 10328 C 10329 C-------------------------------------------------------------------- 10330 C SEND TO EAST 10331 C-------------------------------------------------------------------- 10332 C 10333 IF(MY_NEB(2).GE.0)THEN 10334 IBEG=MYIE-IHALO+1 10335 IEND=MYIE 10336 IC = 0 10337 DO J=MYJS-JHALO,MYJE+JHALO 10338 DO I=IBEG,IEND 10339 IC = IC + 1 10340 BUF2(IC)=ARR1(I,J) 10341 ENDDO 10342 ENDDO 10343 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 10344 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 10345 ENDIF 10346 C 10347 C-------------------------------------------------------------------- 10348 C SEND TO WEST 10349 C-------------------------------------------------------------------- 10350 C 10351 IF(MY_NEB(4).GE.0)THEN 10352 IBEG=MYIS 10353 IEND=MYIS+IHALO-1 10354 IC = 0 Page 175 Source Listing IEXCH 2014-12-17 20:46 module_EXCHM.F 10355 DO J=MYJS-JHALO,MYJE+JHALO 10356 DO I=IBEG,IEND 10357 IC = IC + 1 10358 BUF3(IC)=ARR1(I,J) 10359 ENDDO 10360 ENDDO 10361 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 10362 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 10363 ENDIF 10364 C 10365 C-------------------------------------------------------------------- 10366 C STORE FROM WEST 10367 C-------------------------------------------------------------------- 10368 C 10369 IF(MY_NEB(4).GE.0)THEN 10370 IBEG=MYIS-IHALO 10371 IEND=MYIS-1 10372 IC = 0 10373 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 10374 DO J=MYJS-JHALO,MYJE+JHALO 10375 DO I=IBEG,IEND 10376 IC = IC + 1 10377 ARR1(I,J)=BUF0(IC) 10378 ENDDO 10379 ENDDO 10380 ENDIF 10381 C 10382 C-------------------------------------------------------------------- 10383 C STORE FROM EAST 10384 C-------------------------------------------------------------------- 10385 C 10386 IF(MY_NEB(2).GE.0)THEN 10387 IBEG=MYIE+1 10388 IEND=MYIE+IHALO 10389 IC = 0 10390 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 10391 DO J=MYJS-JHALO,MYJE+JHALO 10392 DO I=IBEG,IEND 10393 IC = IC + 1 10394 ARR1(I,J)=BUF1(IC) 10395 ENDDO 10396 ENDDO 10397 ENDIF 10398 C 10399 IF(MY_NEB(4).GE.0)THEN 10400 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 10401 ENDIF 10402 C 10403 IF(MY_NEB(2).GE.0)THEN 10404 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 10405 ENDIF 10406 C 10407 C-------------------------------------------------------------------- 10408 END SUBROUTINE Page 176 Source Listing IEXCH 2014-12-17 20:46 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 3628 I(4) 4 2 17955 ARG,INOUT 3679,3697,3716,3733,3783,3801,3820 ,3837 BUF0 Local 3655 I(4) 4 1 2500000 3655,3733,3759,3820 BUF1 Local 3664 I(4) 4 1 2500000 3664,3716,3768,3837 BUF2 Local 3679 I(4) 4 1 2500000 3679,3682,3783,3786 BUF3 Local 3697 I(4) 4 1 2500000 3697,3700,3801,3804 EXCH_BUF_INTEGER Module 3629 3629 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 3677 I(4) 4 scalar 3677,3679,3695,3697,3714,3716,3731 ,3733,3781,3783,3799,3801,3818,382 0,3835,3837 IBEG Local 3673 I(4) 4 scalar 3673,3677,3691,3695,3709,3714,3726 ,3731,3777,3781,3795,3799,3813,381 8,3830,3835 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 3655 I(4) 4 scalar 3655,3664,3759,3768 IC Local 3675 I(4) 4 scalar 3675,3678,3679,3682,3693,3696,3697 ,3700,3711,3715,3716,3728,3732,373 3,3779,3782,3783,3786,3797,3800,38 01,3804,3815,3819,3820,3832,3836,3 837 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 3636 IDIM2 Param 19 I(4) 4 scalar 3636 IEND Local 3674 I(4) 4 scalar 3674,3677,3692,3695,3710,3714,3727 ,3731,3778,3781,3796,3799,3814,381 8,3831,3835 IERR Local 3712 I(4) 4 scalar 3712,3729,3739,3743,3816,3833,3843 ,3847 IEXCH Subr 3628 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 3628 I(4) 4 scalar ARG,INOUT 3673,3674,3691,3692,3709,3710,3726 ,3727,3777,3796,3813,3831 IHANDLE Local 3635 I(4) 4 1 4 3656,3665,3683,3701,3712,3729,3739 ,3743,3760,3769,3787,3805,3816,383 3,3843,3847 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM Page 177 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 3656 I(4) 4 scalar 3656,3665,3760,3769 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 3683 I(4) 4 scalar 3683,3701,3787,3805 ISTAT Local 3634 I(4) 4 1 5 3712,3729,3739,3743,3816,3833,3843 ,3847 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 3640 I(4) 4 scalar 3640,3655,3664,3682,3700,3759,3768 ,3786,3804 J Local 3676 I(4) 4 scalar 3676,3679,3694,3697,3713,3716,3730 ,3733,3780,3783,3798,3801,3817,382 0,3834,3837 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3636 JDIM2 Param 20 I(4) 4 scalar 3636 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 3628 I(4) 4 scalar ARG,INOUT 3676,3694,3713,3730,3780,3798,3817 ,3834 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 3628 I(4) 4 scalar ARG,INOUT Page 178 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar Page 179 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 3656,3665,3683,3701,3760,3769,3787 ,3805 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar Page 180 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar Page 181 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar 3640 MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 3655 3655,3664,3759,3768 MPI_ISEND Subr 3682 3682,3700,3786,3804 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar Page 182 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,3634 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM Page 183 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 3712 3712,3729,3739,3743,3816,3833,3843 ,3847 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 3674,3692,3710,3727,3777,3778,3830 ,3831 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 3673,3691,3709,3726,3795,3796,3813 ,3814 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 3679,3733,3780,3798,3817,3834 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM Page 184 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 3697,3716,3780,3798,3817,3834 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 3682,3700,3786,3804 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 3654,3655,3663,3664,3672,3682,3690 ,3700,3708,3725,3738,3742,3758,375 9,3767,3768,3776,3786,3794,3804,38 12,3829,3842,3846 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM Page 185 Source Listing IEXCH 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 186 Source Listing IEXCH 2014-12-17 20:46 module_EXCHM.F 10409 10410 SUBROUTINE EXCH0001111(ARR1,LL1,ARR2,LL2,ARR3,LL3, 10411 * ARR4,LL4,ARR5,LL5, 10412 * ARR6,LL6,ARR7,LL7,IHALO,JHALO) 10413 USE EXCH_BUF_REAL 10414 INCLUDE "parmeta" 10437 INCLUDE "mpif.h" 10954 INCLUDE "mpp.h" 10955 C----------------------------------------------------------------------- 11014 INTEGER ISTAT(MPI_STATUS_SIZE) 11015 INTEGER IHANDLE(4) 11016 REAL ARR1(IDIM1:IDIM2,JDIM1:JDIM2) 11017 REAL ARR2(IDIM1:IDIM2,JDIM1:JDIM2) 11018 REAL ARR3(IDIM1:IDIM2,JDIM1:JDIM2) 11019 REAL ARR4(IDIM1:IDIM2,JDIM1:JDIM2,*) 11020 REAL ARR5(IDIM1:IDIM2,JDIM1:JDIM2,*) 11021 REAL ARR6(IDIM1:IDIM2,JDIM1:JDIM2,*) 11022 REAL ARR7(IDIM1:IDIM2,JDIM1:JDIM2,*) 11023 C 11024 C*********************************************************************** 11025 C 11026 ITYPE=MPI_REAL 11027 C 11028 C-------------------------------------------------------------------- 11029 C-------------------------------------------------------------------- 11030 C*** 11031 C*** NORTH/SOUTH 11032 C*** 11033 C-------------------------------------------------------------------- 11034 C-------------------------------------------------------------------- 11035 C 11036 C-------------------------------------------------------------------- 11037 C RECEIVE FROM NORTH 11038 C-------------------------------------------------------------------- 11039 C 11040 IF(MY_NEB(1).GE.0)THEN 11041 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(1),MY_NEB(1) 11042 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 11043 ENDIF 11044 C 11045 C-------------------------------------------------------------------- 11046 C RECEIVE FROM SOUTH 11047 C-------------------------------------------------------------------- 11048 C 11049 IF(MY_NEB(3).GE.0)THEN 11050 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(3),MY_NEB(3) 11051 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 11052 ENDIF 11053 C 11054 C-------------------------------------------------------------------- 11055 C SEND TO NORTH 11056 C-------------------------------------------------------------------- 11057 C 11058 IF(MY_NEB(1).GE.0)THEN 11059 IBEG=MYIS-IHALO 11060 IEND=MYIE+IHALO 11061 IC = 0 Page 187 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11062 DO J=0,JHALO-1 11063 DO I=IBEG,IEND 11064 IC = IC + 1 11065 BUF2(IC)=ARR1(I,MYJE-J) 11066 ENDDO 11067 ENDDO 11068 DO J=0,JHALO-1 11069 DO I=IBEG,IEND 11070 IC = IC + 1 11071 BUF2(IC)=ARR2(I,MYJE-J) 11072 ENDDO 11073 ENDDO 11074 DO J=0,JHALO-1 11075 DO I=IBEG,IEND 11076 IC = IC + 1 11077 BUF2(IC)=ARR3(I,MYJE-J) 11078 ENDDO 11079 ENDDO 11080 DO K=1,LL4 11081 DO J=0,JHALO-1 11082 DO I=IBEG,IEND 11083 IC = IC + 1 11084 BUF2(IC)=ARR4(I,MYJE-J,K) 11085 ENDDO 11086 ENDDO 11087 ENDDO 11088 DO K=1,LL5 11089 DO J=0,JHALO-1 11090 DO I=IBEG,IEND 11091 IC = IC + 1 11092 BUF2(IC)=ARR5(I,MYJE-J,K) 11093 ENDDO 11094 ENDDO 11095 ENDDO 11096 DO K=1,LL6 11097 DO J=0,JHALO-1 11098 DO I=IBEG,IEND 11099 IC = IC + 1 11100 BUF2(IC)=ARR6(I,MYJE-J,K) 11101 ENDDO 11102 ENDDO 11103 ENDDO 11104 DO K=1,LL7 11105 DO J=0,JHALO-1 11106 DO I=IBEG,IEND 11107 IC = IC + 1 11108 BUF2(IC)=ARR7(I,MYJE-J,K) 11109 ENDDO 11110 ENDDO 11111 ENDDO 11112 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(1),MYPE 11113 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 11114 ENDIF 11115 C 11116 C-------------------------------------------------------------------- 11117 C SEND TO SOUTH 11118 C-------------------------------------------------------------------- Page 188 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11119 C 11120 IF(MY_NEB(3).GE.0)THEN 11121 IBEG=MYIS-IHALO 11122 IEND=MYIE+IHALO 11123 IC = 0 11124 DO J=0,JHALO-1 11125 DO I=IBEG,IEND 11126 IC = IC + 1 11127 BUF3(IC)=ARR1(I,MYJS+J) 11128 ENDDO 11129 ENDDO 11130 DO J=0,JHALO-1 11131 DO I=IBEG,IEND 11132 IC = IC + 1 11133 BUF3(IC)=ARR2(I,MYJS+J) 11134 ENDDO 11135 ENDDO 11136 DO J=0,JHALO-1 11137 DO I=IBEG,IEND 11138 IC = IC + 1 11139 BUF3(IC)=ARR3(I,MYJS+J) 11140 ENDDO 11141 ENDDO 11142 DO K=1,LL4 11143 DO J=0,JHALO-1 11144 DO I=IBEG,IEND 11145 IC = IC + 1 11146 BUF3(IC)=ARR4(I,MYJS+J,K) 11147 ENDDO 11148 ENDDO 11149 ENDDO 11150 DO K=1,LL5 11151 DO J=0,JHALO-1 11152 DO I=IBEG,IEND 11153 IC = IC + 1 11154 BUF3(IC)=ARR5(I,MYJS+J,K) 11155 ENDDO 11156 ENDDO 11157 ENDDO 11158 DO K=1,LL6 11159 DO J=0,JHALO-1 11160 DO I=IBEG,IEND 11161 IC = IC + 1 11162 BUF3(IC)=ARR6(I,MYJS+J,K) 11163 ENDDO 11164 ENDDO 11165 ENDDO 11166 DO K=1,LL7 11167 DO J=0,JHALO-1 11168 DO I=IBEG,IEND 11169 IC = IC + 1 11170 BUF3(IC)=ARR7(I,MYJS+J,K) 11171 ENDDO 11172 ENDDO 11173 ENDDO 11174 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(3),MYPE 11175 1, MPI_COMM_COMP,IHANDLE(4),ISEND) Page 189 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11176 ENDIF 11177 C 11178 C-------------------------------------------------------------------- 11179 C STORE RESULTS FROM SOUTH 11180 C-------------------------------------------------------------------- 11181 C 11182 IF(MY_NEB(3).GE.0)THEN 11183 IBEG=MYIS-IHALO 11184 IEND=MYIE+IHALO 11185 IC = 0 11186 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 11187 DO J=0,JHALO-1 11188 DO I=IBEG,IEND 11189 IC = IC + 1 11190 ARR1(I,MYJS-J-1)=BUF1(IC) 11191 ENDDO 11192 ENDDO 11193 DO J=0,JHALO-1 11194 DO I=IBEG,IEND 11195 IC = IC + 1 11196 ARR2(I,MYJS-J-1)=BUF1(IC) 11197 ENDDO 11198 ENDDO 11199 DO J=0,JHALO-1 11200 DO I=IBEG,IEND 11201 IC = IC + 1 11202 ARR3(I,MYJS-J-1)=BUF1(IC) 11203 ENDDO 11204 ENDDO 11205 DO K=1,LL4 11206 DO J=0,JHALO-1 11207 DO I=IBEG,IEND 11208 IC = IC + 1 11209 ARR4(I,MYJS-J-1,K)=BUF1(IC) 11210 ENDDO 11211 ENDDO 11212 ENDDO 11213 DO K=1,LL5 11214 DO J=0,JHALO-1 11215 DO I=IBEG,IEND 11216 IC = IC + 1 11217 ARR5(I,MYJS-J-1,K)=BUF1(IC) 11218 ENDDO 11219 ENDDO 11220 ENDDO 11221 DO K=1,LL6 11222 DO J=0,JHALO-1 11223 DO I=IBEG,IEND 11224 IC = IC + 1 11225 ARR6(I,MYJS-J-1,K)=BUF1(IC) 11226 ENDDO 11227 ENDDO 11228 ENDDO 11229 DO K=1,LL7 11230 DO J=0,JHALO-1 11231 DO I=IBEG,IEND 11232 IC = IC + 1 Page 190 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11233 ARR7(I,MYJS-J-1,K)=BUF1(IC) 11234 ENDDO 11235 ENDDO 11236 ENDDO 11237 ENDIF 11238 C 11239 C-------------------------------------------------------------------- 11240 C STORE FROM NORTH 11241 C-------------------------------------------------------------------- 11242 C 11243 IF(MY_NEB(1).GE.0)THEN 11244 IBEG=MYIS-IHALO 11245 IEND=MYIE+IHALO 11246 IC = 0 11247 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 11248 DO J=0,JHALO-1 11249 DO I=IBEG,IEND 11250 IC = IC + 1 11251 ARR1(I,MYJE+J+1)=BUF0(IC) 11252 ENDDO 11253 ENDDO 11254 DO J=0,JHALO-1 11255 DO I=IBEG,IEND 11256 IC = IC + 1 11257 ARR2(I,MYJE+J+1)=BUF0(IC) 11258 ENDDO 11259 ENDDO 11260 DO J=0,JHALO-1 11261 DO I=IBEG,IEND 11262 IC = IC + 1 11263 ARR3(I,MYJE+J+1)=BUF0(IC) 11264 ENDDO 11265 ENDDO 11266 DO K=1,LL4 11267 DO J=0,JHALO-1 11268 DO I=IBEG,IEND 11269 IC = IC + 1 11270 ARR4(I,MYJE+J+1,K)=BUF0(IC) 11271 ENDDO 11272 ENDDO 11273 ENDDO 11274 DO K=1,LL5 11275 DO J=0,JHALO-1 11276 DO I=IBEG,IEND 11277 IC = IC + 1 11278 ARR5(I,MYJE+J+1,K)=BUF0(IC) 11279 ENDDO 11280 ENDDO 11281 ENDDO 11282 DO K=1,LL6 11283 DO J=0,JHALO-1 11284 DO I=IBEG,IEND 11285 IC = IC + 1 11286 ARR6(I,MYJE+J+1,K)=BUF0(IC) 11287 ENDDO 11288 ENDDO 11289 ENDDO Page 191 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11290 DO K=1,LL7 11291 DO J=0,JHALO-1 11292 DO I=IBEG,IEND 11293 IC = IC + 1 11294 ARR7(I,MYJE+J+1,K)=BUF0(IC) 11295 ENDDO 11296 ENDDO 11297 ENDDO 11298 ENDIF 11299 C 11300 IF(MY_NEB(1).GE.0)THEN 11301 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 11302 ENDIF 11303 C 11304 IF(MY_NEB(3).GE.0)THEN 11305 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 11306 ENDIF 11307 C 11308 C-------------------------------------------------------------------- 11309 C-------------------------------------------------------------------- 11310 C*** 11311 C*** EAST/WEST 11312 C*** 11313 C-------------------------------------------------------------------- 11314 C-------------------------------------------------------------------- 11315 C 11316 C-------------------------------------------------------------------- 11317 C RECEIVE FROM WEST 11318 C-------------------------------------------------------------------- 11319 C 11320 IF(MY_NEB(4).GE.0)THEN 11321 CALL MPI_IRECV(BUF0,IBUFEXCH,ITYPE,MY_NEB(4),MY_NEB(4) 11322 1, MPI_COMM_COMP,IHANDLE(1),IRECV) 11323 ENDIF 11324 C 11325 C-------------------------------------------------------------------- 11326 C RECEIVE FROM EAST 11327 C-------------------------------------------------------------------- 11328 C 11329 IF(MY_NEB(2).GE.0)THEN 11330 CALL MPI_IRECV(BUF1,IBUFEXCH,ITYPE,MY_NEB(2),MY_NEB(2) 11331 1, MPI_COMM_COMP,IHANDLE(2),IRECV) 11332 ENDIF 11333 C 11334 C-------------------------------------------------------------------- 11335 C SEND TO EAST 11336 C-------------------------------------------------------------------- 11337 C 11338 IF(MY_NEB(2).GE.0)THEN 11339 IBEG=MYIE-IHALO+1 11340 IEND=MYIE 11341 IC = 0 11342 DO J=MYJS-JHALO,MYJE+JHALO 11343 DO I=IBEG,IEND 11344 IC = IC + 1 11345 BUF2(IC)=ARR1(I,J) 11346 ENDDO Page 192 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11347 ENDDO 11348 DO J=MYJS-JHALO,MYJE+JHALO 11349 DO I=IBEG,IEND 11350 IC = IC + 1 11351 BUF2(IC)=ARR2(I,J) 11352 ENDDO 11353 ENDDO 11354 DO J=MYJS-JHALO,MYJE+JHALO 11355 DO I=IBEG,IEND 11356 IC = IC + 1 11357 BUF2(IC)=ARR3(I,J) 11358 ENDDO 11359 ENDDO 11360 DO K=1,LL4 11361 DO J=MYJS-JHALO,MYJE+JHALO 11362 DO I=IBEG,IEND 11363 IC = IC + 1 11364 BUF2(IC)=ARR4(I,J,K) 11365 ENDDO 11366 ENDDO 11367 ENDDO 11368 DO K=1,LL5 11369 DO J=MYJS-JHALO,MYJE+JHALO 11370 DO I=IBEG,IEND 11371 IC = IC + 1 11372 BUF2(IC)=ARR5(I,J,K) 11373 ENDDO 11374 ENDDO 11375 ENDDO 11376 DO K=1,LL6 11377 DO J=MYJS-JHALO,MYJE+JHALO 11378 DO I=IBEG,IEND 11379 IC = IC + 1 11380 BUF2(IC)=ARR6(I,J,K) 11381 ENDDO 11382 ENDDO 11383 ENDDO 11384 DO K=1,LL7 11385 DO J=MYJS-JHALO,MYJE+JHALO 11386 DO I=IBEG,IEND 11387 IC = IC + 1 11388 BUF2(IC)=ARR7(I,J,K) 11389 ENDDO 11390 ENDDO 11391 ENDDO 11392 CALL MPI_ISEND(BUF2,IC,ITYPE,MY_NEB(2),MYPE 11393 1, MPI_COMM_COMP,IHANDLE(3),ISEND) 11394 ENDIF 11395 C 11396 C-------------------------------------------------------------------- 11397 C SEND TO WEST 11398 C-------------------------------------------------------------------- 11399 C 11400 IF(MY_NEB(4).GE.0)THEN 11401 IBEG=MYIS 11402 IEND=MYIS+IHALO-1 11403 IC = 0 Page 193 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11404 DO J=MYJS-JHALO,MYJE+JHALO 11405 DO I=IBEG,IEND 11406 IC = IC + 1 11407 BUF3(IC)=ARR1(I,J) 11408 ENDDO 11409 ENDDO 11410 DO J=MYJS-JHALO,MYJE+JHALO 11411 DO I=IBEG,IEND 11412 IC = IC + 1 11413 BUF3(IC)=ARR2(I,J) 11414 ENDDO 11415 ENDDO 11416 DO J=MYJS-JHALO,MYJE+JHALO 11417 DO I=IBEG,IEND 11418 IC = IC + 1 11419 BUF3(IC)=ARR3(I,J) 11420 ENDDO 11421 ENDDO 11422 DO K=1,LL4 11423 DO J=MYJS-JHALO,MYJE+JHALO 11424 DO I=IBEG,IEND 11425 IC = IC + 1 11426 BUF3(IC)=ARR4(I,J,K) 11427 ENDDO 11428 ENDDO 11429 ENDDO 11430 DO K=1,LL5 11431 DO J=MYJS-JHALO,MYJE+JHALO 11432 DO I=IBEG,IEND 11433 IC = IC + 1 11434 BUF3(IC)=ARR5(I,J,K) 11435 ENDDO 11436 ENDDO 11437 ENDDO 11438 DO K=1,LL6 11439 DO J=MYJS-JHALO,MYJE+JHALO 11440 DO I=IBEG,IEND 11441 IC = IC + 1 11442 BUF3(IC)=ARR6(I,J,K) 11443 ENDDO 11444 ENDDO 11445 ENDDO 11446 DO K=1,LL7 11447 DO J=MYJS-JHALO,MYJE+JHALO 11448 DO I=IBEG,IEND 11449 IC = IC + 1 11450 BUF3(IC)=ARR7(I,J,K) 11451 ENDDO 11452 ENDDO 11453 ENDDO 11454 CALL MPI_ISEND(BUF3,IC,ITYPE,MY_NEB(4),MYPE 11455 1, MPI_COMM_COMP,IHANDLE(4),ISEND) 11456 ENDIF 11457 C 11458 C-------------------------------------------------------------------- 11459 C STORE FROM WEST 11460 C-------------------------------------------------------------------- Page 194 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11461 C 11462 IF(MY_NEB(4).GE.0)THEN 11463 IBEG=MYIS-IHALO 11464 IEND=MYIS-1 11465 IC = 0 11466 CALL MPI_WAIT(IHANDLE(1),ISTAT,IERR) 11467 DO J=MYJS-JHALO,MYJE+JHALO 11468 DO I=IBEG,IEND 11469 IC = IC + 1 11470 ARR1(I,J)=BUF0(IC) 11471 ENDDO 11472 ENDDO 11473 DO J=MYJS-JHALO,MYJE+JHALO 11474 DO I=IBEG,IEND 11475 IC = IC + 1 11476 ARR2(I,J)=BUF0(IC) 11477 ENDDO 11478 ENDDO 11479 DO J=MYJS-JHALO,MYJE+JHALO 11480 DO I=IBEG,IEND 11481 IC = IC + 1 11482 ARR3(I,J)=BUF0(IC) 11483 ENDDO 11484 ENDDO 11485 DO K=1,LL4 11486 DO J=MYJS-JHALO,MYJE+JHALO 11487 DO I=IBEG,IEND 11488 IC = IC + 1 11489 ARR4(I,J,K)=BUF0(IC) 11490 ENDDO 11491 ENDDO 11492 ENDDO 11493 DO K=1,LL5 11494 DO J=MYJS-JHALO,MYJE+JHALO 11495 DO I=IBEG,IEND 11496 IC = IC + 1 11497 ARR5(I,J,K)=BUF0(IC) 11498 ENDDO 11499 ENDDO 11500 ENDDO 11501 DO K=1,LL6 11502 DO J=MYJS-JHALO,MYJE+JHALO 11503 DO I=IBEG,IEND 11504 IC = IC + 1 11505 ARR6(I,J,K)=BUF0(IC) 11506 ENDDO 11507 ENDDO 11508 ENDDO 11509 DO K=1,LL7 11510 DO J=MYJS-JHALO,MYJE+JHALO 11511 DO I=IBEG,IEND 11512 IC = IC + 1 11513 ARR7(I,J,K)=BUF0(IC) 11514 ENDDO 11515 ENDDO 11516 ENDDO 11517 ENDIF Page 195 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11518 C 11519 C-------------------------------------------------------------------- 11520 C STORE FROM EAST 11521 C-------------------------------------------------------------------- 11522 C 11523 IF(MY_NEB(2).GE.0)THEN 11524 IBEG=MYIE+1 11525 IEND=MYIE+IHALO 11526 IC = 0 11527 CALL MPI_WAIT(IHANDLE(2),ISTAT,IERR) 11528 DO J=MYJS-JHALO,MYJE+JHALO 11529 DO I=IBEG,IEND 11530 IC = IC + 1 11531 ARR1(I,J)=BUF1(IC) 11532 ENDDO 11533 ENDDO 11534 DO J=MYJS-JHALO,MYJE+JHALO 11535 DO I=IBEG,IEND 11536 IC = IC + 1 11537 ARR2(I,J)=BUF1(IC) 11538 ENDDO 11539 ENDDO 11540 DO J=MYJS-JHALO,MYJE+JHALO 11541 DO I=IBEG,IEND 11542 IC = IC + 1 11543 ARR3(I,J)=BUF1(IC) 11544 ENDDO 11545 ENDDO 11546 DO K=1,LL4 11547 DO J=MYJS-JHALO,MYJE+JHALO 11548 DO I=IBEG,IEND 11549 IC = IC + 1 11550 ARR4(I,J,K)=BUF1(IC) 11551 ENDDO 11552 ENDDO 11553 ENDDO 11554 DO K=1,LL5 11555 DO J=MYJS-JHALO,MYJE+JHALO 11556 DO I=IBEG,IEND 11557 IC = IC + 1 11558 ARR5(I,J,K)=BUF1(IC) 11559 ENDDO 11560 ENDDO 11561 ENDDO 11562 DO K=1,LL6 11563 DO J=MYJS-JHALO,MYJE+JHALO 11564 DO I=IBEG,IEND 11565 IC = IC + 1 11566 ARR6(I,J,K)=BUF1(IC) 11567 ENDDO 11568 ENDDO 11569 ENDDO 11570 DO K=1,LL7 11571 DO J=MYJS-JHALO,MYJE+JHALO 11572 DO I=IBEG,IEND 11573 IC = IC + 1 11574 ARR7(I,J,K)=BUF1(IC) Page 196 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11575 ENDDO 11576 ENDDO 11577 ENDDO 11578 ENDIF 11579 C 11580 IF(MY_NEB(4).GE.0)THEN 11581 CALL MPI_WAIT(IHANDLE(4),ISTAT,IERR) 11582 ENDIF 11583 C 11584 IF(MY_NEB(2).GE.0)THEN 11585 CALL MPI_WAIT(IHANDLE(3),ISTAT,IERR) 11586 ENDIF 11587 C 11588 C-------------------------------------------------------------------- 11589 END SUBROUTINE ENTRY POINTS Name exchm_mp_exch0001111_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ARR1 Dummy 3853 R(4) 4 2 17955 ARG,INOUT 3912,3974,4037,4098,4192,4254,4317 ,4378 ARR2 Dummy 3853 R(4) 4 2 17955 ARG,INOUT 3918,3980,4043,4104,4198,4260,4323 ,4384 ARR3 Dummy 3853 R(4) 4 2 17955 ARG,INOUT 3924,3986,4049,4110,4204,4266,4329 ,4390 ARR4 Dummy 3854 R(4) 4 3 0 ARG,INOUT 3931,3993,4056,4117,4211,4273,4336 ,4397 ARR5 Dummy 3854 R(4) 4 3 0 ARG,INOUT 3939,4001,4064,4125,4219,4281,4344 ,4405 ARR6 Dummy 3855 R(4) 4 3 0 ARG,INOUT 3947,4009,4072,4133,4227,4289,4352 ,4413 ARR7 Dummy 3855 R(4) 4 3 0 ARG,INOUT 3955,4017,4080,4141,4235,4297,4360 ,4421 BUF0 Local 3888 R(4) 4 1 2500000 3888,4098,4104,4110,4117,4125,4133 ,4141,4168,4317,4323,4329,4336,434 4,4352,4360 BUF1 Local 3897 R(4) 4 1 2500000 3897,4037,4043,4049,4056,4064,4072 ,4080,4177,4378,4384,4390,4397,440 5,4413,4421 BUF2 Local 3912 R(4) 4 1 2500000 3912,3918,3924,3931,3939,3947,3955 ,3959,4192,4198,4204,4211,4219,422 7,4235,4239 BUF3 Local 3974 R(4) 4 1 2500000 3974,3980,3986,3993,4001,4009,4017 ,4021,4254,4260,4266,4273,4281,428 9,4297,4301 EXCH0001111 Subr 3853 EXCH_BUF_REAL Module 3856 3856 G2LI Scalar 55 I(4) 4 1 239 COM Page 197 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 3910 I(4) 4 scalar 3910,3912,3916,3918,3922,3924,3929 ,3931,3937,3939,3945,3947,3953,395 5,3972,3974,3978,3980,3984,3986,39 91,3993,3999,4001,4007,4009,4015,4 017,4035,4037,4041,4043,4047,4049, 4054,4056,4062,4064,4070,4072,4078 ,4080,4096,4098,4102,4104,4108,411 0,4115,4117,4123,4125,4131,4133,41 39,4141,4190,4192,4196,4198,4202,4 204,4209,4211,4217,4219,4225,4227, 4233,4235,4252,4254,4258,4260,4264 ,4266,4271,4273,4279,4281,4287,428 9,4295,4297,4315,4317,4321,4323,43 27,4329,4334,4336,4342,4344,4350,4 352,4358,4360,4376,4378,4382,4384, 4388,4390,4395,4397,4403,4405,4411 ,4413,4419,4421 IBEG Local 3906 I(4) 4 scalar 3906,3910,3916,3922,3929,3937,3945 ,3953,3968,3972,3978,3984,3991,399 9,4007,4015,4030,4035,4041,4047,40 54,4062,4070,4078,4091,4096,4102,4 108,4115,4123,4131,4139,4186,4190, 4196,4202,4209,4217,4225,4233,4248 ,4252,4258,4264,4271,4279,4287,429 5,4310,4315,4321,4327,4334,4342,43 50,4358,4371,4376,4382,4388,4395,4 403,4411,4419 IBROW Scalar 22 I(4) 4 scalar COM IBUFEXCH Param 3888 I(4) 4 scalar 3888,3897,4168,4177 IC Local 3908 I(4) 4 scalar 3908,3911,3912,3917,3918,3923,3924 ,3930,3931,3938,3939,3946,3947,395 4,3955,3959,3970,3973,3974,3979,39 80,3985,3986,3992,3993,4000,4001,4 008,4009,4016,4017,4021,4032,4036, 4037,4042,4043,4048,4049,4055,4056 ,4063,4064,4071,4072,4079,4080,409 3,4097,4098,4103,4104,4109,4110,41 16,4117,4124,4125,4132,4133,4140,4 141,4188,4191,4192,4197,4198,4203, 4204,4210,4211,4218,4219,4226,4227 ,4234,4235,4239,4250,4253,4254,425 9,4260,4265,4266,4272,4273,4280,42 81,4288,4289,4296,4297,4301,4312,4 316,4317,4322,4323,4328,4329,4335, 4336,4343,4344,4351,4352,4359,4360 ,4373,4377,4378,4383,4384,4389,439 0,4396,4397,4404,4405,4412,4413,44 20,4421 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 3863,3864,3865,3866,3867,3868,3869 IDIM2 Param 19 I(4) 4 scalar 3863,3864,3865,3866,3867,3868,3869 IEND Local 3907 I(4) 4 scalar 3907,3910,3916,3922,3929,3937,3945 Page 198 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References ,3953,3969,3972,3978,3984,3991,399 9,4007,4015,4031,4035,4041,4047,40 54,4062,4070,4078,4092,4096,4102,4 108,4115,4123,4131,4139,4187,4190, 4196,4202,4209,4217,4225,4233,4249 ,4252,4258,4264,4271,4279,4287,429 5,4311,4315,4321,4327,4334,4342,43 50,4358,4372,4376,4382,4388,4395,4 403,4411,4419 IERR Local 4033 I(4) 4 scalar 4033,4094,4148,4152,4313,4374,4428 ,4432 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHALO Dummy 3855 I(4) 4 scalar ARG,INOUT 3906,3907,3968,3969,4030,4031,4091 ,4092,4186,4249,4310,4372 IHANDLE Local 3862 I(4) 4 1 4 3889,3898,3960,4022,4033,4094,4148 ,4152,4169,4178,4240,4302,4313,437 4,4428,4432 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 3889 I(4) 4 scalar 3889,3898,4169,4178 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISEND Local 3960 I(4) 4 scalar 3960,4022,4240,4302 ISTAT Local 3861 I(4) 4 1 5 4033,4094,4148,4152,4313,4374,4428 ,4432 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM ITYPE Local 3873 I(4) 4 scalar 3873,3888,3897,3959,4021,4168,4177 ,4239,4301 J Local 3909 I(4) 4 scalar 3909,3912,3915,3918,3921,3924,3928 ,3931,3936,3939,3944,3947,3952,395 5,3971,3974,3977,3980,3983,3986,39 90,3993,3998,4001,4006,4009,4014,4 017,4034,4037,4040,4043,4046,4049, 4053,4056,4061,4064,4069,4072,4077 ,4080,4095,4098,4101,4104,4107,411 Page 199 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 0,4114,4117,4122,4125,4130,4133,41 38,4141,4189,4192,4195,4198,4201,4 204,4208,4211,4216,4219,4224,4227, 4232,4235,4251,4254,4257,4260,4263 ,4266,4270,4273,4278,4281,4286,428 9,4294,4297,4314,4317,4320,4323,43 26,4329,4333,4336,4341,4344,4349,4 352,4357,4360,4375,4378,4381,4384, 4387,4390,4394,4397,4402,4405,4410 ,4413,4418,4421 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3863,3864,3865,3866,3867,3868,3869 JDIM2 Param 20 I(4) 4 scalar 3863,3864,3865,3866,3867,3868,3869 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JHALO Dummy 3855 I(4) 4 scalar ARG,INOUT 3909,3915,3921,3928,3936,3944,3952 ,3971,3977,3983,3990,3998,4006,401 4,4034,4040,4046,4053,4061,4069,40 77,4095,4101,4107,4114,4122,4130,4 138,4189,4195,4201,4208,4216,4224, 4232,4251,4257,4263,4270,4278,4286 ,4294,4314,4320,4326,4333,4341,434 9,4357,4375,4381,4387,4394,4402,44 10,4418 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM K Local 3927 I(4) 4 scalar 3927,3931,3935,3939,3943,3947,3951 ,3955,3989,3993,3997,4001,4005,400 9,4013,4017,4052,4056,4060,4064,40 68,4072,4076,4080,4113,4117,4121,4 125,4129,4133,4137,4141,4207,4211, 4215,4219,4223,4227,4231,4235,4269 ,4273,4277,4281,4285,4289,4293,429 7,4332,4336,4340,4344,4348,4352,43 56,4360,4393,4397,4401,4405,4409,4 413,4417,4421 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL1 Dummy 3853 I(4) 4 scalar ARG,INOUT LL2 Dummy 3853 I(4) 4 scalar ARG,INOUT LL3 Dummy 3853 I(4) 4 scalar ARG,INOUT Page 200 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References LL4 Dummy 3854 I(4) 4 scalar ARG,INOUT 3927,3989,4052,4113,4207,4269,4332 ,4393 LL5 Dummy 3854 I(4) 4 scalar ARG,INOUT 3935,3997,4060,4121,4215,4277,4340 ,4401 LL6 Dummy 3855 I(4) 4 scalar ARG,INOUT 3943,4005,4068,4129,4223,4285,4348 ,4409 LL7 Dummy 3855 I(4) 4 scalar ARG,INOUT 3951,4013,4076,4137,4231,4293,4356 ,4417 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar Page 201 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 3889,3898,3960,4022,4169,4178,4240 ,4302 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar Page 202 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar Page 203 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_IRECV Subr 3888 3888,3897,4168,4177 MPI_ISEND Subr 3959 3959,4021,4239,4301 MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar Page 204 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 3873 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,3861 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar Page 205 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WAIT Subr 4033 4033,4094,4148,4152,4313,4374,4428 ,4432 MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 3907,3969,4031,4092,4186,4187,4371 ,4372 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 3906,3968,4030,4091,4248,4249,4310 ,4311 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 3912,3918,3924,3931,3939,3947,3955 ,4098,4104,4110,4117,4125,4133,414 1,4189,4195,4201,4208,4216,4224,42 32,4251,4257,4263,4270,4278,4286,4 294,4314,4320,4326,4333,4341,4349, Page 206 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References 4357,4375,4381,4387,4394,4402,4410 ,4418 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 3974,3980,3986,3993,4001,4009,4017 ,4037,4043,4049,4056,4064,4072,408 0,4189,4195,4201,4208,4216,4224,42 32,4251,4257,4263,4270,4278,4286,4 294,4314,4320,4326,4333,4341,4349, 4357,4375,4381,4387,4394,4402,4410 ,4418 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM Page 207 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F Name Object Declared Type Bytes Dimen Elements Attributes References MYPE Scalar 2 I(4) 4 scalar COM 3959,4021,4239,4301 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM 3887,3888,3896,3897,3905,3959,3967 ,4021,4029,4090,4147,4151,4167,416 8,4176,4177,4185,4239,4247,4301,43 09,4370,4427,4431 MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Page 208 Source Listing EXCH0001111 2014-12-17 20:46 Symbol Table module_EXCHM.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References EXCHM Module 1 Page 209 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F 11590 END MODULE Page 210 Source Listing EXCH0001111 2014-12-17 20:46 Subprograms/Common Blocks module_EXCHM.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References EXCH0 Subr 3 EXCH00 Subr 814 EXCH0001111 Subr 3853 EXCH01 Subr 524 EXCH011 Subr 3273 EXCH1 Subr 283 EXCH11 Subr 1088 EXCH111 Subr 1394 EXCH1111 Subr 1766 EXCH11111 Subr 2204 EXCH111111 Subr 2706 EXCHM Module 1 GLB_TABLE Common 37 128 IEXCH Subr 3628 MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPPCOM Common 1 1464 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat Page 211 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall Page 212 Source Listing EXCH0001111 2014-12-17 20:46 module_EXCHM.F -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : module_EXCHM.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100