Page 1 Source Listing FILT25
2025-03-12 18:22 /tmp/ifort214KYW.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"
66 INCLUDE "mpp.h"
67 C----------------------------------------------------------------
126 INCLUDE "INDX.comm"
127 C----------------------------------------------------------------
139 REAL ZI(IDIM1:IDIM2,JDIM1:JDIM2),Z(IDIM1:IDIM2,JDIM1:JDIM2)
140 REAL TM(IDIM1:IDIM2,JDIM1:JDIM2)
141 C
142 DATA CF1/0.279372/,CF2/0.171943/,CF3/-0.006918/
143 1, CF4/0.077458/,CF5/-0.024693/,CF6/-0.012940/
144 C----------------------------------------------------------------
145 C
146 IPC=IPASS
147 C
148 DO J=JDIM1,JDIM2
149 DO I=IDIM1,IDIM2
150 Z(I,J)=0.
151 ENDDO
152 ENDDO
153 C***
154 C*** FILTER THE INTERIOR POINTS WITH 25-PT BLECK FILTER
155 C***
156 DO 105 IP=1,IPC
Page 2 Source Listing FILT25
2025-03-12 18:22 FILT25.F
157 C
158 !$omp parallel do private(htot,i,iihe,iihw,rsumh,sumh)
159 DO 102 J=MYJS4,MYJE4
160 DO 101 I=MYIS2,MYIE2
161 C
162 IIHE=I+IHE(J)
163 IIHW=I+IHW(J)
164 c if(mype.eq.6.and.i.eq.16.and.j.eq.34)then
165 c write(6,12345)tm(i,j),ihe(j),ihw(j),l
166 c write(6,12346)tm(IIHW,J-1),tm(IIHE,J-1),tm(IIHE,J+1),
167 c 1 tm(IIHW,J+1)
168 c write(6,12347)tm(I-1,J-2),tm(I+1,J-2),tm(I+1,J+2),
169 c 1 tm(I-1,J+2)
170 c write(6,12348)tm(I,J-2),tm(I,J+2),tm(I+1,J),
171 c 1 tm(I-1,J)
172 c write(6,12349)tm(IIHE,J-3),tm(IIHE+1,J-1),tm(IIHW,J-3),
173 c 1 tm(IIHE+1,J+1)
174 c write(6,12350)tm(IIHW-1,J-1),tm(IIHE,J+3),tm(IIHW-1,J+1),
175 c 1 tm(IIHW,J+3)
176 c write(6,12351)tm(I,J-4),tm(I+2,J),tm(I-2,J),
177 c 1 tm(I,J+4)
178 12345 format(' mask=',f2.0,' ihe=',i2,' ihw=',i2,' l=',i2)
179 12346 format(' 2nd row=',4(1x,f2.0))
180 12347 format(' 3rd row=',4(1x,f2.0))
181 12348 format(' 4th row=',4(1x,f2.0))
182 12349 format(' 5th row=',4(1x,f2.0))
183 12350 format(' 6th row=',4(1x,f2.0))
184 12351 format(' 7th row=',4(1x,f2.0))
185 c endif
186 HTOT=TM(I,J)
187 1 +TM(IIHW,J-1)+TM(IIHE,J-1)+TM(IIHE,J+1)+TM(IIHW,J+1)
188 2 +TM(I-1,J-2)+TM(I+1,J-2)+TM(I+1,J+2)+TM(I-1,J+2)
189 3 +TM(I,J-2)+TM(I,J+2)+TM(I+1,J)+TM(I-1,J)
190 4 +TM(IIHE,J-3)+TM(IIHE+1,J-1)+TM(IIHW,J-3)+TM(IIHE+1,J+1)
191 5 +TM(IIHW-1,J-1)+TM(IIHE,J+3)+TM(IIHW-1,J+1)+TM(IIHW,J+3)
192 6 +TM(I,J-4)+TM(I+2,J)+TM(I-2,J)+TM(I,J+4)
193 C
194 IF(HTOT.GT.0.)THEN
195 SUMH=CF1*TM(I,J)
196 1 +CF2*(TM(IIHW,J-1)+TM(IIHE,J-1)+TM(IIHE,J+1)+TM(IIHW,J+1))
197 2 +CF3*(TM(I-1,J-2)+TM(I+1,J-2)+TM(I+1,J+2)+TM(I-1,J+2))
198 3 +CF4*(TM(I,J-2)+TM(I,J+2)+TM(I+1,J)+TM(I-1,J))
199 4 +CF5*(TM(IIHE,J-3)+TM(IIHE+1,J-1)+TM(IIHW,J-3)+TM(IIHE+1,J+1)
200 5 +TM(IIHW-1,J-1)+TM(IIHE,J+3)+TM(IIHW-1,J+1)+TM(IIHW,J+3))
201 6 +CF6*(TM(I,J-4)+TM(I+2,J)+TM(I-2,J)+TM(I,J+4))
202 C
203 RSUMH=1./SUMH
204 C
205 Z(I,J)=(CF1*ZI(I,J)*TM(I,J)
206 1 +CF2*(ZI(IIHW,J-1)*TM(IIHW,J-1)+ZI(IIHE,J-1)*TM(IIHE,J-1)
207 2 +ZI(IIHE,J+1)*TM(IIHE,J+1)+ZI(IIHW,J+1)*TM(IIHW,J+1))
208 3 +CF3*(ZI(I-1,J-2)*TM(I-1,J-2)+ZI(I+1,J-2)*TM(I+1,J-2)
209 4 +ZI(I+1,J+2)*TM(I+1,J+2)+ZI(I-1,J+2)*TM(I-1,J+2))
210 5 +CF4*(ZI(I,J-2)*TM(I,J-2)+ZI(I,J+2)*TM(I,J+2)
211 6 +ZI(I+1,J)*TM(I+1,J)+ZI(I-1,J)*TM(I-1,J))
212 7 +CF5*(ZI(IIHE,J-3)*TM(IIHE,J-3)+ZI(IIHE+1,J-1)*TM(IIHE+1,J-1)
213 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:22 FILT25.F
214 9 +ZI(IIHW-1,J-1)*TM(IIHW-1,J-1)+ZI(IIHE,J+3)*TM(IIHE,J+3)
215 o +ZI(IIHW-1,J+1)*TM(IIHW-1,J+1)+ZI(IIHW,J+3)*TM(IIHW,J+3))
216 1 +CF6*(ZI(I,J-4)*TM(I,J-4)+ZI(I+2,J)*TM(I+2,J)
217 2 +ZI(I-2,J)*TM(I-2,J)+ZI(I,J+4)*TM(I,J+4)))
218 3 *RSUMH
219 ENDIF
220 C
221 101 CONTINUE
222 102 CONTINUE
223 C
224 !$omp parallel do
225 DO J=MYJS4,MYJE4
226 DO I=MYIS2,MYIE2
227 IF(TM(I,J).GT.0.5)THEN
228 ZI(I,J)=Z(I,J)
229 ENDIF
230 ENDDO
231 ENDDO
232 C
233 CALL EXCH(ZI,1,4,4)
234 C
235 105 CONTINUE
236 C
237 RETURN
238 END
ENTRY POINTS
Name
filt25_
Page 4 Source Listing FILT25
2025-03-12 18:22 Symbol Table FILT25.F
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
101 Label 221 160
102 Label 222 159
105 Label 235 156
12345 Label 178
12346 Label 179
12347 Label 180
12348 Label 181
12349 Label 182
12350 Label 183
12351 Label 184
CF1 Local 142 R(4) 4 scalar 142,195,205
CF2 Local 142 R(4) 4 scalar 142,196,206
CF3 Local 142 R(4) 4 scalar 142,197,208
CF4 Local 143 R(4) 4 scalar 143,198,210
CF5 Local 143 R(4) 4 scalar 143,199,212
CF6 Local 143 R(4) 4 scalar 143,201,216
EXCH Local 36 scalar 233
EXCH0 Subr 37 233
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 104 336 SAVE
HTOT Local 186 R(4) 4 scalar 186,194
I Local 149 I(4) 4 scalar 149,150,160,162,163,186,188,189,19
2,195,197,198,201,205,208,209,210,
211,216,217,226,227,228
IDIM1 Param 62 I(4) 4 scalar 132,139,140,149
IDIM2 Param 62 I(4) 4 scalar 132,139,140,149
IEXCH Subr 39
IGSTL Param 57 I(4) 4 scalar 62
IGSTR Param 57 I(4) 4 scalar 62
IIHE Local 162 I(4) 4 scalar 162,187,190,191,196,199,200,206,20
7,212,213,214
IIHW Local 163 I(4) 4 scalar 163,187,190,191,196,199,200,206,20
7,213,214,215
IM Param 45 I(4) 4 scalar 59,62,110,111,112,113,114,118,119,
124,136
INDX Common 129 1708 SAVE
INDXG Common 135 8084 SAVE
INPES Param 54 I(4) 4 scalar 59,62,94,95,96,105,106
IP Local 156 I(4) 4 scalar 156
IPASS Dummy 2 I(4) 4 scalar ARG,INOUT 146
Page 5 Source Listing FILT25
2025-03-12 18:22 Symbol Table FILT25.F
Name Object Declared Type Bytes Dimen Elements Attributes References
IPC Local 146 I(4) 4 scalar 146,156
ITAIL Param 59 I(4) 4 scalar
J Local 148 I(4) 4 scalar 148,150,159,162,163,186,187,188,18
9,190,191,192,195,196,197,198,199,
200,201,205,206,207,208,209,210,21
1,212,213,214,215,216,217,225,227,
228
JDIM1 Param 63 I(4) 4 scalar 130,131,139,140,148
JDIM2 Param 63 I(4) 4 scalar 130,131,139,140,148
JGSTL Param 58 I(4) 4 scalar 63
JGSTR Param 58 I(4) 4 scalar 63
JM Param 45 I(4) 4 scalar 60,63,110,111,112,113,114,118,119,
124,136
JNPES Param 54 I(4) 4 scalar 60,63,94,95,96,105,106
JTAIL Param 60 I(4) 4 scalar
LM Param 45 I(4) 4 scalar 119
LSM Param 45 I(4) 4 scalar
MAPPINGS Common 123 5024 SAVE
MPPCOM Common 68 1724 SAVE
RSUMH Local 203 R(4) 4 scalar 203,218
SUMH Local 195 R(4) 4 scalar 195,203
TEMPCOM Common 109 6603768 SAVE
TM Dummy 2 R(4) 4 2 6319 ARG,INOUT 186,187,188,189,190,191,192,195,19
6,197,198,199,200,201,205,206,207,
208,209,210,211,212,213,214,215,21
6,217,227
TOPO Common 117 17478548 SAVE
Z Local 139 R(4) 4 2 6319 150,205,228
ZI Dummy 2 R(4) 4 2 6319 ARG,INOUT 205,206,207,208,209,210,211,212,21
3,214,215,216,217,228,233
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 828 1 21 COM
IE_GLB_TABLE I(4) 4 84 1 21 COM
IE_LOC_TABLE I(4) 4 660 1 21 COM
IHE I(4) 4 0 1 89 COM 162
IHEG I(4) 4 0 1 387 COM
IHW I(4) 4 356 1 89 COM 163
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 1324 1 100 COM
IQUILT_GROUP I(4) 4 1320 scalar COM
Page 6 Source Listing FILT25
2025-03-12 18:22 Symbol Table FILT25.F
Name Type Bytes Offset Dimen Elements Attributes References
IRAD I(4) 4 1424 1 71 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 21 COM
IS_LOC_TABLE I(4) 4 492 1 21 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 712 1 89 COM
IVEG I(4) 4 3096 1 387 COM
IVW I(4) 4 1068 1 89 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 252 1 21 COM
JE_LOC_TABLE I(4) 4 744 1 21 COM
JS_GLB_TABLE I(4) 4 168 1 21 COM
JS_LOC_TABLE I(4) 4 576 1 21 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 912 scalar COM
MPI_COMM_INTER I(4) 4 916 scalar COM
MPI_COMM_INTER_ARRAY I(4) 4 920 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 160,226
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:22 Symbol Table FILT25.F
Name Type Bytes Offset Dimen Elements Attributes References
MYIS2 I(4) 4 48 scalar COM 160,226
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 159,225
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 159,225
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:22 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:22 Subprograms/Common Blocks FILT25.F
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
FILT25 Subr 2
GLB_TABLE Common 104 336 SAVE
INDX Common 129 1708 SAVE
INDXG Common 135 8084 SAVE
MAPPINGS Common 123 5024 SAVE
MPPCOM Common 68 1724 SAVE
TEMPCOM Common 109 6603768 SAVE
TOPO Common 117 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:22 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:22 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