C***********************************************************************
C     THIS SUBROUTINE PLOTS AN INDIVIDUAL POINT BY PLACING THE CHARAC-
C     TER (CHAR) AT THE POSITION (X,Y).
C***********************************************************************
      SUBROUTINE PLT (CHAR,X,Y)
C**********************************************************************
C     DECLARATIONS
C**********************************************************************
      CHARACTER*1 CHAR, BLANK, EQUALS
      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 BLANK /' '/, EQUALS /'='/
      YMAX=YDIV(1)
      XMIN=XDIV(1)
      IPOS=IFIX((YMAX-Y)/YINC+.5)+2
      JPOS=IFIX((X-XMIN)/XINC+.5)+2
      IF (PLOT(IPOS,JPOS).EQ.CHAR) THEN
         CONTINUE
      ELSE IF (PLOT(IPOS,JPOS).EQ.BLANK) THEN
         PLOT(IPOS,JPOS)=CHAR
      ELSE
         PLOT(IPOS,JPOS)=EQUALS
      ENDIF
      RETURN
      END