C***********************************************************************
C     THIS SUBROUTINE CLEARS THE PLOT.
C***********************************************************************
      SUBROUTINE CLEAR
C***********************************************************************
C     DECLARATIONS
C***********************************************************************
      CHARACTER*1 IBL
      CHARACTER*1 PLOT(51,68)
C***********************************************************************
C     COMMON STATEMENTS
C***********************************************************************
      COMMON /SPLOT/ PLOT
C***********************************************************************
C     DATA STATEMENTS
C***********************************************************************
      DATA IBL /' '/
      DO 10 I=2,47
      DO 10 J=2,67
   10 PLOT(I,J)=IBL
      RETURN
      END