Page 1 Source Listing FILT25 2025-03-12 18:21 /tmp/ifortsvHh9c.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 2 Source Listing FILT25 2025-03-12 18:21 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) 178 12346 format(' 2nd row=',4(1x,f2.0)) 179 12347 format(' 3rd row=',4(1x,f2.0)) 180 12348 format(' 4th row=',4(1x,f2.0)) 181 12349 format(' 5th row=',4(1x,f2.0)) 182 12350 format(' 6th row=',4(1x,f2.0)) 183 12351 format(' 7th row=',4(1x,f2.0)) 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) 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) Page 3 Source Listing FILT25 2025-03-12 18:21 FILT25.F 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 ENTRY POINTS Name filt25_ Page 4 Source Listing FILT25 2025-03-12 18:21 Symbol Table FILT25.F SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 101 Label 220 159 102 Label 221 158 105 Label 234 155 12345 Label 177 12346 Label 178 12347 Label 179 12348 Label 180 12349 Label 181 12350 Label 182 12351 Label 183 CF1 Local 141 R(4) 4 scalar 141,194,204 CF2 Local 141 R(4) 4 scalar 141,195,205 CF3 Local 141 R(4) 4 scalar 141,196,207 CF4 Local 142 R(4) 4 scalar 142,197,209 CF5 Local 142 R(4) 4 scalar 142,198,211 CF6 Local 142 R(4) 4 scalar 142,200,215 EXCH Local 36 scalar 232 EXCH0 Subr 37 232 EXCH00 Subr 37 EXCH0001111 Subr 37 EXCH01 Subr 37 EXCH011 Subr 37 EXCH1 Subr 38 EXCH11 Subr 38 EXCH111 Subr 38 EXCH1111 Subr 38 EXCH11111 Subr 38 EXCH111111 Subr 39 EXCHM Module 35 35 FILT25 Subr 2 GLB_TABLE Common 103 128 SAVE HTOT Local 185 R(4) 4 scalar 185,193 I Local 148 I(4) 4 scalar 148,149,159,161,162,185,187,188,19 1,194,196,197,200,204,207,208,209, 210,215,216,225,226,227 IDIM1 Param 61 I(4) 4 scalar 131,138,139,148 IDIM2 Param 61 I(4) 4 scalar 131,138,139,148 IEXCH Subr 39 IGSTL Param 56 I(4) 4 scalar 61 IGSTR Param 56 I(4) 4 scalar 61 IIHE Local 161 I(4) 4 scalar 161,186,189,190,195,198,199,205,20 6,211,212,213 IIHW Local 162 I(4) 4 scalar 162,186,189,190,195,198,199,205,20 6,212,213,214 IM Param 45 I(4) 4 scalar 58,61,109,110,111,112,113,117,118, 123,135 INDX Common 128 6564 SAVE INDXG Common 134 8084 SAVE INPES Param 53 I(4) 4 scalar 58,61,93,94,95,104,105 IP Local 155 I(4) 4 scalar 155 IPASS Dummy 2 I(4) 4 scalar ARG,INOUT 145 Page 5 Source Listing FILT25 2025-03-12 18:21 Symbol Table FILT25.F Name Object Declared Type Bytes Dimen Elements Attributes References IPC Local 145 I(4) 4 scalar 145,155 ITAIL Param 58 I(4) 4 scalar J Local 147 I(4) 4 scalar 147,149,158,161,162,185,186,187,18 8,189,190,191,194,195,196,197,198, 199,200,204,205,206,207,208,209,21 0,211,212,213,214,215,216,224,226, 227 JDIM1 Param 62 I(4) 4 scalar 129,130,138,139,147 JDIM2 Param 62 I(4) 4 scalar 129,130,138,139,147 JGSTL Param 57 I(4) 4 scalar 62 JGSTR Param 57 I(4) 4 scalar 62 JM Param 45 I(4) 4 scalar 59,62,109,110,111,112,113,117,118, 123,135 JNPES Param 53 I(4) 4 scalar 59,62,93,94,95,104,105 JTAIL Param 59 I(4) 4 scalar LM Param 45 I(4) 4 scalar 118 LSM Param 45 I(4) 4 scalar MAPPINGS Common 122 5024 SAVE MPPCOM Common 67 1464 SAVE RSUMH Local 202 R(4) 4 scalar 202,217 SUMH Local 194 R(4) 4 scalar 194,202 TEMPCOM Common 108 6603768 SAVE TM Dummy 2 R(4) 4 2 17955 ARG,INOUT 185,186,187,188,189,190,191,194,19 5,196,197,198,199,200,204,205,206, 207,208,209,210,211,212,213,214,21 5,216,226 TOPO Common 116 17478548 SAVE Z Local 138 R(4) 4 2 17955 149,204,227 ZI Dummy 2 R(4) 4 2 17955 ARG,INOUT 204,205,206,207,208,209,210,211,21 2,213,214,215,216,227,232 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM IHE I(4) 4 0 1 399 COM 161 IHEG I(4) 4 0 1 387 COM IHW I(4) 4 1596 1 399 COM 162 IHWG I(4) 4 1548 1 387 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 scalar COM Page 6 Source Listing FILT25 2025-03-12 18:21 Symbol Table FILT25.F Name Type Bytes Offset Dimen Elements Attributes References IRAD I(4) 4 6384 1 45 COM IRADG I(4) 4 6192 1 473 COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 8 COM IS_LOC_TABLE I(4) 4 492 1 8 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IVE I(4) 4 3192 1 399 COM IVEG I(4) 4 3096 1 387 COM IVW I(4) 4 4788 1 399 COM IVWG I(4) 4 4644 1 387 COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM MPI_COMM_COMP I(4) 4 652 scalar COM MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM 159,225 MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM Page 7 Source Listing FILT25 2025-03-12 18:21 Symbol Table FILT25.F Name Type Bytes Offset Dimen Elements Attributes References MYIS2 I(4) 4 48 scalar COM 159,225 MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM 158,224 MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM 158,224 MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM Page 8 Source Listing FILT25 2025-03-12 18:21 Symbol Table FILT25.F Name Type Bytes Offset Dimen Elements Attributes References MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NPES I(4) 4 4 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TTVG R(4) 4 371884 2 92971 COM Page 9 Source Listing FILT25 2025-03-12 18:21 Subprograms/Common Blocks FILT25.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References FILT25 Subr 2 GLB_TABLE Common 103 128 SAVE INDX Common 128 6564 SAVE INDXG Common 134 8084 SAVE MAPPINGS Common 122 5024 SAVE MPPCOM Common 67 1464 SAVE TEMPCOM Common 108 6603768 SAVE TOPO Common 116 17478548 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 Page 10 Source Listing FILT25 2025-03-12 18:21 FILT25.F -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant Page 11 Source Listing FILT25 2025-03-12 18:21 FILT25.F -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : FILT25.lst no -o COMPILER: Intel(R) Fortran 19.1-1655