Argument Definitions (+ indicates altered content) CHARACTER*70 +DESCRIPTION CHARACTER*(*) FILENAME INTEGER LU
Source file: readant.f
I/O Operations: Unit ID Unit No Access Form Operation LU SEQ FMTD OR LU SEQ A 13 DIR UNF O W 14 DIR UNF O W LU C * SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
Intrinsic Functions Called INTEGER NINT
External Functions and Subroutines Called INTEGER LCOUNT, LEN_TRIM SUBROUTINE RBLANKC
Local Variables (+ indicates altered content) CHARACTER*80 +ALF INTEGER +I, +IANG, +IELEV, +IFREQ INTEGER +IOS, +JANT, +N, +NC1 INTEGER +NCH, +NCH_RUN REAL +EFF
Referenced Equivalenced Variables (+ indicates altered content) EQUIV REAL +GAINS() Local Var REAL +GAIN_TYPE11()COMMON /CTYPE11G/
Referenced Common Block Variables (+ indicates altered content) CCIRPARM INTEGER +MODEGAIN CCIRPARM REAL +GAINMAX(3,2) CCIRPARM REAL +GAINMAXB(30) CCIRPARM REAL +PARM(20) CRUN_DIRECTORY CHARACTER*50 RUN_DIRECTORY CTYPE11G REAL +GAIN_TYPE11(91) DESIGNFREQ REAL +FREQDESIGN GAIN_10 REAL +GAIN10(90,29)