      LOGICAL*1 TITLE(80),TITL2(80),TITLX(80),TITLY(80),LEGEND(80)      PLO00010
      DIMENSION X(5000),Y(5000),Z(5000), A(5000)                        PLO00020
      COMMON /GRAPH/ XMIN,XMAX,STEPX,YMIN,YMAX,STEPY,                   PLO00030
     *               XSCALE,YSCALE,XTRAN,YTRAN,ITPL,                    PLO00040
     *               TITLE,TITL2,TITLX,TITLY,LEGEND,XLE,YLE             PLO00050
      NAMELIST/GRAPH/ XMIN,XMAX,STEPX,YMIN,YMAX,STEPY,XLE,YLE,          PLO00060
     *                XSCALE,YSCALE,XTRAN,YTRAN,ITPL,NPT,XINC,          PLO00070
     *                TITLE,TITL2,TITLX,TITLY,LEGEND,NCARDS,LAST        PLO00080
      NPT = 200                                                         PLO00090
      READ ( 1,*) (X(I),I=1,NPT)                                        PLO00100
c     READ (2,*) (Y(I),I=1,NPT)                                         PLO00110
c     READ (3,*) (Z(I),I=1,NPT)                                         PLO00120
      DO 110 I = 1, NPT                                                 PLO00130
      PS = 0.01*DFLOAT(I)                                               PLO00140
110   WRITE(8,9) PS, X(I)                                               PLO00150
  9   FORMAT(4D16.8)                                                    PLO00160
C     CALL PLTCRV(1,NPT,X,Y,LAST)                                       PLO00170
C1000 CONTINUE                                                          PLO00180
      STOP                                                              PLO00190
      END                                                               PLO00200
