Page 1 Source Listing 2014-12-17 20:48 NOPACK.f NOPACK.f(185): remark #8291: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edi... 1040 FORMAT('NOPACK:',I3,1X,A20,1X,3(G12.6,1X),I5,1X,L1) ---------------------------------------^ NOPACK.f(151): remark #8291: Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edi... 1030 FORMAT(4(G12.6,1X)) ----------------------^ Page 2 Source Listing NOPACK 2014-12-17 20:48 NOPACK.f 1 SUBROUTINE NOPACK(IFLD,ILVL,GRID,IMOUT,JMOUT) 2 C 3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 C . . . 5 C SUBPROGRAM: NOPACK POST FIELDS IN CRAY BINARY 6 C PRGRMMR: TREADON ORG: W/NP2 7 C 8 C ABSTRACT: 9 C THIS ROUTINE POSTS THE DATA IN THE PASSED ARRAY GRID 10 C TO THE OUTPUT FILE AS AN UNFORMATTED CRAY BINARY FILE. 11 C . 12 C 13 C PROGRAM HISTORY LOG: 14 C 92-12-22 RUSS TREADON 15 C 16 C USAGE: CALL NOPACK(IFLD,ILVL,GRID,IMOUT,JMOUT) 17 C INPUT ARGUMENT LIST: 18 C IFLD - FIELD ID TAG. 19 C ILVL - INTEGER TAG FOR LEVEL OF FIELD. 20 C GRID - FIELD TO BE POSTED IN CRAY BINARY. 21 C IMOUT - FIRST DIMENSION OF OUTPUT GRID. 22 C JMOUT - SECOND DIMENSION OF OUTPUT GRID. 23 C 24 C OUTPUT ARGUMENT LIST: 25 C 26 C OUTPUT FILES: 27 C STDOUT - RUN TIME STANDARD OUT. 28 C LUNOUT - UNIT DATA IS POSTED TO. 29 C 30 C SUBPROGRAMS CALLED: 31 C UTILITIES: 32 C MINMAX - DETERMINES MIN/MAX VALUES IN AN ARRAY. 33 C LIBRARY: 34 C COMMON - CTLBLK 35 C MAPOT 36 C RQSTFLD 37 C IOUNIT 38 C OUTGRD 39 C 40 C ATTRIBUTES: 41 C LANGUAGE: FORTRAN 42 C MACHINE : CRAY C-90 43 C$$$ 44 C 45 C 46 C 47 C INCLUDE ETA GRID DIMENSIONS. SET/DERIVE PARAMETERS. 48 C 49 INCLUDE "parmeta" 67 INCLUDE "parmout" 71 PARAMETER (LP1=LM+1,D50=0.5E0) 72 C 73 C DECLARE VARIABLES. 74 C 75 LOGICAL RUN,FIRST,RESRT,SIGMA,OLDRD,STDRD 76 LOGICAL NORTH,HEADER 77 CHARACTER*4 RESTHR Page 3 Source Listing NOPACK 2014-12-17 20:48 NOPACK.f 78 CHARACTER*6 PROJ,BLANK 79 CHARACTER*8 DESCR2 80 CHARACTER*50 ENVAR 81 CHARACTER*80 FNAME 82 REAL GRID(IMOUT,JMOUT) 83 C 84 C INCLUDE COMMON BLOCKS. 85 INCLUDE "CTLBLK.comm" 100 INCLUDE "MAPOT.comm" 113 INCLUDE "IOUNIT.comm" 121 INCLUDE "RQSTFLD.comm" 134 INCLUDE "OUTGRD.comm" 139 DATA BLANK/' '/ 140 C 141 C 142 C**************************************************************************** 143 C START NOPACK HERE. 144 C 145 C SET OUTPUT GRID TYPE. WE ASSUME KGYTPE HOLDS THE ON84 146 C ID FOR THE OUTPUT GRID. 147 C UNIQUE ON84 LABELS FOR VARIOUS ETA DOMAINS BELOW: 148 C 90 = STAGGERED 80KM E-GRID 149 C 91 = FILLED 80KM E-GRID 150 C 92 = STAGGERED 40KM E-GRID 151 C 93 = FILLED 40KM E-GRID 152 C 94 = STAGGERED 30KM E-GRID 153 C 95 = FILLED 30KM E-GRID 154 C 96 = STAGGERED "BIG" 40KM E-GRID (EDAS) 155 C 156 KGTYP = KGTYPE 157 C IF NEED BE, OPEN A UNIT TO THE OUTPUT FILE. IF REQUESTED, 158 C WRITE DATE AND GRID INFO IF REQUESTED. 159 C 160 IF (RITEHD) THEN 161 C 162 C APPEND FORECAST HOUR TO SUFFIX FOR SEQUENTIAL BINARY FILE. 163 IHR = NTSD/TSPH + 0.5 164 C 165 C GET FULL PATH FOR OUTPUT FILE FROM ENVIRONMENT VARIABLE 166 C COMSP WHICH IS SET IN THE SCRIPT RUNNING THE MODEL. 167 C 168 C CONSTRUCT FULL PATH-FILENAME FOR OUTPUT FILE 169 ENVAR = ' ' 170 CALL get_environment_variable('COMSP',ENVAR) 171 IF (ENVAR(1:6).EQ.BLANK) THEN 172 WRITE(DESCR2,1000) IHR 173 1000 FORMAT('.SbinF',I2.2) 174 KDAT = INDEX(DATSET,' ') -1 175 IF (KDAT.LE.0) KDAT = LEN(DATSET) 176 FNAME = DATSET(1:KDAT) // DESCR2 177 ELSE 178 CALL get_environment_variable('tmmark',RESTHR) 179 WRITE(DESCR2,1011) IHR 180 1011 FORMAT(I2.2) 181 KENV = INDEX(ENVAR,' ') -1 182 IF (KENV.LE.0) KENV = LEN(ENVAR) 183 KDAT = INDEX(DATSET,' ') -1 Page 4 Source Listing NOPACK 2014-12-17 20:48 NOPACK.f 184 IF (KDAT.LE.0) KDAT = LEN(DATSET) 185 FNAME = ENVAR(1:KENV) // DATSET(1:KDAT) // DESCR2(1:2) 186 & //'.'// RESTHR 187 ENDIF 188 C 189 C ASSIGN AND OPEN UNIT FOR DATA FILE. 190 CLOSE(LUNOUT) 191 C CALL ASNUNIT(LUNOUT,'-F cos -N ibm',ier) 192 C IF (IER.NE.0) WRITE(STDOUT,*) 193 C X 'NOPACK: ASNUNIT ERROR IER=',IER 194 OPEN(LUNOUT,FILE=FNAME,FORM='UNFORMATTED') 195 REWIND(LUNOUT) 196 C 197 RITEHD = .FALSE. 198 WRITE(STDOUT,*)'NOPACK: OPENED ',LUNOUT,' ',FNAME, 199 X ' ',DATSET 200 C 201 C IF REQUESTED, THE FIRST TWO "RECORDS" INCLUDE DATE 202 C AND OUTPUT GRID INFORMATION. WE WRITE THEM ONLY 203 C ONCE TO EACH OUTPUT GRID. 204 C 205 IF (INDEX(DATSET,'NOHEAD').EQ.0) THEN 206 IHH = NTSD/TSPH+D50 207 IYY = IDAT(3)-1900 208 IMM = IDAT(1) 209 IDD = IDAT(2) 210 WRITE(LUNOUT) IHRST,IMM,IDD,IYY,IHH 211 WRITE(LUNOUT) KGTYP,PROJ,NORTH,IMOUT,JMOUT, 212 X POLEI,POLEJ,ALATVT,ALONVT,XMESHL 213 WRITE(STDOUT,*)'NOPACK: WROTE DATE AND GRID INFO' 214 WRITE(STDOUT,1010) IHRST,IMM,IDD,IYY,IHH 215 WRITE(STDOUT,1020) KGTYP,PROJ,NORTH,IMOUT,JMOUT 216 WRITE(STDOUT,1030) POLEI,POLEJ,ALATVT,ALONVT 217 WRITE(STDOUT,1030) XMESHL 218 1010 FORMAT(5(I5,1X)) 219 1020 FORMAT(I5,1X,A6,1X,L1,1X,I5,1X,I5) 220 1030 FORMAT(4(G12.6,1X)) ......................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. 221 ENDIF 222 ENDIF 223 C 224 C SET SURFACE VALUE FOR DATA. 225 C 226 SFC = 0. 227 IF (IS(IDENT(IFLD)).EQ.8) THEN 228 SFC = SPL(ILVL) 229 ELSEIF (IS(IDENT(IFLD)).EQ.149) THEN 230 C 231 C TKE IS ON THE ETA INTERFACE AT THE BOTTOM OF THE LAYER ILVL 232 C 233 SFC = AETA(ILVL) 234 IF (IQ(IDENT(IFLD)).EQ.158) SFC = ETA(ILVL+1) 235 ENDIF 236 C 237 C IF DATSET CONTAINS "NOHEAD" WE SKIP THE HEADER STUFF Page 5 Source Listing NOPACK 2014-12-17 20:48 NOPACK.f 238 C THAT FOLLOWS AND GO DIRECTLY TO THE DATA. A USER 239 C WOULD USED THIS OPTION IF (S)HE WANTS TO DIRECTLY 240 C CONTOUR DATA USING NMCIDAS. 241 C 242 HEADER = .FALSE. 243 IF (INDEX(DATSET,'NOHEAD').NE.0) GOTO 10 244 WRITE(LUNOUT) FIELD(IFLD),SFC 245 HEADER = .TRUE. 246 C 247 C WRITE DATA TO OUTPUT FILE. 248 C 249 10 CONTINUE 250 WRITE(LUNOUT) GRID 251 CALL MINMAX(GRID,IMOUT,JMOUT,FMIN,FMAX) 252 WRITE(STDOUT,1040) IFLD,FIELD(IFLD),SFC,FMIN,FMAX, 253 X KGTYP,HEADER 254 1040 FORMAT('NOPACK:',I3,1X,A20,1X,3(G12.6,1X),I5,1X,L1) .......................................1 (1) Recommended relationship between field width 'W' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. 255 C 256 C END OF ROUTINE. 257 C 258 RETURN 259 END ENTRY POINTS Name nopack_ Page 6 Source Listing NOPACK 2014-12-17 20:48 Symbol Table NOPACK.f SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 180 174 1000 Label 104 103 1010 Label 149 145 1011 Label 111 110 1020 Label 150 146 1030 Label 151 147,148 1040 Label 185 183 AETA Scalar 8 R(4) 4 1 45 COM 164 ALATVT Scalar 2 R(4) 4 scalar COM 143,147 ALONVT Scalar 2 R(4) 4 scalar COM 143,147 ALSL Scalar 7 R(4) 4 1 39 COM AVBL Scalar 2 CHAR 20 1 250 COM BLANK Local 58 CHAR 6 scalar 70,102 CMLD Scalar 6 R(4) 4 scalar COM CPHI0 Scalar 9 R(4) 4 scalar COM CTLBLK Common 2 96 D50 Param 51 R(4) 4 scalar 137 DATSET Scalar 3 CHAR 6 scalar COM 105,106,107,114,115,116,130,136,17 4 DEC Scalar 8 R(4) 4 1 250 COM DESCR2 Local 59 CHAR 8 scalar 103,107,110,116 DETA Scalar 8 R(4) 4 1 45 COM DISLP Scalar 7 R(4) 4 scalar COM DLMD Scalar 6 R(4) 4 scalar COM DP30 Scalar 6 R(4) 4 scalar COM DPHD Scalar 6 R(4) 4 scalar COM DT Scalar 4 R(4) 4 scalar COM ENVAR Local 60 CHAR 50 scalar 100,101,102,112,113,116 ERLAM0 Scalar 9 R(4) 4 scalar COM ETA Scalar 8 R(4) 4 1 46 COM 165 FIELD Scalar 2 CHAR 20 1 250 COM 175,183 FIRST Scalar 55 L(4) 4 scalar COM FMAX Local 182 R(4) 4 scalar 182,183 FMIN Local 182 R(4) 4 scalar 182,183 FNAME Local 61 CHAR 80 scalar 107,116,125,129 GET_ENVIRONMENT_VARIABLE Intrin 101 101,109 GI2 Scalar 3 R(4) 4 scalar COM GRID Dummy 1 R(4) 4 2 0 ARG,INOUT 181,182 HEADER Local 56 L(4) 4 scalar 173,176,184 ICNT Scalar 7 I(4) 4 1 1024 COM ID Scalar 11 I(4) 4 1 25 COM IDAT Scalar 3 I(4) 4 1 3 COM 138,139,140 IDD Local 140 I(4) 4 scalar 140,141,145 IDENT Scalar 10 I(4) 4 1 250 COM 158,160,165 IDIM1 Param 14 I(4) 4 scalar IDIM2 Param 14 I(4) 4 scalar IDN Scalar 7 I(4) 4 scalar COM IDSP Scalar 7 I(4) 4 1 1024 COM IDTAD Scalar 4 I(4) 4 scalar COM IFILV Scalar 11 I(4) 4 1 250 COM IFLD Dummy 1 I(4) 4 scalar ARG,INOUT 158,160,165,175,183 Page 7 Source Listing NOPACK 2014-12-17 20:48 Symbol Table NOPACK.f Name Object Declared Type Bytes Dimen Elements Attributes References IGET Scalar 8 I(4) 4 1 250 COM IGOUT Scalar 3 I(4) 4 scalar COM IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHH Local 137 I(4) 4 scalar 137,141,145 IHR Local 94 I(4) 4 scalar 94,103,110 IHRST Scalar 3 I(4) 4 scalar COM 141,145 ILVL Dummy 1 I(4) 4 scalar ARG,INOUT 159,164,165 IM Param 3 I(4) 4 scalar 3,11,14 IMDLTY Scalar 3 I(4) 4 scalar COM IMM Local 139 I(4) 4 scalar 139,141,145 IMOUT Dummy 1 I(4) 4 scalar ARG,INOUT 62,142,146,182 IMX Param 3 I(4) 4 scalar INDEX Func 105 scalar 105,112,114,136,174 INPES Param 6 I(4) 4 scalar 11,14 IOUNIT Common 4 20 IOUT Scalar 3 I(4) 4 scalar COM IOUTYP Scalar 8 I(4) 4 scalar COM IQ Scalar 9 I(4) 4 1 250 COM 165 IS Scalar 9 I(4) 4 1 250 COM 158,160 ISHDE Scalar 4 I(4) 4 1 61 COM ISMFUL Scalar 9 I(4) 4 1 250 COM ISMOUT Scalar 10 I(4) 4 1 250 COM ISMSTG Scalar 9 I(4) 4 1 250 COM ITAIL Param 11 I(4) 4 scalar IUNIT Scalar 10 I(4) 4 scalar COM IUP Scalar 7 I(4) 4 scalar COM IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM IYY Local 138 I(4) 4 scalar 138,141,145 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEND Scalar 6 I(4) 4 scalar COM JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM JEND_M2 Scalar 7 I(4) 4 scalar COM JGOUT Scalar 3 I(4) 4 scalar COM JGSTL Param 10 I(4) 4 scalar 15 JGSTR Param 10 I(4) 4 scalar 15 JM Param 3 I(4) 4 scalar 3,12,15 JMOUT Dummy 1 I(4) 4 scalar ARG,INOUT 62,142,146,182 JMX Param 3 I(4) 4 scalar JNPES Param 6 I(4) 4 scalar 12,15 JSTA Scalar 6 I(4) 4 scalar COM JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM JSTA_M2 Scalar 7 I(4) 4 scalar COM JTAIL Param 12 I(4) 4 scalar KDAT Local 105 I(4) 4 scalar 105,106,107,114,115,116 KENV Local 112 I(4) 4 scalar 112,113,116 KGTYP Local 87 I(4) 4 scalar 87,142,146,184 KGTYPE Scalar 8 I(4) 4 scalar COM 87 KUNIT Scalar 10 I(4) 4 scalar COM LCNTRL Scalar 5 I(4) 4 scalar COM LEN Func 106 scalar 106,113,115 Page 8 Source Listing NOPACK 2014-12-17 20:48 Symbol Table NOPACK.f Name Object Declared Type Bytes Dimen Elements Attributes References LIST Scalar 3 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 3,8,51 LP1 Param 51 I(4) 4 scalar 8 LSL Scalar 3 I(4) 4 scalar COM LSM Param 3 I(4) 4 scalar 7 LUNCO Scalar 5 I(4) 4 scalar COM LUNIT Scalar 10 I(4) 4 scalar COM LUNLL Scalar 5 I(4) 4 scalar COM LUNOUT Scalar 5 I(4) 4 scalar COM 121,125,126,129,141,142,175,181 LVLS Scalar 10 I(4) 4 2 11250 COM MAPOT Common 2 1448 ME Scalar 6 I(4) 4 scalar COM MINMAX Subr 182 182 MUNIT Scalar 10 I(4) 4 scalar COM MXFLD Param 3 I(4) 4 scalar 2,8,9,10,11 MXLVL Param 3 I(4) 4 scalar 10 NBC Scalar 3 I(4) 4 scalar COM NBOCO Scalar 4 I(4) 4 scalar COM NCP Scalar 4 I(4) 4 scalar COM NDDAMP Scalar 4 I(4) 4 scalar COM NFCST Scalar 3 I(4) 4 scalar COM NFLD Scalar 8 I(4) 4 scalar COM NOPACK Subr 1 NORTH Scalar 56 L(4) 4 scalar COM 142,146 NPHS Scalar 5 I(4) 4 scalar COM NPREC Scalar 4 I(4) 4 scalar COM NRADL Scalar 5 I(4) 4 scalar COM NRADS Scalar 5 I(4) 4 scalar COM NSHDE Scalar 4 I(4) 4 scalar COM NTSD Scalar 4 I(4) 4 scalar COM 94,137 NTSTM Scalar 4 I(4) 4 scalar COM NUM_PROCS Scalar 6 I(4) 4 scalar COM NUNIT Scalar 10 I(4) 4 scalar COM OLDRD Local 55 L(4) 4 scalar OUTGRD Common 2 50 PARALLEL Common 9 8240 POLEI Scalar 2 R(4) 4 scalar COM 143,147 POLEJ Scalar 2 R(4) 4 scalar COM 143,147 PROJ Scalar 58 CHAR 6 scalar COM 142,146 PT Scalar 5 R(4) 4 scalar COM R Scalar 5 R(4) 4 scalar COM RE Scalar 3 R(4) 4 scalar COM RESRT Local 55 L(4) 4 scalar RESTHR Local 57 CHAR 4 scalar 109,117 RESTRT Scalar 3 R(4) 4 scalar COM RITE2 Scalar 5 L(4) 4 scalar COM RITEHD Scalar 5 L(4) 4 scalar COM 91,128 RQSTFLD Common 7 64130 RUN Scalar 55 L(4) 4 scalar COM SBD Scalar 6 R(4) 4 scalar COM SFC Local 157 R(4) 4 scalar 157,159,164,165,175,183 SIGMA Scalar 55 L(4) 4 scalar COM SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM 159 STDOUT Scalar 2 I(4) 4 scalar COM 129,144,145,146,147,148,183 Page 9 Source Listing NOPACK 2014-12-17 20:48 Symbol Table NOPACK.f Name Object Declared Type Bytes Dimen Elements Attributes References STDRD Local 55 L(4) 4 scalar SVALUE Scalar 8 R(4) 4 scalar COM TLM0D Scalar 6 R(4) 4 scalar COM TPH0D Scalar 6 R(4) 4 scalar COM TSHDE Scalar 8 R(4) 4 1 61 COM TSPH Scalar 5 R(4) 4 scalar COM 94,137 WBD Scalar 6 R(4) 4 scalar COM X1P Scalar 6 R(4) 4 scalar COM XMESHL Scalar 2 R(4) 4 scalar COM 143,148 Y1P Scalar 6 R(4) 4 scalar COM Z0SLP Scalar 7 R(4) 4 scalar COM Page 10 Source Listing NOPACK 2014-12-17 20:48 Subprograms/Common Blocks NOPACK.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 IOUNIT Common 4 20 MAPOT Common 2 1448 NOPACK Subr 1 OUTGRD Common 2 50 PARALLEL Common 9 8240 RQSTFLD Common 7 64130 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 no -Qdyncom -error_limit 30 Page 11 Source Listing NOPACK 2014-12-17 20:48 NOPACK.f 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 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 : /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/,.f,./.f,/usrx/local/intel/composerxe/mkl/include/.f, /usrx/local/intel/composerxe/tbb/include/.f,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/.f, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/.f,/usr/local/include/.f,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/.f, /usr/include/.f,/usr/include/.f -list filename : NOPACK.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100