C***********************************************************************
C     THIS SUBROUTINE PRINTS THE PLOT INCLUDING LABELS.
C***********************************************************************
      SUBROUTINE PRNT (XTITLE,YTITLE)
C***********************************************************************
C     DECLARATIONS
C***********************************************************************
      CHARACTER*1 XTITLE(36), YTITLE(36), YT(48), IBL
      CHARACTER*1 PLOT(51,68)
C***********************************************************************
C     COMMON STATEMENTS
C***********************************************************************
      COMMON /SPLOT/ PLOT
      COMMON /PPL/ XDIV(14), YDIV(10), XINC, YINC
C***********************************************************************
C     DATA STATEMENTS
C***********************************************************************
      DATA IBL /' '/
      DO 10 I=1,48
   10 YT(I)=IBL
      DO 20 I=1,36
   20 YT(I+6)=YTITLE(I)
      K=2
      I=0
   30 I=I+1
      IF (I.EQ.K) THEN
         K=K+5
         WRITE (6,40) YT(I),YDIV(I/5+1),(PLOT(I,J),J=1,68)
      ELSE
         WRITE (6,50) YT(I),(PLOT(I,J),J=1,68)
      ENDIF
      IF (I.LT.48) GO TO 30
      WRITE (6,60) (XDIV(I),I=1,14,2)
      WRITE (6,80) (XDIV(I),I=2,14,2)
      WRITE (6,70) (XTITLE(I),I=1,36)
C***********************************************************************
C     FORMAT STATEMENTS
C***********************************************************************
      RETURN
   40 FORMAT (1X,A1,F9.6,1X,68A1)
   50 FORMAT (1X,A1,10X,68A1)
   60 FORMAT (/7X,7(F9.3,1X))
   70 FORMAT (/22X,36A1)
   80 FORMAT (11X,7(1X,F9.3))
      END