0c25458510
Former-commit-id:4bfbdad17d[formerly9f8cb727a5] [formerly4bfbdad17d[formerly9f8cb727a5] [formerly8485b90ff8[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]] Former-commit-id:8485b90ff8Former-commit-id:33a67cdd82[formerlya28d70b5c5] Former-commit-id:e5543a0e86
24 lines
878 B
Text
24 lines
878 B
Text
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
|