SUBROUTINE DECRED ( )

Description
decred.f 
 
 
   THIS ROUTINE CALLS FUNCTION MONITR TO READ THE CONTROL CARDS. 
   THE CARD IMAGES ARE THEN DECODED , PROCESSED AND THE DATA STORED
Source file:decred.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
   LU26                   SEQ  FMTD         OR   
   LU26                   SEQ          A         
   LU26                                   C      
    LUI                   SEQ  FMTD          R   
    LUO                   SEQ  FMTD           W  
   LU35                   SEQ          A         

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
INTEGER            IAND,       NINT
REAL               ALOG10,     FLOAT
External Functions and Subroutines Called
INTEGER            LCOUNT,     MONITR
SUBROUTINE         PARSE_ZONES,            RDCIRAF,    ZONES_TO_TP
Local Variables (+ indicates altered content)
CHARACTER*30      +CIRAFZ
CHARACTER*10      +GAINFILE
CHARACTER         +IBLANK
CHARACTER*8       +INAME1,    +INAME2
CHARACTER*3       +IOFF
CHARACTER         +ISGLAT,    +ISLAT,     +ISLONG
CHARACTER*10      +ITEMP
CHARACTER*8       +JNAME1,    +JNAME2
CHARACTER*4        ZONES(100)
INTEGER           +I,         +IANTR,     +IAT,       +IC
INTEGER           +IDA,       +IEND,      +IFK,       +IFREQ
INTEGER           +IHR,       +ISTART,    +IWCRD(100)
INTEGER           +J,         +JCARD,     +JHR,       +JSAMP
INTEGER           +MAXFREQ,   +MINFREQ,   +MONTHX,    +NCH_RUN
INTEGER           +NPAGO,      NZONES
REAL              +DMPX,      +PMPX,      +PWX,       +RSNX
REAL              +SGLAT,     +SLAT,      +SLONG,     +XLUFP
REAL              +XMONTH(12)
Referenced Common Block Variables (+ indicates altered content)
ALPHA              CHARACTER*10      +IRCVR(2)
ALPHA              CHARACTER         +IRLAT,    +IRLONG
ALPHA              CHARACTER         +ITLAT,    +ITLONG
ALPHA              CHARACTER*10      +ITRAN(2)
ALPHA              CHARACTER*5       +NYEAR
CANTENNA           CHARACTER*24      +ANTFILE(20)
CANTENNA           CHARACTER*70      +ANTNAME(20)
CANTENNA           CHARACTER*10      +ANTTYPE(20)
CANTENNA           INTEGER           +IATS(20), +NUMANTS
CANTENNA           REAL              +AEFF(30,20)
CANTENNA           REAL              +ARRAY(30,91,20)
CANTENNA           REAL              +BEAMMAIN(20)
CANTENNA           REAL              +COND(20), +DESIGNFREQ(20)
CANTENNA           REAL              +DIEL(20), +OFFAZIM(20)
CANTENNA           REAL              +XFQE(20), +XFQS(20)
CAREA              INTEGER           +IAREA
CCIRAF_TP          INTEGER            IDX_TP(911)
CCIRAF_TP          INTEGER            NTP
CCOEFF             CHARACTER*4       +COEFF
CDAILY             INTEGER           +IDAILY(12)
CHOURS             INTEGER           +IHOURS(24)
CHOURS             INTEGER           +NHOURS
CMODEL             CHARACTER*8        MODEL
CON                REAL               D2R
CONTRL             INTEGER           +IANTOU,   +ICARD
CONTRL             INTEGER           +IELECT(3)
CONTRL             INTEGER           +INTEG,    +IRED
CONTRL             INTEGER           +ISOUT,    +ISPROC
CONTRL             INTEGER           +ITYPE,    +KCARD
CONTRL             INTEGER           +KRUN,     +KTOUT(12)
CONTRL             INTEGER            MAXMET,    MAXNAM
CONTRL             INTEGER           +MONTHS(12)
CONTRL             INTEGER           +MSPEC,     NUMNAM
CONTRL             REAL              +SUNSP(12)
CRUN_DIRECTORY     CHARACTER*50       RUN_DIRECTORY
C_S_TO_I           INTEGER           +I_S_TO_I
DON                REAL              +AMIN,     +AMIND
DON                REAL              +DMP,      +PMP
DON                REAL              +RLATD,    +RLONGD
DON                REAL              +RSN,      +TLATD
DON                REAL              +TLONGD
ES                 REAL              +FS(3,5),  +HS(5)
FILES              INTEGER            LU15,      LU16
FILES              INTEGER            LU26,      LU35
FILES              INTEGER            LU5,       LU6
FILES              INTEGER           +LUI,      +LUO
FRQ                REAL              +FREL(29)
GEOG               REAL              +ARTIC(5), +CLCK(5)
GEOG               REAL              +EPSPAT(5)
GEOG               REAL              +GMDIP(5), +GYZ(5)
GEOG               REAL              +SIGPAT(5)
INFORM             INTEGER           +IHLNG,    +IHSHR
INFORM             INTEGER           +INFO
ION                INTEGER           +IHRE,     +IHRO
ION                INTEGER           +IHRS,     +LUFP
ION                INTEGER           +METHOD,   +NOISE
ION                INTEGER           +NPSL
METSET             INTEGER           +ITOUT,    +ITRUN
METSET             INTEGER            JTOUT(40)
METSET             INTEGER            JTRUN(40)
MFAC               INTEGER           +IEDP
MFAC               REAL              +F2M3(5),  +HPF2(5)
NAMEX              CHARACTER*85       INPUT
OUTLAB             CHARACTER          INORTH,    ISOUTH
OUTLAB             CHARACTER          IWEST
OUTPRT             INTEGER           +LINBD(14)
OUTPRT             INTEGER           +LINBYP,   +LINMAX
OUTPRT             INTEGER           +LINTP(14)
OUTPRT             INTEGER           +LINTYP,   +LPAGES
PANTENNA           REAL              +PWRDBA(20)
PANTENNA           REAL              +PWRKW(20)
PSCA               INTEGER           +IPSC
PSCA               REAL              +PSC(4),    PSCB(4)
RGRID              INTEGER           +IPROJ,    +NX
RGRID              INTEGER           +NY
RGRID              REAL              +PLAT,     +PLON
RGRID              REAL              +XMAX,     +XMIN
RGRID              REAL              +YMAX,     +YYMIN
RON                REAL              +CLAT(5),  +CLONG(5)
RON                REAL              +FI(3,5),  +FNSQ(50,3)
RON                REAL              +GLAT(5),  +HI(3,5)
RON                REAL              +HTR(50,3)
RON                REAL              +RD(5),    +YI(3,5)
TIME               INTEGER           +ITIM
TON                REAL              +XNOISE