C ***  PROGRAM: XRDPCOM - COMMON BLOCK FOR XRDPLT PROGRAM
C *
      PARAMETER ( KVERSN = 900601 )
      PARAMETER ( MNPTS=8192, MXFILE=16, MXDGRP=32 )
C-
C-  AXIS PARAMETERS
      PARAMETER ( MXXIDL=4, MXYIDL=7, MXYID2=MXYIDL+10 )
      CHARACTER QPLTID*80
      CHARACTER QXAXID*26,QYAXID*26
      COMMON/AXSDT0/ QPLTID
      COMMON/AXSDT1/ QXAXID(MXXIDL),QYAXID(MXYID2)
      COMMON/AXSDT2/ NXAXID(MXXIDL),NYAXID(MXYID2),YAXZRO(MXYID2)
      COMMON/AXSDT3/ NXAXUS,NYAXUS
      COMMON/AXSDT4/ KAXBOX,KAXDRW,KAXSIZ,KAXXRV
      COMMON/AXSDT5/ KXAXID,XAXORG,XAXLEN,XAXBEG,XAXEND,XAXDEL
      COMMON/AXSDT6/ KYAXID,YAXORG,YAXLEN,YAXBEG,YAXEND,YAXDEL,YAXOFS
      COMMON/AXSDT7/ PPLSCA,XLBPOS,YLBPOS
C-
C-  GENERAL PROGRAM PARAMETERS
      COMMON/XRLUNS/ ITTI,ITTO,IDFI
      COMMON/PLT0A/ KMODEO
C-
C-  FILE PARAMETERS
      CHARACTER QFLNAM*64
      COMMON/FIL1A/ QFLNAM(MXFILE)
      COMMON/FIL1B/ KFLPDT,KFLTYP(MXFILE),KFLFRM(MXFILE)
      COMMON/FIL1C/ KFLTOT,KFLCUR
C-
C-  DEFAULTS FOR PROGRAM PARAMETERS READ FROM DEFAULT FILE
      PARAMETER (MXXDFT=13)
      COMMON/XDFTP1/ KXDFTI(MXXDFT),PXDFTI(MXXDFT)
C-
C-  DATA GROUP PARAMETERS
      CHARACTER QDGTTL*20
      COMMON/PLT1D/ QDGTTL(MXFILE,MXDGRP)
      COMMON/PLT1E/ KDGNUM(MXFILE),KDGTYP(MXFILE,MXDGRP)
      COMMON/PLT1F/ KDGFRQ(MXFILE,MXDGRP),PDGOFS(MXFILE,MXDGRP)
      COMMON/PLT1G/ KDGPEN(MXFILE,MXDGRP),PDGINC(MXFILE,MXDGRP)
      COMMON/PLT1H/ KDGUSD(MXFILE,MXDGRP),PDGLXY(MXFILE,MXDGRP,3)
      COMMON/PLT1I/ KDGSYN,KDGSYM(MXFILE,MXDGRP)
      COMMON/PLT1J/ KSLTYP(MXFILE),PSLSIZ(MXFILE)
C-
C-  AUTO-AXIS SCALING
      COMMON/PLT1Y/ KASCYL,KASCYH,PASCMN,PASCMX
      COMMON/PLT1Z/ KASCFC(MXFILE),PASFMN(MXFILE),PASFMX(MXFILE)
C-
C-  CURRENT-PATTERN-FILE RELATED PARAMETERS
      COMMON/PATDAT/ PTBANG,PTEANG,PTCTIM,PTANXT
C-
C-  DATA AND MARKERS READ FROM A FILE
      COMMON/PLT2A/ NDVPTS,PDVBEG,PDVEND,PDVXVL(MNPTS),PDVYVL(MNPTS)
      COMMON/PLT2B/ PDVVL1(MNPTS),PDVVL2(MNPTS)
      COMMON/PLT2C/ KDVIV1(MNPTS)
C-
C-  MARKER DATA ENTERED BY THE USER ON THE SCREEN
      CHARACTER QVLTXT*40
      COMMON/PLT3A/ QVLTXT(20)
      COMMON/PLT3B/ KVSNUM,KVSTYP(100),PVSANG(100),PVSHGT(100)
      COMMON/PLT3C/ PVS2TH(100),PVSDSP(100),PVSWAV(100),PVSOFS(100)
      COMMON/PLT3D/ KVLNUM,PVLXXX(20),PVLYYY(20),KVLNNN(20)
C-
C-  LINKS TO GRAPHICS LIBRARIES
      CHARACTER QHPSTO*64
      COMMON/XRDDFT/ MODEVG,KDEVIC,KOUTPT,KHPSPD,KCMPRM(5)
      COMMON/HPFILE/ QHPSTO
      COMMON/PCCOM1/ IXO,IYO,IXC,IYC,IXM,IYM,IPF,RSF,XSUN,YSUN,ICOLR
      COMMON/PCCOM2/ VCHSIZ,VCVSIZ
      COMMON/VIDCOM/ KVMODE,KXPIX,KYPIX,KXCOL,KYCOL
C-
