632020195a
Former-commit-id:fda897d2d0[formerly253e8bc948] [formerlyfda897d2d0[formerly253e8bc948] [formerly295cbf95e5[formerly 0816cd253c86acc699cb90866131619c4679f631]]] Former-commit-id:295cbf95e5Former-commit-id:2a3bf4ec32[formerlyae3d17c698] Former-commit-id:a610dcde73
24 lines
878 B
Text
Executable file
24 lines
878 B
Text
Executable file
C************************************************************************
|
|
C AREAFL *
|
|
C* *
|
|
C* Common area for MCIDAS AREA file information *
|
|
C** *
|
|
C* Log: *
|
|
C* J. Cowie/COMET 2/95 *
|
|
C* D.W.Plummer/NCEP 2/03 Add parameters IAxxx_LEN *
|
|
C************************************************************************
|
|
C
|
|
PARAMETER ( IADIR_LEN = 64 )
|
|
PARAMETER ( IANAV_LEN = 640 )
|
|
PARAMETER ( IACAL_LEN = 128 )
|
|
C
|
|
INTEGER iadir (IADIR_LEN)
|
|
INTEGER ianav (IANAV_LEN)
|
|
INTEGER iacal (IACAL_LEN)
|
|
C
|
|
COMMON /AREAFL/
|
|
C
|
|
+ iadir, ianav, iacal
|
|
C! AREA file directory,
|
|
C! navigation blocks,
|
|
C! calibration blocks
|