CIPRIME XYARAY                                                          XYARAY      1
                                                                        XYARAY      2
      REAL*4 XARAY(MXPT,MXPLOT),YARAY(MXPT,MXPLOT),T(MXPT,MXPLOT)       XYARAY      3
      COMMON /XYARAY/ XARAY,YARAY,T                                     XYARAY      4
      COMMON /XYNOPT/ MAXPT,NP                                          XYARAY      5
      INTEGER MAXPT(MXPLOT)                                             XYARAY      6
C                                                                       XYARAY      7
      INTEGER KCH(MCHNL),KRECFD(MCHNL,2)                                XYARAY      8
C                                                                       XYARAY      9
      COMMON /XYCHNL/ KCH,KRECFD,IP1,JPREV                              XYARAY     10
      CHARACTER*12 CASEID(6),CASID                                      XYARAY     11
      CHARACTER*80 XTITLE,FTITLE,YTITLE(6),CTITLE(6),CTITL2(6)          XYARAY     12
      CHARACTER*80 LTITLE(6),LTITL2(6),PTITLE(6),FILCHN(6)              XYARAY     13
      COMMON /PTIT/ XTITLE,YTITLE,CTITLE,CTITL2,LTITLE,LTITL2,PTITLE    XYARAY     14
     *,FTITLE,CASEID,CASID,FILCHN                                       XYARAY     15
