C     COMMON BLOCKS FOR LKAGKS-  SEE COMMENTS IN FILE: COMMENTS

      INTEGER MXNTNR, MXNWKS, MXNPLI, MXNTXI, MXNPMI, MXNWRK,
     A        MXNFAI, MXLTYP

      PARAMETER(MXNTNR=10, MXNWKS=1, MXNPLI=10, MXNTXI=10, MXNPMI=10,
     A          MXNWRK=2000, MXNFAI=20, MXLTYP=5)

      CHARACTER*64 FNMVEC(MXNWKS)

      INTEGER STDERR, GKSOPN

      INTEGER MONVEC(MXNWKS), VPMVEC(MXNWKS), IFRVEC(MXNWKS),
     A    IBKVEC(MXNWKS),  ARPMCI(MXNWKS,MXNPMI), 
     E SAVDSN(MXNWKS), SPLDSN(MXNWKS), IVMVEC(MXNWKS), 
     F LTYPE(MXNWKS,MXNPLI), ARPLCI(MXNWKS,MXNPLI), 
     G CLRTAB(MXNWKS,0:15), DOSCLR(MXNWKS,0:15), TXFNTA(MXNWKS,MXNTXI),
     H TXPRCA(MXNWKS,MXNTXI), ARTCI(MXNWKS,MXNTXI), 
     I ARMT(MXNWKS,MXNPMI),                  MONLX(MXNWKS),
     J MONLY(MXNWKS), WSSTAT(MXNWKS), FINTSA(MXNWKS,MXNFAI),
     K FSINDA(MXNWKS,MXNFAI), FCOLIA(MXNWKS,MXNFAI),
     L MTXTCL(MXNWKS),MTXTRW(MXNWKS),LINPTR(MXLTYP),MRKPTR(-9:5)
C
      REAL XWMINV(0:MXNTNR), XWMAXV(0:MXNTNR), 
     1     YWMINV(0:MXNTNR), YWMAXV(0:MXNTNR),
     A     XVMINV(0:MXNTNR), XVMAXV(0:MXNTNR), 
     2     YVMINV(0:MXNTNR), YVMAXV(0:MXNTNR),
     3     MXWXVV(0:MXNTNR), MYWYVV(0:MXNTNR),
     B XNMINV(MXNWKS), XNMAXV(MXNWKS), YNMINV(MXNWKS), YNMAXV(MXNWKS),
     C XDMINV(MXNWKS), XDMAXV(MXNWKS), YDMINV(MXNWKS), YDMAXV(MXNWKS),
     D MONWID(MXNWKS), MONHGT(MXNWKS), LWIDTH(MXNWKS,MXNPLI),
     E ARCEF(MXNWKS,MXNTXI), ARCS(MXNWKS,MXNTXI), ARMS(MXNWKS,MXNPMI),
     F XWORK(MXNWRK), YWORK(MXNWRK), LCX, LCY

      COMMON/LKABND/ STDERR, GKSOPN, 
     A               XWMINV, XWMAXV, YWMINV, YWMAXV,
     B               XVMINV, XVMAXV, YVMINV, YVMAXV,
     C               XNMINV, XNMAXV, YNMINV, YNMAXV,
     D               XDMINV, XDMAXV, YDMINV, YDMAXV,
     E               MONVEC, VPMVEC, IFRVEC,IBKVEC,
     E               SAVDSN, SPLDSN, IVMVEC, MONWID, MONHGT,
     F               LTYPE, ARPLCI, CLRTAB, DOSCLR, TXFNTA,
     G               TXPRCA, ARCS, ARTCI, LWIDTH, ARCEF, 
     H               ARMT,  ARPMCI, ARMS, MONLX, MONLY,
     I               MXWXVV, MYWYVV, XWORK, YWORK, WSSTAT,
     K               FINTSA, FSINDA, FCOLIA,
     L               MTXTCL, MTXTRW, LINPTR, MRKPTR, LCX, LCY


C     DISTINCT COMMON FOR CHARACTER STRINGS

      COMMON/LKACHR/ FNMVEC

C     GLOBAL VALUES HERE 

      INTEGER TXPATH, TXALGH, TXALGV, TXINDX,
     A        LCOLOR, MCOLOR, MTYPE, CFORE, CBACK, CLIPIT, TXFONT,
     B        TXPREC, TXCOLI, FSTYLE, FSINDX, FCOLI, EFLAG, WFLAG, 
     C        OKFLAG, FAINDX, NELEM, GLTYPE, MRKOPT


      INTEGER WKMODE(13)

      REAL CHARH , CHARUX, CHARUY, 
     A     XWMIN, XWMAX, YWMIN, YWMAX,
     B     XVMIN, XVMAX, YVMIN, YVMAX,
     C     XNMIN, XNMAX, YNMIN, YNMAX,
     D     XDMIN, XDMAX, YDMIN, YDMAX,
     E     MXWXV, MYWYV, MXNXD, MYNYD,
     F     BSLINW, BSMRKH,
     G     GLWID,  MARKH, MARKSF, TXEXPF, TXSPCF, TXANGL,
     H     CHARHD, CHARBX, CHARBY, PLWID
      
      REAL LPAT(8), DXPAT(8), DYPAT(8)


      COMMON/LKAGLB/ TXPATH, TXALGH, TXALGV, TXINDX,
     A               CHARH , CHARUX, CHARUY,
     A     XWMIN, XWMAX, YWMIN, YWMAX,
     B     XVMIN, XVMAX, YVMIN, YVMAX,
     C     XNMIN, XNMAX, YNMIN, YNMAX,
     D     XDMIN, XDMAX, YDMIN, YDMAX,
     E     MXWXV, MYWYV, MXNXD, MYNYD, BSLINW, BSMRKH, LCOLOR, MCOLOR,
     F     GLWID, GLTYPE, MARKH, MARKSF, MTYPE, CFORE, CBACK, CLIPIT,
     G     TXFONT, TXPREC, TXEXPF, TXSPCF, TXCOLI, TXANGL, CHARHD,
     H     CHARBX, CHARBY, WKMODE, FSTYLE, FSINDX, FCOLI , PLWID,
     I     FAINDX, EFLAG, WFLAG, OKFLAG, NELEM,
     J     LPAT, DXPAT, DYPAT, MRKOPT

      SAVE /LKABND/
      SAVE /LKAGLB/
      SAVE /LKACHR/