Page 1 Source Listing FILLV 2025-03-12 18:23 FILLV.f 1 SUBROUTINE FILLV(ARR1,ARR2,IFLAG,IDIM,JDIM) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: FILLV FILL V POINTS ON E-GRID H FIELD 5 C PRGRMMR: BLACK ORG: W/NP2 DATE: 92-12-23 6 C 7 C ABSTRACT: 8 C THIS ROUTINE FILLS VELOCITY (V) POINTS ON A MASS 9 C POINT E-GRID. PASSED VARIABLE IFLAG TELLS THE ROUTINE 10 C WHAT TO DO WITH NEGATIVE VALUES OBTAINED DURING THE 11 C FILLING PROCESS 12 C IFLAG=0, TAKE WHATEVER THE INTERPOLATION GIVES. 13 C IFLAG=1, TRUNCATE AT ZERO. 14 C IFLAG=2, TRUNCATE AT A VERY SMALL POSITIVE VALUE (EPS). 15 C THE INTERPOLATION CAN USE A BILINEAR SCHEME OR CUBIC 16 C INTERPOLATING POLYMONIALS. PARAMETERS WGTCUB AND WGTLIN 17 C CONTROL THIS OPTION. SETTING WGTCUB TO 1.0 ACTIVATES 18 C INTERPOLATION USING CUBIC INTERPOLATING POLYNOMIALS. 19 C SETTING WGTCUB TO 0.0 ACTIVATES BILINEAR INTERPOLATION. 20 C 21 C . 22 C 23 C PROGRAM HISTORY LOG: 24 C ??-??-?? BLACK - ORIGINATOR 25 C 93-12-23 RUSS TREADON - ADDED COMMENTS AND VARIABLE 26 C GRID DIMENSIONS TO 27 C SUBROUTINE CALL. 28 C 98-06-04 BLACK - CONVERSION TO 2-D 29 C 30 C USAGE: CALL FILLV(ARR1,ARR2,IFLAG,IDIM,JDIM) 31 C INPUT ARGUMENT LIST: 32 C ARR2 - VELOCITY POINT DATA ON STAGGERED E-GRID. 33 C IFLAG - 34 C IDIM - FIRST DIMENSION OF FILLED E-GRID. 35 C JDIM - SECOND DIMENSION OF FILLED E-GRID. 36 C 37 C OUTPUT ARGUMENT LIST: 38 C ARR1 - VELOCITY POINT DATA ON FILLED E-GRID. 39 C 40 C OUTPUT FILES: 41 C NONE 42 C 43 C SUBPROGRAMS CALLED: 44 C UTILITIES: 45 C EFILL - FILL MISSING VALUES ON STAGGERED 46 C E-GRID WITH FIELD MEAN. 47 C COEFI - COMPUTES ROW-WISE INTERPOLATION VALUES. 48 C COEFJ - COMPUTES COLUMN-WISE INTERPOLATION VALUES. 49 C LIBRARY: 50 C COMMON 51 C 52 C ATTRIBUTES: 53 C LANGUAGE: FORTRAN 54 C MACHINE : CRAY C-90 55 C$$$ 56 C 57 C---------------------------------------------------------------------- Page 2 Source Listing FILLV 2025-03-12 18:23 FILLV.f 58 PARAMETER (WGTCUB=0.0,WGTLIN=1.-WGTCUB,EPS=1.E-5) 59 PARAMETER (P5C=.125,P15C=3.375,P25C=15.625 60 1, P35C=42.875,P45C=91.125) 61 PARAMETER (P5S=.25,P15S=2.25,P25S=6.25 62 1 , P35S=12.25,P45S=20.25) 63 C---------------------------------------------------------------------- 64 D I M E N S I O N 65 1 ARR1((IDIM+1)/2,JDIM),ARR2(IDIM,JDIM) 66 C 67 C********************************************************************** 68 C START FILLV HERE. 69 C 70 C REPLACE MISSING VALUES ON EGRID WITH FIELD MEAN 71 IM=(IDIM+1)/2 72 CALL EFILL(ARR1,IM,JDIM) 73 C 74 DO J=1,JDIM 75 DO I=1,IDIM 76 ARR2(I,J)=0. 77 ENDDO 78 ENDDO 79 C*** 80 C*** REASSIGN VALUES OF MODEL GRID TO IDIM X JDIM GRID ON ODD ROWS 81 C*** 82 DO J=1,JDIM,2 83 DO I=1,IDIM,2 84 II=(I+1)/2 85 ARR2(I,J)=ARR1(II,J) 86 ENDDO 87 ENDDO 88 C*** 89 C*** REASSIGN VALUES OF MODEL GRID TO IDIM X JDIM GRID ON EVEN ROWS 90 C*** 91 DO J=2,JDIM-1,2 92 DO I=2,IDIM-1,2 93 II=I/2 94 ARR2(I,J)=ARR1(II,J) 95 ENDDO 96 ENDDO 97 C 98 IF(WGTCUB.GT.0.99)GO TO 100 99 C*** 100 C*** INTERPOLATE VALUES TO THOSE CORRESPONDING TO V POINTS NOW ON THE 101 C*** IDIM X JDIM GRID FOR THE BOTTOM AND TOP ROWS. 102 C*** 103 DO I=2,IDIM-1,2 104 II=I/2 105 ARR2(I,1)=(ARR1(II,1)+ARR1(II+1,1))*0.5 106 ARR2(I,JDIM)=(ARR1(II,JDIM)+ARR1(II+1,JDIM))*0.5 107 ENDDO 108 C*** 109 C*** INTERPOLATE VALUES TO THOSE CORRESPONDING TO V POINTS NOW ON THE 110 C*** IDIM X JDIM GRID FOR WEST AND EAST SIDES. 111 C*** 112 DO J=2,JDIM-1,2 113 ARR2(1,J)=(ARR1(1,J+1)+ARR1(1,J-1))*0.5 114 ARR2(IDIM,J)=(ARR1(IM,J+1)+ARR1(IM,J-1))*0.5 Page 3 Source Listing FILLV 2025-03-12 18:23 FILLV.f 115 ENDDO 116 C*** 117 C*** INTERPOLATE TO CORRESPONDING V POINTS ON ALL INNER POINTS 118 C*** OF ODD ROWS. 119 C*** 120 DO J=3,JDIM-2,2 121 DO I=2,IDIM-1,2 122 II=I/2 123 ARR2(I,J)=0.25*(ARR1(II,J)+ARR1(II+1,J) 124 1 +ARR1(II,J+1)+ARR1(II,J-1)) 125 ENDDO 126 ENDDO 127 C*** 128 C*** INTERPOLATE TO CORRESPONDING V POINTS ON ALL INNER POINTS 129 C*** OF EVEN ROWS. 130 C*** 131 DO J=2,JDIM-1,2 132 DO I=3,IDIM-2,2 133 II=I/2 134 ARR2(I,J)=0.25*(ARR1(II,J)+ARR1(II+1,J) 135 1 +ARR1(II+1,J+1)+ARR1(II+1,J-1)) 136 ENDDO 137 ENDDO 138 IF(WGTCUB.LT.0.01)GO TO 825 139 C*** 140 C*** FILL IN THE VELOCITY POINTS USING CUBIC INTERPOLATING POLYNOMIALS. 141 C*** FIRST DO THE ROWS. 142 C*** 143 100 WGT1=0.5*WGTCUB+WGTLIN 144 DO 200 J=1,JDIM,2 145 DO I=3,IDIM-8,2 146 CALL COEFI(ARR2,IDIM,JDIM,I,J,C1,C2,C3,C4) 147 ARR2(I+3,J)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 148 1 WGTLIN*ARR2(I+3,J))/WGT1 149 ENDDO 150 C 151 CALL COEFI(ARR2,IDIM,JDIM,1,J,C1,C2,C3,C4) 152 ARR2(2,J)=(0.5*WGTCUB*(C1*P15C+C2*P15S+C3*1.5+C4)+ 153 1 WGTLIN*ARR2(2,J))/WGT1 154 ARR2(4,J)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 155 1 WGTLIN*ARR2(4,J))/WGT1 156 CALL COEFI(ARR2,IDIM,JDIM,IDIM-6,J,C1,C2,C3,C4) 157 ARR2(IDIM-3,J)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 158 1 WGTLIN*ARR2(IDIM-3,J))/WGT1 159 ARR2(IDIM-1,J)=(0.5*WGTCUB*(C1*P35C+C2*P35S+C3*3.5+C4)+ 160 1 WGTLIN*ARR2(IDIM-1,J))/WGT1 161 200 CONTINUE 162 C 163 DO 400 J=2,JDIMM,2 164 DO I=4,IDIM-9,2 165 CALL COEFI(ARR2,IDIM,JDIM,I,J,C1,C2,C3,C4) 166 ARR2(I+3,J)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 167 1 WGTLIN*ARR2(I+3,J))/WGT1 168 ENDDO 169 C 170 CALL COEFI(ARR2,IDIM,JDIM,2,J,C1,C2,C3,C4) 171 ARR2(1,J)=(0.5*WGTCUB*(C1*P5C+C2*P5S+C3*.5+C4)+ Page 4 Source Listing FILLV 2025-03-12 18:23 FILLV.f 172 1 WGTLIN*ARR2(1,J))/WGT1 173 ARR2(3,J)=(0.5*WGTCUB*(C1*P15C+C2*P15S+C3*1.5+C4)+ 174 1 WGTLIN*ARR2(3,J))/WGT1 175 ARR2(5,J)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 176 1 WGTLIN*ARR2(5,J))/WGT1 177 CALL COEFI(ARR2,IDIM,JDIM,IDIM-7,J,C1,C2,C3,C4) 178 ARR2(IDIM-4,J)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 179 1 WGTLIN*ARR2(IDIM-4,J))/WGT1 180 ARR2(IDIM-2,J)=(0.5*WGTCUB*(C1*P35C+C2*P35S+C3*3.5+C4)+ 181 1 WGTLIN*ARR2(IDIM-2,J))/WGT1 182 ARR2(IDIM,J)=(0.5*WGTCUB*(C1*P45C+C2*P45S+C3*4.5+C4)+ 183 1 WGTLIN*ARR2(IDIM,J))/WGT1 184 400 CONTINUE 185 C*** 186 C*** NOW DO THE COLUMNS. 187 C*** 188 WGT2=0.5*WGTCUB+WGT1 189 DO 600 I=1,IDIM,2 190 DO J=3,JDIM-8,2 191 CALL COEFJ(ARR2,IDIM,JDIM,I,J,C1,C2,C3,C4) 192 ARR2(I,J+3)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 193 1 WGT1*ARR2(I,J+3))/WGT2 194 ENDDO 195 C 196 CALL COEFJ(ARR2,IDIM,JDIM,I,1,C1,C2,C3,C4) 197 ARR2(I,2)=(0.5*WGTCUB*(C1*P15C+C2*P15S+C3*1.5+C4)+ 198 1 WGT1*ARR2(I,2))/WGT2 199 ARR2(I,4)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 200 1 WGT1*ARR2(I,4))/WGT2 201 CALL COEFJ(ARR2,IDIM,JDIM,I,JDIM-6,C1,C2,C3,C4) 202 ARR2(I,JDIM-3)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 203 1 WGT1*ARR2(I,JDIM-3))/WGT2 204 ARR2(I,JDIM-1)=(0.5*WGTCUB*(C1*P35C+C2*P35S+C3*3.5+C4)+ 205 1 WGT1*ARR2(I,JDIM-1))/WGT2 206 600 CONTINUE 207 C 208 DO 800 I=2,IDIM-1,2 209 DO J=4,JDIM-9,2 210 CALL COEFJ(ARR2,IDIM,JDIM,I,J,C1,C2,C3,C4) 211 ARR2(I,J+3)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 212 1 WGT1*ARR2(I,J+3))/WGT2 213 ENDDO 214 C 215 CALL COEFJ(ARR2,IDIM,JDIM,I,2,C1,C2,C3,C4) 216 ARR2(I,1)=(0.5*WGTCUB*(C1*P5C+C2*P5S+C3*.5+C4)+ 217 1 WGT1*ARR2(I,1))/WGT2 218 ARR2(I,3)=(0.5*WGTCUB*(C1*P15C+C2*P15S+C3*1.5+C4)+ 219 1 WGT1*ARR2(I,3))/WGT2 220 ARR2(I,5)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 221 1 WGT1*ARR2(I,5))/WGT2 222 CALL COEFJ(ARR2,IDIM,JDIM,I,JDIM-7,C1,C2,C3,C4) 223 ARR2(I,JDIM-4)=(0.5*WGTCUB*(C1*P25C+C2*P25S+C3*2.5+C4)+ 224 1 WGT1*ARR2(I,JDIM-4))/WGT2 225 ARR2(I,JDIM-2)=(0.5*WGTCUB*(C1*P35C+C2*P35S+C3*3.5+C4)+ 226 1 WGT1*ARR2(I,JDIM-2))/WGT2 227 ARR2(I,JDIM)=(0.5*WGTCUB*(C1*P35C+C2*P35S+C3*3.5+C4)+ 228 1 WGT1*ARR2(I,JDIM))/WGT2 Page 5 Source Listing FILLV 2025-03-12 18:23 FILLV.f 229 800 CONTINUE 230 C 231 825 IF(IFLAG.EQ.1)THEN 232 DO J=1,JDIM,2 233 DO I=2,IDIM-1,2 234 IF(ARR2(I,J).LT.0.)ARR2(I,J)=0. 235 ENDDO 236 ENDDO 237 C 238 DO J=2,JDIM-1,2 239 DO I=1,IDIM,2 240 IF(ARR2(I,J).LT.0.)ARR2(I,J)=0. 241 ENDDO 242 ENDDO 243 ELSEIF(IFLAG.EQ.2)THEN 244 DO J=1,JDIM,2 245 DO I=2,IDIM-1,2 246 IF(ARR2(I,J).LT.0.)ARR2(I,J)=EPS 247 ENDDO 248 ENDDO 249 C 250 DO J=2,JDIM-1,2 251 DO I=1,IDIM,2 252 IF(ARR2(I,J).LT.0.)ARR2(I,J)=EPS 253 ENDDO 254 ENDDO 255 ENDIF 256 C 257 C END OF ROUTINE. 258 C 259 RETURN 260 END Page 6 Source Listing FILLV 2025-03-12 18:23 Entry Points FILLV.f ENTRY POINTS Name fillv_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 143 98 200 Label 161 144 400 Label 184 163 600 Label 206 189 800 Label 229 208 825 Label 231 138 ARR1 Dummy 1 R(4) 4 2 0 ARG,INOUT 72,85,94,105,106,113,114,123,124,1 34,135 ARR2 Dummy 1 R(4) 4 2 0 ARG,INOUT 76,85,94,105,106,113,114,123,134,1 46,147,148,151,152,153,154,155,156 ,157,158,159,160,165,166,167,170,1 71,172,173,174,175,176,177,178,179 ,180,181,182,183,191,192,193,196,1 97,198,199,200,201,202,203,204,205 ,210,211,212,215,216,217,218,219,2 20,221,222,223,224,225,226,227,228 ,234,240,246,252 C1 Local 146 R(4) 4 scalar 146,147,151,152,154,156,157,159,16 5,166,170,171,173,175,177,178,180, 182,191,192,196,197,199,201,202,20 4,210,211,215,216,218,220,222,223, 225,227 C2 Local 146 R(4) 4 scalar 146,147,151,152,154,156,157,159,16 5,166,170,171,173,175,177,178,180, 182,191,192,196,197,199,201,202,20 4,210,211,215,216,218,220,222,223, 225,227 C3 Local 146 R(4) 4 scalar 146,147,151,152,154,156,157,159,16 5,166,170,171,173,175,177,178,180, 182,191,192,196,197,199,201,202,20 4,210,211,215,216,218,220,222,223, 225,227 C4 Local 146 R(4) 4 scalar 146,147,151,152,154,156,157,159,16 5,166,170,171,173,175,177,178,180, 182,191,192,196,197,199,201,202,20 4,210,211,215,216,218,220,222,223, 225,227 COEFI Subr 146 146,151,156,165,170,177 COEFJ Subr 191 191,196,201,210,215,222 EFILL Subr 72 72 EPS Param 58 R(4) 4 scalar 246,252 FILLV Subr 1 I Local 75 I(4) 4 scalar 75,76,83,84,85,92,93,94,103,104,10 5,106,121,122,123,132,133,134,145, Page 7 Source Listing FILLV 2025-03-12 18:23 Symbol Table FILLV.f Name Object Declared Type Bytes Dimen Elements Attributes References 146,147,148,164,165,166,167,189,19 1,192,193,196,197,198,199,200,201, 202,203,204,205,208,210,211,212,21 5,216,217,218,219,220,221,222,223, 224,225,226,227,228,233,234,239,24 0,245,246,251,252 IDIM Dummy 1 I(4) 4 scalar ARG,INOUT 65,71,75,83,92,103,114,121,132,145 ,146,151,156,157,158,159,160,164,1 65,170,177,178,179,180,181,182,183 ,189,191,196,201,208,210,215,222,2 33,239,245,251 IFLAG Dummy 1 I(4) 4 scalar ARG,INOUT 231,243 II Local 84 I(4) 4 scalar 84,85,93,94,104,105,106,122,123,12 4,133,134,135 IM Local 71 I(4) 4 scalar 71,72,114 J Local 74 I(4) 4 scalar 74,76,82,85,91,94,112,113,114,120, 123,124,131,134,135,144,146,147,14 8,151,152,153,154,155,156,157,158, 159,160,163,165,166,167,170,171,17 2,173,174,175,176,177,178,179,180, 181,182,183,190,191,192,193,209,21 0,211,212,232,234,238,240,244,246, 250,252 JDIM Dummy 1 I(4) 4 scalar ARG,INOUT 65,72,74,82,91,106,112,120,131,144 ,146,151,156,165,170,177,190,191,1 96,201,202,203,204,205,209,210,215 ,222,223,224,225,226,227,228,232,2 38,244,250 JDIMM Local 163 I(4) 4 scalar 163 P15C Param 59 R(4) 4 scalar 152,173,197,218 P15S Param 61 R(4) 4 scalar 152,173,197,218 P25C Param 59 R(4) 4 scalar 147,154,157,166,175,178,192,199,20 2,211,220,223 P25S Param 61 R(4) 4 scalar 147,154,157,166,175,178,192,199,20 2,211,220,223 P35C Param 60 R(4) 4 scalar 159,180,204,225,227 P35S Param 62 R(4) 4 scalar 159,180,204,225,227 P45C Param 60 R(4) 4 scalar 182 P45S Param 62 R(4) 4 scalar 182 P5C Param 59 R(4) 4 scalar 171,216 P5S Param 61 R(4) 4 scalar 171,216 WGT1 Local 143 R(4) 4 scalar 143,148,153,155,158,160,167,172,17 4,176,179,181,183,188,193,198,200, 203,205,212,217,219,221,224,226,22 8 WGT2 Local 188 R(4) 4 scalar 188,193,198,200,203,205,212,217,21 9,221,224,226,228 WGTCUB Param 58 R(4) 4 scalar 58,98,138,143,147,152,154,157,159, 166,171,173,175,178,180,182,188,19 2,197,199,202,204,211,216,218,220, 223,225,227 WGTLIN Param 58 R(4) 4 scalar 143,148,153,155,158,160,167,172,17 4,176,179,181,183 Page 8 Source Listing FILLV 2025-03-12 18:23 Subprograms/Common Blocks FILLV.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References FILLV Subr 1 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 -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 Page 9 Source Listing FILLV 2025-03-12 18:23 FILLV.f -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 noprecise -fp_model fast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -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 -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/, Page 10 Source Listing FILLV 2025-03-12 18:23 FILLV.f .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 : FILLV.lst no -o COMPILER: Intel(R) Fortran 19.1-1655