Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / POS / gkscom.h
1 C  Details on all GKS COMMON variables are in the GKS BLOCKDATA.
2       PARAMETER(MXNWK=15,NSEG=100,IWDIM=10000,NUMERS=130)
3       COMMON/GKINTR/ NOPWK , NACWK , WCONID, NUMSEG,
4      +               SEGS(NSEG)    , CURSEG, SEGLEN(NSEG)  , MXSREC,
5      +               SEGT(NSEG,2,3), CURTM(2,3)            , SEGDEL,
6      +               RWKSP(IWDIM)  , GKSCLP
7       INTEGER        NOPWK , NACWK , WCONID, NUMSEG, SEGS  , CURSEG,
8      +               SEGLEN, MXSREC, SEGDEL, GKSCLP
9       COMMON/GKOPDT/ OPS   , KSLEV , WK    , LSWK(17)      ,
10      +               MOPWK , MACWK , MNT
11       INTEGER        OPS   , WK
12       COMMON/GKSTAT/ SOPWK(MXNWK)  , SACWK(MXNWK)  , CPLI  , CLN   ,
13      +               CLWSC , CPLCI , CLNA  , CLWSCA, CPLCIA, CPMI  ,
14      +               CMK   , CMKS  , CPMCI , CMKA  , CMKSA , CPMCIA,
15      +               CTXI  , CTXFP(2)      , CCHXP , CCHSP , CTXCI ,
16      +               CTXFPA, CCHXPA, CCHSPA, CTXCIA, CCHH  , CCHUP(2),
17      +               CTXP  , CTXAL(2)      , CFAI  , CFAIS , CFASI ,
18      +               CFACI , CFAISA, CFASIA, CFACIA, CPA(2), CPARF(2),
19      +               CNT   , LSNT(2)       , NTWN(2,4)     , NTVP(2,4),
20      +               CCLIP , SWKTP(MXNWK)  , NOPICT, NWKTP ,
21      +               LXWKID(MXNWK) , ECONID, CLLX  , CLLY  , CURX  ,
22      +               CURY  , CPSCL , CCMDL,  COLMOD 
23       INTEGER        SOPWK , SACWK , CPLI  , CLN   , CPLCI , CLNA  ,
24      +               CLWSCA, CPLCIA, CPMI  , CMK   , CPMCI , CMKA  ,
25      +               CMKSA , CPMCIA, CTXI  , CTXFP , CTXCI , CTXFPA,
26      +               CCHXPA, CCHSPA, CTXCIA, CTXP  , CTXAL , CFAI  ,
27      +               CFAIS , CFASI , CFACI , CFAISA, CFASIA, CFACIA,
28      +               CNT   , LSNT  , CCLIP , SWKTP , NOPICT, NWKTP ,
29      +               LXWKID, ECONID, CLLX  , CLLY  , CURX  , CURY  ,
30      +               CPSCL , CCMDL,  COLMOD
31       REAL           NTWN  , NTVP
32       COMMON /GKETBI/IERNMS(NUMERS)
33       INTEGER IERNMS
34       COMMON /GKETBC/ERMSGS(NUMERS)
35       CHARACTER*90 ERMSGS
36       COMMON/GKEROR/ ERS   , ERF   , CUFLAG, XERMSG(160)   , MXERMG
37       INTEGER        ERS   , ERF   , CUFLAG, XERMSG        , MXERMG
38       COMMON/GKENUM/ GBUNDL, GINDIV, GGKCL , GGKOP , GWSOP , GWSAC ,
39      +               GSGOP , GOUTPT, GINPUT, GOUTIN, GWISS , GMO   ,
40      +               GMI   , GCGM  , GWSS  , GXWE  , GXWC  , GDMP  ,
41      +               GPSMIN, GPSMAX
42       INTEGER        GBUNDL, GINDIV, GGKCL , GGKOP , GWSOP , GWSAC ,
43      +               GSGOP , GOUTPT, GINPUT, GOUTIN, GWISS , GMO   ,
44      +               GMI   , GCGM  , GWSS  , GXWE  , GXWC  , GDMP  ,
45      +               GPSMIN, GPSMAX
46       COMMON/GKSNAM/ GNAM(109)     , SEGNAM(NSEG)  , GFNAME, GSEGRT
47       CHARACTER      GNAM*6, SEGNAM*57     , GFNAME*256    ,
48      +               GSEGRT*80
49       COMMON/GKSIN1/ FCODE , CONT  , 
50      +               IL1   , IL2   , ID(128)       ,
51      +               IC1   , IC2   , IC(128)       ,
52      +               RL1   , RL2   , RX(128)       , RY(128)       ,
53      +               STRL1 , STRL2 , RERR
54       COMMON/GKSIN2/ STR
55       INTEGER        FCODE , CONT  , IL1   , IL2   , ID    , IC1   ,
56      +               IC2   , IC    , RL1   , RL2   , STRL1 , STRL2 ,
57      +               RERR
58       REAL           RX    , RY
59       CHARACTER*80   STR