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