Page 1 Source Listing MPPINIT 2014-12-17 20:46 /tmpnwprd/ifortdZLzHC.i 1 # 1 "MPPINIT.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE MPPINIT 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: RADTN THE OUTER RADIATION DRIVER 8 C PRGRMMR: BLACK ORG: W/NP22 DATE: 98-10-28 9 C 10 C ABSTRACT: 11 C MPPINIT DETERMINES ALL RELEVANT VALUES FOR DIMENSIONS OF THE 12 C DISTRIBUTED SUBDOMAINS AND THEIR HALOES. 13 C 14 C PROGRAM HISTORY LOG: 15 C 97-??-?? MEYS - ORIGINATOR 16 C 97-??-?? BLACK - CHANGES MADE FOR CLARITY 17 C 98-10-29 BLACK - REWRITTEN FOR CLARITY 18 C 19 C USAGE: CALL RADTN FROM MAIN PROGRAM EBU 20 C INPUT ARGUMENT LIST: 21 C NONE 22 C 23 C OUTPUT ARGUMENT LIST: 24 C NONE 25 C 26 C OUTPUT FILES: 27 C NONE 28 C 29 C SUBPROGRAMS CALLED: 30 C 31 C UNIQUE: 32 C NONE 33 C 34 C LIBRARY: 35 C NONE 36 C 37 C COMMON BLOCKS: MPPCOM 38 C GLB_TABLE 39 C TEMPCOM 40 C TOPO 41 C MAPPINGS 42 C ATTRIBUTES: 43 C LANGUAGE: FORTRAN 90 44 C MACHINE : IBM SP 45 C$$$ 46 C----------------------------------------------------------------------- 47 INCLUDE "parmeta" 70 INCLUDE "mpp.h" 129 INCLUDE "mpif.h" 130 # 1 "./sp.h" 1 131 # 4 132 133 # 50 "MPPINIT.F" 2 134 C----------------------------------------------------------------------- 651 INTEGER ISTAT(MPI_STATUS_SIZE) 652 C----------------------------------------------------------------------- 653 C*********************************************************************** Page 2 Source Listing MPPINIT 2014-12-17 20:46 MPPINIT.F 654 C----------------------------------------------------------------------- 655 C*** 656 C*** INPES AND JNPES ARE THE NUMBER OF PEs REQUESTED IN X AND Y. 657 C*** ICHUNK AND JCHUNK ARE THE FIRST GUESS OF THE NUMBER 658 C*** OF I's AND J's IN EACH SUBDOMAIN OBTAINED BY SIMPLY 659 C*** DIVIDING THE GLOBAL DIMENSIONS BY THE NUMBER OF PE's 660 C*** REQUESTED IN EACH DIRECTION. 661 C*** 662 ICHUNK=IM/INPES 663 JCHUNK=JM/JNPES 664 IICHUNK=ICHUNK+1 665 C*** 666 C*** COMPUTE THE GLOBAL START AND END INDEX VALUES 667 C*** FOR I (MY_IS_GLB,MY_IE_GLB) AND J (MY_JS_GLB,MY_JE_GLB) 668 C*** ON EACH PE. 669 C*** IN GENERAL, THE NUMBER OF POINTS IN EACH DIRECTION 670 C*** WILL NOT DIVIDE EVENLY WITH INPES AND JNPES. THE 671 C*** LOGIC BELOW GIVES ONE EXTRA POINT TO AS MANY OF THE 672 C*** EARLIEST PEs IN EACH DIRECTION AS IT TAKES TO USE 673 C*** UP THE REMAINDER POINTS (ITAIL AND JTAIL, WHICH ARE 674 C*** COMPUTED IN parmeta). 675 C*** 676 IPE=0 677 MY_JS_CALC=1 678 JNCHUNKS=0 679 C 680 DO J=1,JNPES 681 JCHUNK_CALC=JCHUNK 682 IF(J.LE.JTAIL)JCHUNK_CALC=JCHUNK+1 683 JNCHUNKS=JNCHUNKS+JCHUNK_CALC 684 MY_JE_CALC=JNCHUNKS 685 MY_IS_CALC=1 686 NCHUNKS=0 687 C 688 DO I=1,INPES 689 ICHUNK_CALC=ICHUNK 690 IF(I.LE.ITAIL)ICHUNK_CALC=ICHUNK+1 691 NCHUNKS=NCHUNKS+ICHUNK_CALC 692 MY_IE_CALC=NCHUNKS 693 IF(MYPE.EQ.IPE)THEN 694 MY_IS_GLB=MY_IS_CALC 695 MY_IE_GLB=MY_IE_CALC 696 MY_JS_GLB=MY_JS_CALC 697 MY_JE_GLB=MY_JE_CALC 698 ENDIF 699 MY_IS_CALC=MY_IE_CALC+1 700 IPE=IPE+1 701 ENDDO 702 C 703 MY_JS_CALC=MY_JE_CALC+1 704 ENDDO 705 C---------------------------------------------------------------------- 706 C*** 707 C*** ILPADx IS THE INCREMENT INTO THE LEFT HALO OF A SUBDOMAIN. 708 C*** IRPADx IS THE INCREMENT INTO THE RIGHT HALO OF A SUBDOMAIN. 709 C*** ILPADx IS ALWAYS 0 FOR SUBDOMAINS ALONG THE WEST GLOBAL BOUNDARY. 710 C*** IRPADx IS ALWAYS 0 FOR SUBDOMAINS ALONG THE EAST GLOBAL BOUNDARY. Page 3 Source Listing MPPINIT 2014-12-17 20:46 MPPINIT.F 711 C*** 712 C*** ILCOL IS A FLAG TELLING WHETHER OR NOT A SUBDOMAIN IS ON THE 713 C*** WEST (LEFT) GLOBAL BOUNDARY. 714 C*** 715 C*** IS_INCx_BND AND IE_INCx_BND ARE INCREMENTS FROM THE LOCAL 716 C*** STARTING OR ENDING I VALUE AWAY FROM THE LOCAL BOUNDARY INTO THE 717 C*** SURBDOMAIN. THEY ARE NONZERO ONLY FOR SUBDOMAINS ON THE WESTERN 718 C*** AND EASTERN GLOBAL BOUNDARIES. 719 C*** 720 ILPAD1=1 721 ILPAD2=2 722 ILPAD3=3 723 ILPAD4=4 724 ILPAD5=5 725 IRPAD1=1 726 IRPAD2=2 727 IRPAD3=3 728 IRPAD4=4 729 IRPAD5=5 730 C 731 ILCOL=0 732 IRCOL=0 733 C 734 IS_INC1_BND=0 735 IS_INC2_BND=0 736 IE_INC1_BND=0 737 IE_INC2_BND=0 738 C 739 IF(MOD(MYPE,INPES).EQ.0)THEN !WESTERNMOST SUBDOMAINS 740 ILPAD1=0 741 ILPAD2=0 742 ILPAD3=0 743 ILPAD4=0 744 ILPAD5=0 745 ILCOL=1 746 IS_INC1_BND=1 747 IS_INC2_BND=2 748 ENDIF 749 C 750 IF(MOD(MYPE,INPES).EQ.INPES-1)THEN !EASTERNMOST SUBDOMAINS 751 IRPAD1=0 752 IRPAD2=0 753 IRPAD3=0 754 IRPAD4=0 755 IRPAD5=0 756 IRCOL=1 757 IE_INC1_BND=1 758 IE_INC2_BND=2 759 MY_IE_GLB=IM 760 ENDIF 761 C---------------------------------------------------------------------- 762 C*** 763 C*** NOW DO THE SAME FOR THE J DIRECTION 764 C*** 765 JBPAD1=1 766 JBPAD2=2 767 JBPAD3=3 Page 4 Source Listing MPPINIT 2014-12-17 20:46 MPPINIT.F 768 JBPAD4=4 769 JBPAD5=5 770 JTPAD1=1 771 JTPAD2=2 772 JTPAD3=3 773 JTPAD4=4 774 JTPAD5=5 775 C 776 IBROW=0 777 ITROW=0 778 C 779 JS_INC1_BND=0 780 JS_INC2_BND=0 781 JS_INC3_BND=0 782 JS_INC4_BND=0 783 JS_INC5_BND=0 784 JE_INC1_BND=0 785 JE_INC2_BND=0 786 JE_INC3_BND=0 787 JE_INC4_BND=0 788 JE_INC5_BND=0 789 C 790 IF(MYPE/INPES.EQ.0)THEN !SOUTHERNMOST SUBDOMAINS 791 JBPAD1=0 792 JBPAD2=0 793 JBPAD3=0 794 JBPAD4=0 795 JBPAD5=0 796 IBROW=1 797 JS_INC1_BND=1 798 JS_INC2_BND=2 799 JS_INC3_BND=3 800 JS_INC4_BND=4 801 JS_INC5_BND=5 802 ENDIF 803 C 804 IF(MYPE/INPES.EQ.JNPES-1)THEN !NORTHERNMOST SUBDOMAINS 805 JTPAD1=0 806 JTPAD2=0 807 JTPAD3=0 808 JTPAD4=0 809 JTPAD5=0 810 ITROW=1 811 JE_INC1_BND=1 812 JE_INC2_BND=2 813 JE_INC3_BND=3 814 JE_INC4_BND=4 815 JE_INC5_BND=5 816 MY_JE_GLB=JM 817 ENDIF 818 C---------------------------------------------------------------------- 819 C*** 820 C*** THE FOLLOWING ARE THE LOCAL LIMITS OF I AND J IN EACH SUBDOMAIN 821 C*** 822 MY_IS_LOC=1 823 MY_IE_LOC=MY_IE_GLB-MY_IS_GLB+1 824 MY_JS_LOC=1 Page 5 Source Listing MPPINIT 2014-12-17 20:46 MPPINIT.F 825 MY_JE_LOC=MY_JE_GLB-MY_JS_GLB+1 826 C---------------------------------------------------------------------- 827 C*** 828 C*** EACH PE WILL NOW FILL ITS OWN SECTIONS OF THE GLOBAL-TO-LOCAL 829 C*** TRANSLATION ARRAYS (DIMENSIONED GLOBALLY) AND LOCAL-TO-GLOBAL 830 C*** TRANSLATION ARRAYS (DIMENSIONED LOCALLY) 831 C*** 832 ILOC=0 833 DO I=MY_IS_GLB-1,MY_IE_GLB+1 834 G2LI(I)=ILOC 835 L2GI(ILOC)=I 836 ILOC=ILOC+1 837 ENDDO 838 C 839 JLOC=0 840 DO J=MY_JS_GLB-1,MY_JE_GLB+1 841 G2LJ(J)=JLOC 842 L2GJ(JLOC)=J 843 JLOC=JLOC+1 844 ENDDO 845 C---------------------------------------------------------------------- 846 C*** 847 C*** EACH PE WILL NOW FILL THE ARRAY CALLED MY_NEB WHICH HOLDS THE 848 C*** NUMBER OF THE 8 PEs THAT ARE ITS NEIGHBORS: NORTH(1), EAST(2), 849 C*** SOUTH(3), WEST(4), NORTHEAST(5), SOUTHEAST(6), SOUTHWEST(7), 850 C*** AND NORTHWEST(8). THE VALUE IN THE ARRAY WILL BE -1 FOR THOSE 851 C*** NEIGHBORS THAT DO NOT EXIST BECAUSE THEY ARE BEYOND THE 852 C*** GLOBAL DOMAIN BOUNDARY. 853 C*** 854 IPE=0 855 DO J=1,JNPES 856 DO I=1,INPES 857 ITEMP(I,J)=IPE 858 IF(IPE.EQ.MYPE) THEN 859 MYI=I 860 MYJ=J 861 ENDIF 862 IPE=IPE+1 863 ENDDO 864 ENDDO 865 C 866 MY_N=-1 867 IF(MYJ+1.LE.JNPES)MY_N=ITEMP(MYI,MYJ+1) 868 C 869 MY_E=-1 870 IF(MYI+1.LE.INPES)MY_E=ITEMP(MYI+1,MYJ) 871 C 872 MY_S=-1 873 IF(MYJ-1.GE.1)MY_S=ITEMP(MYI,MYJ-1) 874 C 875 MY_W=-1 876 IF(MYI-1.GE.1)MY_W=ITEMP(MYI-1,MYJ) 877 C 878 MY_NE=-1 879 IF((MYI+1.LE.INPES).AND.(MYJ+1.LE.JNPES)) 880 1 MY_NE=ITEMP(MYI+1,MYJ+1) 881 C Page 6 Source Listing MPPINIT 2014-12-17 20:46 MPPINIT.F 882 MY_SE=-1 883 IF((MYI+1.LE.INPES).AND.(MYJ-1.GE.1)) 884 1 MY_SE=ITEMP(MYI+1,MYJ-1) 885 C 886 MY_SW=-1 887 IF((MYI-1.GE.1).AND.(MYJ-1.GE.1)) 888 1 MY_SW=ITEMP(MYI-1,MYJ-1) 889 C 890 MY_NW=-1 891 IF((MYI-1.GE.1).AND.(MYJ+1.LE.JNPES)) 892 1 MY_NW=ITEMP(MYI-1,MYJ+1) 893 C 894 MY_NEB(1)=MY_N 895 MY_NEB(2)=MY_E 896 MY_NEB(3)=MY_S 897 MY_NEB(4)=MY_W 898 MY_NEB(5)=MY_NE 899 MY_NEB(6)=MY_SE 900 MY_NEB(7)=MY_SW 901 MY_NEB(8)=MY_NW 902 C---------------------------------------------------------------------- 903 C*** 904 C*** GENERATE THE TABLES (DIMENSIONED INPES*JNPES) THAT HOLD THE 905 C*** STARTING AND ENDING VALUES OF I AND J FOR EACH PE IN TERMS 906 C*** OF BOTH THE GLOBAL AND THE LOCAL DOMAINS. 907 C*** 908 CALL INDTABLE 909 C---------------------------------------------------------------------- 910 C*** 911 C*** CREATE ABBREVIATED NAMES FOR LOOP LIMITS. 912 C*** 913 MYIS =MY_IS_LOC 914 MYIS_P1 =MY_IS_LOC-ILPAD1 915 MYIS_P2 =MY_IS_LOC-ILPAD2 916 MYIS_P3 =MY_IS_LOC-ILPAD3 917 MYIS_P4 =MY_IS_LOC-ILPAD4 918 MYIS_P5 =MY_IS_LOC-ILPAD5 919 C 920 MYIS1 =MY_IS_LOC+IS_INC1_BND 921 MYIS1_P1=MY_IS_LOC+IS_INC1_BND-ILPAD1 922 MYIS1_P2=MY_IS_LOC+IS_INC1_BND-ILPAD2 923 MYIS1_P3=MY_IS_LOC+IS_INC1_BND-ILPAD3 924 MYIS1_P4=MY_IS_LOC+IS_INC1_BND-ILPAD4 925 C 926 MYIS2 =MY_IS_LOC+IS_INC2_BND 927 C*** 928 MYIE =MY_IE_LOC 929 MYIE_P1 =MY_IE_LOC+IRPAD1 930 MYIE_P2 =MY_IE_LOC+IRPAD2 931 MYIE_P3 =MY_IE_LOC+IRPAD3 932 MYIE_P4 =MY_IE_LOC+IRPAD4 933 MYIE_P5 =MY_IE_LOC+IRPAD5 934 C 935 MYIE1 =MY_IE_LOC-IE_INC1_BND !The size of these increments 936 MYIE1_P1=MY_IE_LOC-IE_INC1_BND+IRPAD1 !is zero unless the subdomain 937 MYIE1_P2=MY_IE_LOC-IE_INC1_BND+IRPAD2 !lies along a global boundary 938 MYIE1_P3=MY_IE_LOC-IE_INC1_BND+IRPAD3 !in which case the increment Page 7 Source Listing MPPINIT 2014-12-17 20:46 MPPINIT.F 939 MYIE1_P4=MY_IE_LOC-IE_INC1_BND+IRPAD4 !is indicated by the number 940 C !following 'INC'. 941 MYIE2 =MY_IE_LOC-IE_INC2_BND 942 MYIE2_P1=MY_IE_LOC-IE_INC2_BND+IRPAD1 943 C*** 944 C*** 945 MYJS =MY_JS_LOC 946 MYJS_P1 =MY_JS_LOC-JBPAD1 947 MYJS_P2 =MY_JS_LOC-JBPAD2 948 MYJS_P3 =MY_JS_LOC-JBPAD3 949 MYJS_P4 =MY_JS_LOC-JBPAD4 950 MYJS_P5 =MY_JS_LOC-JBPAD5 951 C 952 MYJS1 =MY_JS_LOC+JS_INC1_BND 953 MYJS1_P1=MY_JS_LOC+JS_INC1_BND-JBPAD1 954 MYJS1_P2=MY_JS_LOC+JS_INC1_BND-JBPAD2 955 MYJS1_P3=MY_JS_LOC+JS_INC1_BND-JBPAD3 956 MYJS1_P4=MY_JS_LOC+JS_INC1_BND-JBPAD4 957 MYJS1_P5=MY_JS_LOC+JS_INC1_BND-JBPAD5 958 C 959 MYJS2 =MY_JS_LOC+JS_INC2_BND 960 MYJS2_P1=MY_JS_LOC+JS_INC2_BND-JBPAD1 961 MYJS2_P2=MY_JS_LOC+JS_INC2_BND-JBPAD2 962 MYJS2_P3=MY_JS_LOC+JS_INC2_BND-JBPAD3 963 MYJS2_P4=MY_JS_LOC+JS_INC2_BND-JBPAD4 964 MYJS2_P5=MY_JS_LOC+JS_INC2_BND-JBPAD5 965 C 966 MYJS3 =MY_JS_LOC+JS_INC3_BND 967 MYJS3_P1=MY_JS_LOC+JS_INC3_BND-JBPAD1 968 MYJS3_P4=MY_JS_LOC+JS_INC3_BND-JBPAD4 969 C 970 MYJS4 =MY_JS_LOC+JS_INC4_BND 971 MYJS4_P1=MY_JS_LOC+JS_INC4_BND-JBPAD1 972 MYJS4_P4=MY_JS_LOC+JS_INC4_BND-JBPAD4 973 C 974 MYJS5 =MY_JS_LOC+JS_INC5_BND 975 MYJS5_P1=MY_JS_LOC+JS_INC5_BND-JBPAD1 976 MYJS5_P2=MY_JS_LOC+JS_INC5_BND-JBPAD2 977 C*** 978 MYJE =MY_JE_LOC 979 MYJE_P1 =MY_JE_LOC+JTPAD1 980 MYJE_P2 =MY_JE_LOC+JTPAD2 981 MYJE_P3 =MY_JE_LOC+JTPAD3 982 MYJE_P4 =MY_JE_LOC+JTPAD4 983 MYJE_P5 =MY_JE_LOC+JTPAD5 984 C 985 MYJE1 =MY_JE_LOC-JE_INC1_BND 986 MYJE1_P1=MY_JE_LOC-JE_INC1_BND+JTPAD1 987 MYJE1_P2=MY_JE_LOC-JE_INC1_BND+JTPAD2 988 MYJE1_P3=MY_JE_LOC-JE_INC1_BND+JTPAD3 989 MYJE1_P4=MY_JE_LOC-JE_INC1_BND+JTPAD4 990 MYJE1_P5=MY_JE_LOC-JE_INC1_BND+JTPAD5 991 C 992 MYJE2 =MY_JE_LOC-JE_INC2_BND 993 MYJE2_P1=MY_JE_LOC-JE_INC2_BND+JTPAD1 994 MYJE2_P2=MY_JE_LOC-JE_INC2_BND+JTPAD2 995 MYJE2_P3=MY_JE_LOC-JE_INC2_BND+JTPAD3 Page 8 Source Listing MPPINIT 2014-12-17 20:46 MPPINIT.F 996 MYJE2_P4=MY_JE_LOC-JE_INC2_BND+JTPAD4 997 MYJE2_P5=MY_JE_LOC-JE_INC2_BND+JTPAD5 998 C 999 MYJE3 =MY_JE_LOC-JE_INC3_BND 1000 MYJE3_P1=MY_JE_LOC-JE_INC3_BND+JTPAD1 1001 MYJE3_P4=MY_JE_LOC-JE_INC3_BND+JTPAD4 1002 MYJE3_P5=MY_JE_LOC-JE_INC3_BND+JTPAD5 1003 C 1004 MYJE4 =MY_JE_LOC-JE_INC4_BND 1005 MYJE4_P1=MY_JE_LOC-JE_INC4_BND+JTPAD1 1006 MYJE4_P4=MY_JE_LOC-JE_INC4_BND+JTPAD4 1007 MYJE4_P5=MY_JE_LOC-JE_INC4_BND+JTPAD5 1008 C 1009 MYJE5 =MY_JE_LOC-JE_INC5_BND 1010 MYJE5_P1=MY_JE_LOC-JE_INC5_BND+JTPAD1 1011 MYJE5_P2=MY_JE_LOC-JE_INC5_BND+JTPAD2 1012 C 1013 C----------------------------------------------------------------- 1014 C***************************************************************** 1015 RETURN 1016 END ENTRY POINTS Name mppinit_ Page 9 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References G2LI Scalar 55 I(4) 4 1 239 COM 234 G2LJ Scalar 55 I(4) 4 1 389 COM 241 GLB_TABLE Common 37 128 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 88 I(4) 4 scalar 88,90,233,234,235,256,257,259 IBROW Scalar 22 I(4) 4 scalar COM 176,196 ICHUNK Local 62 I(4) 4 scalar 62,64,89,90 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM ICHUNK_CALC Local 89 I(4) 4 scalar 89,90,91 IDIM1 Param 19 I(4) 4 scalar IDIM2 Param 19 I(4) 4 scalar IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_INC1_BND Local 136 I(4) 4 scalar 136,157,335,336,337,338,339 IE_INC2_BND Local 137 I(4) 4 scalar 137,158,341,342 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 IICHUNK Local 64 I(4) 4 scalar 64 ILCOL Scalar 22 I(4) 4 scalar COM 131,145 ILOC Local 232 I(4) 4 scalar 232,234,235,236 ILPAD1 Scalar 23 I(4) 4 scalar COM 120,140,314,321 ILPAD2 Scalar 23 I(4) 4 scalar COM 121,141,315,322 ILPAD3 Scalar 23 I(4) 4 scalar COM 122,142,316,323 ILPAD4 Scalar 23 I(4) 4 scalar COM 123,143,317,324 ILPAD5 Scalar 23 I(4) 4 scalar COM 124,144,318 IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57,62,1 59 INDTABLE Subr 308 308 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39,62,88,139,150 ,190,204,256,270,279,283 INUMQ Scalar 34 I(4) 4 1 100 COM IPE Local 76 I(4) 4 scalar 76,93,100,254,257,258,262 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM 132,156 IRPAD1 Scalar 24 I(4) 4 scalar COM 125,151,329,336,342 IRPAD2 Scalar 24 I(4) 4 scalar COM 126,152,330,337 IRPAD3 Scalar 24 I(4) 4 scalar COM 127,153,331,338 IRPAD4 Scalar 24 I(4) 4 scalar COM 128,154,332,339 IRPAD5 Scalar 24 I(4) 4 scalar COM 129,155,333 ISTAT Local 51 I(4) 4 1 5 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_INC1_BND Local 134 I(4) 4 scalar 134,146,320,321,322,323,324 IS_INC2_BND Local 135 I(4) 4 scalar 135,147,326 IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar 90 ITEMP Scalar 47 I(4) 4 2 91719 COM 257,267,270,273,276,280,284,288,29 2 ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM 177,210 J Local 80 I(4) 4 scalar 80,82,240,241,242,255,257,260 JBPAD1 Scalar 25 I(4) 4 scalar COM 165,191,346,353,360,367,371,375 Page 10 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References JBPAD2 Scalar 25 I(4) 4 scalar COM 166,192,347,354,361,376 JBPAD3 Scalar 25 I(4) 4 scalar COM 167,193,348,355,362 JBPAD4 Scalar 25 I(4) 4 scalar COM 168,194,349,356,363,368,372 JBPAD5 Scalar 25 I(4) 4 scalar COM 169,195,350,357,364 JCHUNK Local 63 I(4) 4 scalar 63,81,82 JCHUNK_CALC Local 81 I(4) 4 scalar 81,82,83 JDIM1 Param 20 I(4) 4 scalar JDIM2 Param 20 I(4) 4 scalar JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_INC1_BND Local 184 I(4) 4 scalar 184,211,385,386,387,388,389,390 JE_INC2_BND Local 185 I(4) 4 scalar 185,212,392,393,394,395,396,397 JE_INC3_BND Local 186 I(4) 4 scalar 186,213,399,400,401,402 JE_INC4_BND Local 187 I(4) 4 scalar 187,214,404,405,406,407 JE_INC5_BND Local 188 I(4) 4 scalar 188,215,409,410,411 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 JLOC Local 239 I(4) 4 scalar 239,241,242,243 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57,63,2 16 JNCHUNKS Local 78 I(4) 4 scalar 78,83,84 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39,63,80,204,255 ,267,279,291 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_INC1_BND Local 179 I(4) 4 scalar 179,197,352,353,354,355,356,357 JS_INC2_BND Local 180 I(4) 4 scalar 180,198,359,360,361,362,363,364 JS_INC3_BND Local 181 I(4) 4 scalar 181,199,366,367,368 JS_INC4_BND Local 182 I(4) 4 scalar 182,200,370,371,372 JS_INC5_BND Local 183 I(4) 4 scalar 183,201,374,375,376 JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar 82 JTPAD1 Scalar 26 I(4) 4 scalar COM 170,205,379,386,393,400,405,410 JTPAD2 Scalar 26 I(4) 4 scalar COM 171,206,380,387,394,411 JTPAD3 Scalar 26 I(4) 4 scalar COM 172,207,381,388,395 JTPAD4 Scalar 26 I(4) 4 scalar COM 173,208,382,389,396,401,406 JTPAD5 Scalar 26 I(4) 4 scalar COM 174,209,383,390,397,402,407 L2GI Scalar 57 I(4) 4 1 239 COM 235 L2GJ Scalar 57 I(4) 4 1 389 COM 242 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MOD Func 139 scalar 139,150 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 Page 11 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 12 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 13 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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_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 Page 14 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 15 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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,51 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_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 MPPINIT Subr 2 MYI Local 259 I(4) 4 scalar 259,267,270,273,276,279,280,283,28 4,287,288,291,292 MYIE Scalar 4 I(4) 4 scalar COM 328 MYIE1 Scalar 4 I(4) 4 scalar COM 335 MYIE1_P1 Scalar 8 I(4) 4 scalar COM 336 Page 16 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIE1_P2 Scalar 8 I(4) 4 scalar COM 337 MYIE1_P3 Scalar 8 I(4) 4 scalar COM 338 MYIE1_P4 Scalar 8 I(4) 4 scalar COM 339 MYIE2 Scalar 4 I(4) 4 scalar COM 341 MYIE2_P1 Scalar 9 I(4) 4 scalar COM 342 MYIE_P1 Scalar 7 I(4) 4 scalar COM 329 MYIE_P2 Scalar 7 I(4) 4 scalar COM 330 MYIE_P3 Scalar 7 I(4) 4 scalar COM 331 MYIE_P4 Scalar 7 I(4) 4 scalar COM 332 MYIE_P5 Scalar 7 I(4) 4 scalar COM 333 MYIS Scalar 4 I(4) 4 scalar COM 313 MYIS1 Scalar 4 I(4) 4 scalar COM 320 MYIS1_P1 Scalar 6 I(4) 4 scalar COM 321 MYIS1_P2 Scalar 6 I(4) 4 scalar COM 322 MYIS1_P3 Scalar 6 I(4) 4 scalar COM 323 MYIS1_P4 Scalar 6 I(4) 4 scalar COM 324 MYIS2 Scalar 4 I(4) 4 scalar COM 326 MYIS_P1 Scalar 5 I(4) 4 scalar COM 314 MYIS_P2 Scalar 5 I(4) 4 scalar COM 315 MYIS_P3 Scalar 5 I(4) 4 scalar COM 316 MYIS_P4 Scalar 5 I(4) 4 scalar COM 317 MYIS_P5 Scalar 5 I(4) 4 scalar COM 318 MYJ Local 260 I(4) 4 scalar 260,267,270,273,276,279,280,283,28 4,287,288,291,292 MYJE Scalar 15 I(4) 4 scalar COM 378 MYJE1 Scalar 15 I(4) 4 scalar COM 385 MYJE1_P1 Scalar 17 I(4) 4 scalar COM 386 MYJE1_P2 Scalar 17 I(4) 4 scalar COM 387 MYJE1_P3 Scalar 17 I(4) 4 scalar COM 388 MYJE1_P4 Scalar 17 I(4) 4 scalar COM 389 MYJE1_P5 Local 390 I(4) 4 scalar 390 MYJE2 Scalar 15 I(4) 4 scalar COM 392 MYJE2_P1 Scalar 18 I(4) 4 scalar COM 393 MYJE2_P2 Scalar 18 I(4) 4 scalar COM 394 MYJE2_P3 Scalar 18 I(4) 4 scalar COM 395 MYJE2_P4 Scalar 18 I(4) 4 scalar COM 396 MYJE2_P5 Local 397 I(4) 4 scalar 397 MYJE3 Scalar 15 I(4) 4 scalar COM 399 MYJE3_P1 Local 400 I(4) 4 scalar 400 MYJE3_P4 Scalar 18 I(4) 4 scalar COM 401 MYJE3_P5 Local 402 I(4) 4 scalar 402 MYJE4 Scalar 15 I(4) 4 scalar COM 404 MYJE4_P1 Scalar 19 I(4) 4 scalar COM 405 MYJE4_P4 Scalar 19 I(4) 4 scalar COM 406 MYJE4_P5 Local 407 I(4) 4 scalar 407 MYJE5 Scalar 15 I(4) 4 scalar COM 409 MYJE5_P1 Scalar 19 I(4) 4 scalar COM 410 MYJE5_P2 Scalar 19 I(4) 4 scalar COM 411 MYJE_P1 Scalar 16 I(4) 4 scalar COM 379 MYJE_P2 Scalar 16 I(4) 4 scalar COM 380 MYJE_P3 Scalar 16 I(4) 4 scalar COM 381 MYJE_P4 Scalar 16 I(4) 4 scalar COM 382 MYJE_P5 Scalar 16 I(4) 4 scalar COM 383 MYJS Scalar 10 I(4) 4 scalar COM 345 MYJS1 Scalar 10 I(4) 4 scalar COM 352 Page 17 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS1_P1 Scalar 12 I(4) 4 scalar COM 353 MYJS1_P2 Scalar 12 I(4) 4 scalar COM 354 MYJS1_P3 Scalar 12 I(4) 4 scalar COM 355 MYJS1_P4 Scalar 12 I(4) 4 scalar COM 356 MYJS1_P5 Local 357 I(4) 4 scalar 357 MYJS2 Scalar 10 I(4) 4 scalar COM 359 MYJS2_P1 Scalar 13 I(4) 4 scalar COM 360 MYJS2_P2 Scalar 13 I(4) 4 scalar COM 361 MYJS2_P3 Scalar 13 I(4) 4 scalar COM 362 MYJS2_P4 Scalar 13 I(4) 4 scalar COM 363 MYJS2_P5 Local 364 I(4) 4 scalar 364 MYJS3 Scalar 10 I(4) 4 scalar COM 366 MYJS3_P1 Local 367 I(4) 4 scalar 367 MYJS3_P4 Scalar 13 I(4) 4 scalar COM 368 MYJS4 Scalar 10 I(4) 4 scalar COM 370 MYJS4_P1 Scalar 14 I(4) 4 scalar COM 371 MYJS4_P4 Scalar 14 I(4) 4 scalar COM 372 MYJS5 Scalar 10 I(4) 4 scalar COM 374 MYJS5_P1 Scalar 14 I(4) 4 scalar COM 375 MYJS5_P2 Scalar 14 I(4) 4 scalar COM 376 MYJS_P1 Scalar 11 I(4) 4 scalar COM 346 MYJS_P2 Scalar 11 I(4) 4 scalar COM 347 MYJS_P3 Scalar 11 I(4) 4 scalar COM 348 MYJS_P4 Scalar 11 I(4) 4 scalar COM 349 MYJS_P5 Scalar 11 I(4) 4 scalar COM 350 MYPE Scalar 2 I(4) 4 scalar COM 93,139,150,190,204,258 MY_E Scalar 20 I(4) 4 scalar COM 269,270,295 MY_IE_CALC Local 92 I(4) 4 scalar 92,95,99 MY_IE_GLB Scalar 2 I(4) 4 scalar COM 95,159,223,233 MY_IE_LOC Scalar 3 I(4) 4 scalar COM 223,328,329,330,331,332,333,335,33 6,337,338,339,341,342 MY_IS_CALC Local 85 I(4) 4 scalar 85,94,99 MY_IS_GLB Scalar 2 I(4) 4 scalar COM 94,223,233 MY_IS_LOC Scalar 3 I(4) 4 scalar COM 222,313,314,315,316,317,318,320,32 1,322,323,324,326 MY_JE_CALC Local 84 I(4) 4 scalar 84,97,103 MY_JE_GLB Scalar 2 I(4) 4 scalar COM 97,216,225,240 MY_JE_LOC Scalar 3 I(4) 4 scalar COM 225,378,379,380,381,382,383,385,38 6,387,388,389,390,392,393,394,395, 396,397,399,400,401,402,404,405,40 6,407,409,410,411 MY_JS_CALC Local 77 I(4) 4 scalar 77,96,103 MY_JS_GLB Scalar 2 I(4) 4 scalar COM 96,225,240 MY_JS_LOC Scalar 3 I(4) 4 scalar COM 224,345,346,347,348,349,350,352,35 3,354,355,356,357,359,360,361,362, 363,364,366,367,368,370,371,372,37 4,375,376 MY_N Scalar 20 I(4) 4 scalar COM 266,267,294 MY_NE Scalar 21 I(4) 4 scalar COM 278,280,298 MY_NEB Scalar 21 I(4) 4 1 8 COM 294,295,296,297,298,299,300,301 MY_NW Scalar 21 I(4) 4 scalar COM 290,292,301 MY_S Scalar 20 I(4) 4 scalar COM 272,273,296 MY_SE Scalar 21 I(4) 4 scalar COM 282,284,299 MY_SW Scalar 21 I(4) 4 scalar COM 286,288,300 MY_W Scalar 20 I(4) 4 scalar COM 275,276,297 Page 18 Source Listing MPPINIT 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References NCHUNKS Local 86 I(4) 4 scalar 86,91,92 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 19 Source Listing MPPINIT 2014-12-17 20:46 MPPINIT.F 1017 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 1018 C----------------------------------------------------------------- 1019 SUBROUTINE INDTABLE 1020 C----------------------------------------------------------------- 1021 C*** 1022 C*** THIS ROUTINE GENERATES THE TABLES THAT WILL GIVE THE 1023 C*** STARTING AND ENDING VALUES OF I AND J FOR EACH PE ON 1024 C*** THE GLOBAL AND LOCAL DOMAINS. EACH PE WILL HAVE A COPY 1025 C*** OF THE FULL TABLES. THE ARGUMENT USED IS SIMPLY THE 1026 C*** NUMBER OF THE PE FOR WHICH THESE VALUES ARE DESIRED. 1027 C*** 1028 C----------------------------------------------------------------- 1029 INCLUDE "parmeta" 1052 INCLUDE "mpif.h" 1569 INCLUDE "mpp.h" 1570 C----------------------------------------------------------------- 1571 C 1630 IS_LOC_TABLE(MYPE)=MY_IS_LOC 1631 JS_LOC_TABLE(MYPE)=MY_JS_LOC 1632 IE_LOC_TABLE(MYPE)=MY_IE_LOC 1633 JE_LOC_TABLE(MYPE)=MY_JE_LOC 1634 C 1635 IS_GLB_TABLE(MYPE)=MY_IS_GLB 1636 IE_GLB_TABLE(MYPE)=MY_IE_GLB 1637 JS_GLB_TABLE(MYPE)=MY_JS_GLB 1638 JE_GLB_TABLE(MYPE)=MY_JE_GLB 1639 C 1640 DO IPE=0,NPES-1 1641 CALL MPI_BCAST(IS_LOC_TABLE(IPE),1,MPI_INTEGER,IPE, 1642 1 MPI_COMM_COMP,IRTN) 1643 CALL MPI_BCAST(JS_LOC_TABLE(IPE),1,MPI_INTEGER,IPE, 1644 1 MPI_COMM_COMP,IRTN) 1645 CALL MPI_BCAST(IE_LOC_TABLE(IPE),1,MPI_INTEGER,IPE, 1646 1 MPI_COMM_COMP,IRTN) 1647 CALL MPI_BCAST(JE_LOC_TABLE(IPE),1,MPI_INTEGER,IPE, 1648 1 MPI_COMM_COMP,IRTN) 1649 C 1650 CALL MPI_BCAST(IS_GLB_TABLE(IPE),1,MPI_INTEGER,IPE, 1651 1 MPI_COMM_COMP,IRTN) 1652 CALL MPI_BCAST(JS_GLB_TABLE(IPE),1,MPI_INTEGER,IPE, 1653 1 MPI_COMM_COMP,IRTN) 1654 CALL MPI_BCAST(IE_GLB_TABLE(IPE),1,MPI_INTEGER,IPE, 1655 1 MPI_COMM_COMP,IRTN) 1656 CALL MPI_BCAST(JE_GLB_TABLE(IPE),1,MPI_INTEGER,IPE, 1657 1 MPI_COMM_COMP,IRTN) 1658 ENDDO 1659 C 1660 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1661 C------------------------------------------------------------------ 1662 C*** 1663 C*** ALL OF THE PEs CAN NOW GENERATE A COMPLETE TABLE OF THE 1664 C*** NUMBER OF GRID POINTS IN THE I DIRECTION THAT ARE ON 1665 C*** ALL OTHER PEs. THIS WILL BE USED IN THE MESINGER MSLP 1666 C*** REDUCTION AS WELL AS IN THE BROADCAST BELOW. 1667 C*** 1668 DO IPE=0,NPES-1 1669 ICHUNKTAB(IPE)=IE_LOC_TABLE(IPE)-IS_LOC_TABLE(IPE)+1 Page 20 Source Listing INDTABLE 2014-12-17 20:46 MPPINIT.F 1670 ENDDO 1671 C*** 1672 C*** SET UP A MAP OF THE GLOBAL DOMAIN THAT GIVES THE PE THAT 1673 C*** OWNS EACH POINT. 1674 C*** (THIS APPEARS TO BE VESTIGIAL) 1675 C*** 1676 C 1677 C*** FIRST EACH PE FILLS IN ITS SECTION OF THE ARRAY 1678 C 1679 DO JGLB=JS_GLB_TABLE(MYPE),JE_GLB_TABLE(MYPE) 1680 DO IGLB=IS_GLB_TABLE(MYPE),IE_GLB_TABLE(MYPE) 1681 ITEMP(IGLB,JGLB)=MYPE 1682 ENDDO 1683 ENDDO 1684 C 1685 C*** NEXT, ALL PEs EXCHANGE THEIR SECTIONS SO EVERYONE HAS 1686 C*** A FULL MAP 1687 C 1688 DO IPE=0,NPES-1 1689 DO JGLB=JS_GLB_TABLE(IPE),JE_GLB_TABLE(IPE) 1690 CALL MPI_BCAST(ITEMP(IS_GLB_TABLE(IPE),JGLB),ICHUNKTAB(IPE) 1691 1, MPI_INTEGER,IPE,MPI_COMM_COMP,IRECV) 1692 ENDDO 1693 ENDDO 1694 C 1695 CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) 1696 C******************************************************************** 1697 RETURN 1698 END Page 21 Source Listing INDTABLE 2014-12-17 20:46 Entry Points MPPINIT.F ENTRY POINTS Name indtable_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 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 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM 473,494 IDIM1 Param 19 I(4) 4 scalar IDIM2 Param 19 I(4) 4 scalar IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM 440,458,484 IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM 436,449,473 IGLB Local 484 I(4) 4 scalar 484,485 IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 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 INDTABLE Subr 419 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IPE Local 444 I(4) 4 scalar 444,445,447,449,451,454,456,458,46 0,472,473,492,493,494,495 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 495 I(4) 4 scalar 495 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 IRTN Local 446 I(4) 4 scalar 446,448,450,452,455,457,459,461,46 4,499 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM 439,454,484,494 IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM 434,445,473 ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM 485,494 ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM Page 22 Source Listing INDTABLE 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar JDIM2 Param 20 I(4) 4 scalar JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM 442,460,483,493 JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM 437,451 JGLB Local 483 I(4) 4 scalar 483,485,493,494 JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 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 441,456,483,493 JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM 435,447 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 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_BARRIER Subr 464 464,499 MPI_BCAST Subr 445 445,447,449,451,454,456,458,460,49 4 MPI_BOR Param 154 I(4) 4 scalar Page 23 Source Listing INDTABLE 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 446,448,450,452,455,457,459,461,46 4,495,499 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 Page 24 Source Listing INDTABLE 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 25 Source Listing INDTABLE 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 445,447,449,451,454,456,458,460,49 5 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_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 Page 26 Source Listing INDTABLE 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 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 Page 27 Source Listing INDTABLE 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 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_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 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 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 28 Source Listing INDTABLE 2014-12-17 20:46 Symbol Table MPPINIT.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 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 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 434,435,436,437,439,440,441,442,48 Page 29 Source Listing INDTABLE 2014-12-17 20:46 Symbol Table MPPINIT.F Name Object Declared Type Bytes Dimen Elements Attributes References 3,484,485 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM 440 MY_IE_LOC Scalar 3 I(4) 4 scalar COM 436 MY_IS_GLB Scalar 2 I(4) 4 scalar COM 439 MY_IS_LOC Scalar 3 I(4) 4 scalar COM 434 MY_JE_GLB Scalar 2 I(4) 4 scalar COM 442 MY_JE_LOC Scalar 3 I(4) 4 scalar COM 437 MY_JS_GLB Scalar 2 I(4) 4 scalar COM 441 MY_JS_LOC Scalar 3 I(4) 4 scalar COM 435 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 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 444,472,492 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 INDTABLE 2014-12-17 20:46 MPPINIT.F 1699 Page 31 Source Listing INDTABLE 2014-12-17 20:46 Subprograms/Common Blocks MPPINIT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References GLB_TABLE Common 37 128 INDTABLE Subr 419 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 MPPINIT Subr 2 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 -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__ Page 32 Source Listing INDTABLE 2014-12-17 20:46 MPPINIT.F -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 -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/, Page 33 Source Listing INDTABLE 2014-12-17 20:46 MPPINIT.F /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : MPPINIT.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100