      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
      CALL UDRFLW                                                       PLO00090
      LAST=1                                                            PLO00100
C     DO 1000 II=1,3                                                    PLO00110
C     READ (5,GRAPH)                                                    PLO00120
C                                                                       PLO00130
C.....READ DUMMY CARDS                                                  PLO00140
C                                                                       PLO00150
      IF(NCARDS.NE.0) THEN                                              PLO00160
      DO 10 I=1,NCARDS                                                  PLO00170
   10 READ ( 1,11) DUMMY                                                PLO00180
   11 FORMAT(A4)                                                        PLO00190
      ENDIF                                                             PLO00200
      NPT = 200                                                         PLO00210
      READ ( 1,*) (Y(I),I=1,NPT)                                        PLO00220
      DO 12 I=1,NPT                                                     PLO00230
      X(I)=XINC*(I-1)                                                   PLO00240
   12 CONTINUE                                                          PLO00250
      READ (5,GRAPH)                                                    PLO00260
      IF (NCARDS.NE.0) THEN                                             PLO00270
      DO 100 I=1,NCARDS                                                 PLO00280
 100  READ (2,11) DUMMY                                                 PLO00290
C     FORMAT(A4)                                                        PLO00300
      ENDIF                                                             PLO00310
      READ(2,*)(Z(I),I=1,NPT)                                           PLO00320
      DO 110 I = 1, NPT                                                 PLO00330
      PS =   0.010*FLOAT(I)                                             PLO00340
 110  WRITE(8,9) PS, Y(I), Z(I)                                         PLO00350
  9   FORMAT(3D16.8)                                                    PLO00360
C     CALL PLTCRV(1,NPT,X,Y,LAST)                                       PLO00370
C1000 CONTINUE                                                          PLO00380
      STOP                                                              PLO00390
      END                                                               PLO00400
