Page 1 Source Listing 2014-12-17 20:46 /tmpnwprd/ifortymnTiG.i FILT25.F(84): remark #8290: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit... 12351 format(' 7th row=',4(1x,f2.0)) ---------------------------------^ FILT25.F(83): remark #8290: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit... 12350 format(' 6th row=',4(1x,f2.0)) ---------------------------------^ FILT25.F(82): remark #8290: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit... 12349 format(' 5th row=',4(1x,f2.0)) ---------------------------------^ FILT25.F(81): remark #8290: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit... 12348 format(' 4th row=',4(1x,f2.0)) ---------------------------------^ FILT25.F(80): remark #8290: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit... 12347 format(' 3rd row=',4(1x,f2.0)) ---------------------------------^ FILT25.F(79): remark #8290: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit... 12346 format(' 2nd row=',4(1x,f2.0)) ---------------------------------^ FILT25.F(78): remark #8290: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit... 12345 format(' mask=',f2.0,' ihe=',i2,' ihw=',i2,' l=',i2) -------------------------^ Page 2 Source Listing FILT25 2014-12-17 20:46 /tmpnwprd/ifortymnTiG.i 1 # 1 "FILT25.F" 2 SUBROUTINE FILT25(ZI,TM,IPASS) 3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 C . . . . 5 C SUBPROGRAM: FILTER FILTERS THE ARRAY ZI 6 C PRGMMR: DIMEGO ORG: W/NP22 DATE: 86-07-18 7 C 8 C ABSTRACT: FILTERS AN ARRAY USING A 25PT BLECK FILTER IN THE 9 C INTERIOR OF THE DOMAIN 10 C 11 C PROGRAM HISTORY LOG: 12 C 86-07-18 G DIMEGO - ORIGINATOR 13 C 88-09-23 B SCHMIDT - ADDED THE DOCBLOCK 14 C 90-11-27 G DIMEGO - LEFT Z AS INTERNAL WORK ARRAY ON CRAY 15 C 93-06-21 R TREADON - STREAMLINED CODE 16 C 95-06-21 T BLACK - MODIFIED FOR THE E-GRID 17 C 99-08-25 T BLACK - MODIFIED FOR DISTRIBUTED MEMORY 18 C 19 C USAGE: CALL FILTER (IDIM1,IDIM2,JDIM1,JDIM2,ZI,IPASS) 20 C INPUT ARGUMENT LIST: 21 C ZI - ARRAY CONTAINING THE ARRAY TO BE FILTERED 22 C TM - ARRAY CONTAINING THE TOPOGRAPHY MASK 23 C IPASS - NUMBER OF PASSES THROUGH THE FILTER 24 C 25 C OUTPUT ARGUMENT LIST: 26 C ZI - ARRAY CONTAINING THE FILTERED FIELD 27 C 28 C ATTRIBUTES: 29 C LANGUAGE: FORTRAN 90 30 C MACHINE: IBM SP 31 C 32 C$$$ 33 C---------------------------------------------------------------- 34 INCLUDE "EXCHM.h" 42 INCLUDE "parmeta" 65 INCLUDE "mpp.h" 66 C---------------------------------------------------------------- 125 INCLUDE "INDX.comm" 126 C---------------------------------------------------------------- 138 REAL ZI(IDIM1:IDIM2,JDIM1:JDIM2),Z(IDIM1:IDIM2,JDIM1:JDIM2) 139 REAL TM(IDIM1:IDIM2,JDIM1:JDIM2) 140 C 141 DATA CF1/0.279372/,CF2/0.171943/,CF3/-0.006918/ 142 1, CF4/0.077458/,CF5/-0.024693/,CF6/-0.012940/ 143 C---------------------------------------------------------------- 144 C 145 IPC=IPASS 146 C 147 DO J=JDIM1,JDIM2 148 DO I=IDIM1,IDIM2 149 Z(I,J)=0. 150 ENDDO 151 ENDDO 152 C*** 153 C*** FILTER THE INTERIOR POINTS WITH 25-PT BLECK FILTER 154 C*** 155 DO 105 IP=1,IPC Page 3 Source Listing FILT25 2014-12-17 20:46 FILT25.F 156 C 157 !$omp parallel do private(htot,i,iihe,iihw,rsumh,sumh) 158 DO 102 J=MYJS4,MYJE4 159 DO 101 I=MYIS2,MYIE2 160 C 161 IIHE=I+IHE(J) 162 IIHW=I+IHW(J) 163 c if(mype.eq.6.and.i.eq.16.and.j.eq.34)then 164 c write(6,12345)tm(i,j),ihe(j),ihw(j),l 165 c write(6,12346)tm(IIHW,J-1),tm(IIHE,J-1),tm(IIHE,J+1), 166 c 1 tm(IIHW,J+1) 167 c write(6,12347)tm(I-1,J-2),tm(I+1,J-2),tm(I+1,J+2), 168 c 1 tm(I-1,J+2) 169 c write(6,12348)tm(I,J-2),tm(I,J+2),tm(I+1,J), 170 c 1 tm(I-1,J) 171 c write(6,12349)tm(IIHE,J-3),tm(IIHE+1,J-1),tm(IIHW,J-3), 172 c 1 tm(IIHE+1,J+1) 173 c write(6,12350)tm(IIHW-1,J-1),tm(IIHE,J+3),tm(IIHW-1,J+1), 174 c 1 tm(IIHW,J+3) 175 c write(6,12351)tm(I,J-4),tm(I+2,J),tm(I-2,J), 176 c 1 tm(I,J+4) 177 12345 format(' mask=',f2.0,' ihe=',i2,' ihw=',i2,' l=',i2) .........................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+3'. 178 12346 format(' 2nd row=',4(1x,f2.0)) .................................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+3'. 179 12347 format(' 3rd row=',4(1x,f2.0)) .................................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+3'. 180 12348 format(' 4th row=',4(1x,f2.0)) .................................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+3'. 181 12349 format(' 5th row=',4(1x,f2.0)) .................................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+3'. 182 12350 format(' 6th row=',4(1x,f2.0)) .................................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+3'. 183 12351 format(' 7th row=',4(1x,f2.0)) .................................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+3'. 184 c endif 185 HTOT=TM(I,J) 186 1 +TM(IIHW,J-1)+TM(IIHE,J-1)+TM(IIHE,J+1)+TM(IIHW,J+1) 187 2 +TM(I-1,J-2)+TM(I+1,J-2)+TM(I+1,J+2)+TM(I-1,J+2) 188 3 +TM(I,J-2)+TM(I,J+2)+TM(I+1,J)+TM(I-1,J) 189 4 +TM(IIHE,J-3)+TM(IIHE+1,J-1)+TM(IIHW,J-3)+TM(IIHE+1,J+1) 190 5 +TM(IIHW-1,J-1)+TM(IIHE,J+3)+TM(IIHW-1,J+1)+TM(IIHW,J+3) 191 6 +TM(I,J-4)+TM(I+2,J)+TM(I-2,J)+TM(I,J+4) Page 4 Source Listing FILT25 2014-12-17 20:46 FILT25.F 192 C 193 IF(HTOT.GT.0.)THEN 194 SUMH=CF1*TM(I,J) 195 1 +CF2*(TM(IIHW,J-1)+TM(IIHE,J-1)+TM(IIHE,J+1)+TM(IIHW,J+1)) 196 2 +CF3*(TM(I-1,J-2)+TM(I+1,J-2)+TM(I+1,J+2)+TM(I-1,J+2)) 197 3 +CF4*(TM(I,J-2)+TM(I,J+2)+TM(I+1,J)+TM(I-1,J)) 198 4 +CF5*(TM(IIHE,J-3)+TM(IIHE+1,J-1)+TM(IIHW,J-3)+TM(IIHE+1,J+1) 199 5 +TM(IIHW-1,J-1)+TM(IIHE,J+3)+TM(IIHW-1,J+1)+TM(IIHW,J+3)) 200 6 +CF6*(TM(I,J-4)+TM(I+2,J)+TM(I-2,J)+TM(I,J+4)) 201 C 202 RSUMH=1./SUMH 203 C 204 Z(I,J)=(CF1*ZI(I,J)*TM(I,J) 205 1 +CF2*(ZI(IIHW,J-1)*TM(IIHW,J-1)+ZI(IIHE,J-1)*TM(IIHE,J-1) 206 2 +ZI(IIHE,J+1)*TM(IIHE,J+1)+ZI(IIHW,J+1)*TM(IIHW,J+1)) 207 3 +CF3*(ZI(I-1,J-2)*TM(I-1,J-2)+ZI(I+1,J-2)*TM(I+1,J-2) 208 4 +ZI(I+1,J+2)*TM(I+1,J+2)+ZI(I-1,J+2)*TM(I-1,J+2)) 209 5 +CF4*(ZI(I,J-2)*TM(I,J-2)+ZI(I,J+2)*TM(I,J+2) 210 6 +ZI(I+1,J)*TM(I+1,J)+ZI(I-1,J)*TM(I-1,J)) 211 7 +CF5*(ZI(IIHE,J-3)*TM(IIHE,J-3)+ZI(IIHE+1,J-1)*TM(IIHE+1,J-1) 212 8 +ZI(IIHW,J-3)*TM(IIHW,J-3)+ZI(IIHE+1,J+1)*TM(IIHE+1,J+1) 213 9 +ZI(IIHW-1,J-1)*TM(IIHW-1,J-1)+ZI(IIHE,J+3)*TM(IIHE,J+3) 214 o +ZI(IIHW-1,J+1)*TM(IIHW-1,J+1)+ZI(IIHW,J+3)*TM(IIHW,J+3)) 215 1 +CF6*(ZI(I,J-4)*TM(I,J-4)+ZI(I+2,J)*TM(I+2,J) 216 2 +ZI(I-2,J)*TM(I-2,J)+ZI(I,J+4)*TM(I,J+4))) 217 3 *RSUMH 218 ENDIF 219 C 220 101 CONTINUE 221 102 CONTINUE 222 C 223 !$omp parallel do 224 DO J=MYJS4,MYJE4 225 DO I=MYIS2,MYIE2 226 IF(TM(I,J).GT.0.5)THEN 227 ZI(I,J)=Z(I,J) 228 ENDIF 229 ENDDO 230 ENDDO 231 C 232 CALL EXCH(ZI,1,4,4) 233 C 234 105 CONTINUE 235 C 236 RETURN 237 END Page 5 Source Listing FILT25 2014-12-17 20:46 Entry Points FILT25.F ENTRY POINTS Name filt25_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 101 Label 121 60 102 Label 122 59 105 Label 135 56 12345 Label 78 12346 Label 79 12347 Label 80 12348 Label 81 12349 Label 82 12350 Label 83 12351 Label 84 CF1 Local 42 R(4) 4 scalar 42,95,105 CF2 Local 42 R(4) 4 scalar 42,96,106 CF3 Local 42 R(4) 4 scalar 42,97,108 CF4 Local 43 R(4) 4 scalar 43,98,110 CF5 Local 43 R(4) 4 scalar 43,99,112 CF6 Local 43 R(4) 4 scalar 43,101,116 EXCH Local 2 scalar 133 EXCH0 Subr 3 133 EXCH00 Subr 3 EXCH0001111 Subr 3 EXCH01 Subr 3 EXCH011 Subr 3 EXCH1 Subr 4 EXCH11 Subr 4 EXCH111 Subr 4 EXCH1111 Subr 4 EXCH11111 Subr 4 EXCH111111 Subr 5 EXCHM Module 1 1 FILT25 Subr 1 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 HTOT Local 86 R(4) 4 scalar 86,94 I Local 49 I(4) 4 scalar 49,50,60,62,63,86,88,89,92,95,97,9 8,101,105,108,109,110,111,116,117, 126,127,128 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 5,39,40,49 IDIM2 Param 19 I(4) 4 scalar 5,39,40,49 IEXCH Subr 5 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM Page 6 Source Listing FILT25 2014-12-17 20:46 Symbol Table FILT25.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 IHE Scalar 3 I(4) 4 1 399 COM 62 IHEG Scalar 9 I(4) 4 1 387 COM IHW Scalar 3 I(4) 4 1 399 COM 63 IHWG Scalar 9 I(4) 4 1 387 COM IIHE Local 62 I(4) 4 scalar 62,87,90,91,96,99,100,106,107,112, 113,114 IIHW Local 63 I(4) 4 scalar 63,87,90,91,96,99,100,106,107,113, 114,115 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 9,16,19,43,44,45,46,47,51,52,57 INDX Common 2 6564 INDXG Common 8 8084 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IP Local 56 I(4) 4 scalar 56 IPASS Dummy 1 I(4) 4 scalar ARG,INOUT 46 IPC Local 46 I(4) 4 scalar 46,56 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRAD Scalar 5 I(4) 4 1 45 COM IRADG Scalar 9 I(4) 4 1 473 COM IRCOL Scalar 22 I(4) 4 scalar COM 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 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 IVE Scalar 4 I(4) 4 1 399 COM IVEG Scalar 9 I(4) 4 1 387 COM IVW Scalar 4 I(4) 4 1 399 COM IVWG Scalar 9 I(4) 4 1 387 COM J Local 48 I(4) 4 scalar 48,50,59,62,63,86,87,88,89,90,91,9 2,95,96,97,98,99,100,101,105,106,1 07,108,109,110,111,112,113,114,115 ,116,117,125,127,128 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 3,4,39,40,48 JDIM2 Param 20 I(4) 4 scalar 3,4,39,40,48 Page 7 Source Listing FILT25 2014-12-17 20:46 Symbol Table FILT25.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 JM Param 3 I(4) 4 scalar 9,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 LM Param 3 I(4) 4 scalar 52 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM 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 60,126 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 MYIS2 Scalar 4 I(4) 4 scalar COM 60,126 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 Page 8 Source Listing FILT25 2014-12-17 20:46 Symbol Table FILT25.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 59,125 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 59,125 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 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 MY_NW Scalar 21 I(4) 4 scalar COM Page 9 Source Listing FILT25 2014-12-17 20:46 Symbol Table FILT25.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 RSUMH Local 103 R(4) 4 scalar 103,118 SUMH Local 95 R(4) 4 scalar 95,103 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 TM Dummy 1 R(4) 4 2 17955 ARG,INOUT 86,87,88,89,90,91,92,95,96,97,98,9 9,100,101,105,106,107,108,109,110, 111,112,113,114,115,116,117,127 TOPO Common 50 17478548 TTVG Scalar 51 R(4) 4 2 92971 COM Z Local 39 R(4) 4 2 17955 50,105,128 ZI Dummy 1 R(4) 4 2 17955 ARG,INOUT 105,106,107,108,109,110,111,112,11 3,114,115,116,117,128,133 Page 10 Source Listing FILT25 2014-12-17 20:46 Subprograms/Common Blocks FILT25.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References FILT25 Subr 1 GLB_TABLE Common 37 128 INDX Common 2 6564 INDXG Common 8 8084 MAPPINGS Common 56 5024 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 -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 Page 11 Source Listing FILT25 2014-12-17 20:46 FILT25.F 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/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : FILT25.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100