SUBROUTINE RDCIRAF ( )
Source file:rdciraf.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               31         SEQ  FMTD         OR   
               31         SEQ          A         
               31                         C      
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called
INTEGER            LENCHAR
Local Variables (+ indicates altered content)
CHARACTER         +EW,        +NS
INTEGER           +ITP,       +IZN,       +J,         +LATD
INTEGER           +LOND,      +NCH_RUN
Referenced Common Block Variables (+ indicates altered content)
CCIRAF             CHARACTER*4       +CIRAF(911)
CCIRAF             INTEGER           +NCIRAF_TP
CCIRAF             REAL              +CIRAF_LAT(911)
CCIRAF             REAL              +CIRAF_LON(911)
CCIRAF_MAX         REAL              +CIRAF_LAT_MAX(4,85)
CCIRAF_MAX         REAL              +CIRAF_LON_MAX(4,85)
CRUN_DIRECTORY     CHARACTER*50       RUN_DIRECTORY