7f90924706
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]]] Former-commit-id:8485b90ff8Former-commit-id:40aa780b3d[formerly33a67cdd82] [formerly 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5]] Former-commit-id: a16a1b4dd44fc344ee709abbe262aeed58a8339b [formerlye5543a0e86] Former-commit-id:0c25458510
41 lines
1.6 KiB
Text
41 lines
1.6 KiB
Text
C************************************************************************
|
|
C* GMBDTA.CMN *
|
|
C* *
|
|
C* This common area contains variables which must be initialized in *
|
|
C* each program. *
|
|
C* *
|
|
C* I. Graffman/RDS 5/87 *
|
|
C* M. desJardins/NMC 8/94 Added iestat *
|
|
C* K. Tyle/GSC 12/96 Removed iestat *
|
|
C************************************************************************
|
|
LOGICAL tablrd, dsflg, stnflg, pptabl, kwrite
|
|
COMMON / GMBDTA /
|
|
+ iflgdp ( MMFLDP ),
|
|
C! DP
|
|
+ isfcfn ( MMFILE ),
|
|
C! SF
|
|
+ isndfn ( MMFILE ),
|
|
C! SN
|
|
+ igrdfn ( MMFILE ),
|
|
C! GR
|
|
+ tablrd,
|
|
C! PC
|
|
+ dsflg,
|
|
+ stnflg,
|
|
+ pptabl,
|
|
+ lunp,
|
|
C! IP
|
|
+ lunf,
|
|
+ kclast,
|
|
C! Last DM record read
|
|
+ kcflno ( MCACHE ),
|
|
C! File # for DM reccord
|
|
+ kcrecn ( MCACHE ),
|
|
C! DM record #
|
|
+ kwrite ( MCACHE ),
|
|
C! DM write flag
|
|
+ lundm (MMFILE),
|
|
C! DM logical unit nos.
|
|
+ lungem (10)
|
|
C! SS logical unit nos.
|
|
C------------------------------------------------------------------------
|