C FILE:   PLTDMY
C
C THIS FILE PROVDIES A DUMMY INTERFACE ROUTINE TO PLOT79 FOR THE CASE
C THAT PACKAGE IS NOT AVAILABLE.  THIS SUBROUTINE USES UPPER CASE
C CHARACTERS ONLY AND DOES NOT REQUIRE A PEN ROUTINE.
      SUBROUTINE SUBPL(ITYPE,INPUT,NCALLS)
      INTEGER             I,           J,           NN
      INTEGER             ICHAR(72),   NCALLS,      ITEMP(9),    ITYPE
      INTEGER             IOUT,        INPUT
      LOGICAL             OK,          LOGCNT
      REAL                W,           X,           FR,          SZ
      REAL                DSZ
      INTEGER             LCHN
      COMMON / LOG    /   LCHN
      INTEGER             OUTPUT,      LINES,       WIDTH,       ILP
      INTEGER             IDSPLA,      IPRMPT
      LOGICAL             LSCRN
      COMMON / SCREEN /   OUTPUT,      LINES,       WIDTH,       ILP
      COMMON / SCREEN /   IDSPLA,      IPRMPT,      LSCRN
      INTEGER             ITITLE,      IBOTTM,      NUMBR,       BL
      INTEGER             BR
      LOGICAL             FRAME,       COLOR,       NUMRCL,      LMARK
      LOGICAL             LBLS,        DATE,        TIME
      COMMON / PLOWN  /   ITITLE(72),  IBOTTM(72),  NUMBR,       FRAME
      COMMON / PLOWN  /   COLOR,       NUMRCL,      LMARK,       LBLS
      COMMON / PLOWN  /   DATE,        TIME,        BL(72),      BR(72)
C
      DATA SZ /0.018/
      DATA FR /0.93/
C INDICATE THAT SCREEN HAS BEEN OVERWRITTEN
      LSCRN = .FALSE.
      ITYPE = 3
C INITIALIZE CONTROL OF LOGGING - IF LOGGING IS REQUIRED, THEN ONLY
C THE FINAL DESCRIPTION OF PLOT OPTIONS IS PRINTED INTO THE LOG CHANNEL
C
      IOUT = OUTPUT
      LOGCNT = .FALSE.
  100 CONTINUE
      CALL BLSCRN(OUTPUT)
      CALL PCURSR(OUTPUT,1,1)
  200 CONTINUE
      WRITE (IOUT,18000)
      WRITE (IOUT,20000) (ITITLE(I),I=1,72)
      WRITE (IOUT,22000) (IBOTTM(I),I=1,72)
      IF (LBLS) WRITE (IOUT,24000)
      IF (.NOT.LBLS) WRITE (IOUT,26000)
      IF (LMARK) WRITE (IOUT,28000)
      IF (.NOT.LMARK) WRITE (IOUT,30000)
      IF (COLOR) WRITE (IOUT,32000)
      IF (.NOT.COLOR) WRITE (IOUT,34000)
      IF (NUMBR.EQ.0) WRITE (IOUT,36000)
      IF (NUMBR.NE.0) WRITE (IOUT,38000) NUMBR
      WRITE (IOUT,40000) (BL(I),I=1,20)
      WRITE (IOUT,42000) (BR(I),I=1,20)
      IF (DATE) WRITE (IOUT,44000)
      IF (.NOT.DATE) WRITE (IOUT,46000)
      IF (TIME) WRITE (IOUT,50000)
      IF (.NOT.TIME) WRITE (IOUT,48000)
      IF (NUMRCL) WRITE (IOUT,52000)
      IF (.NOT.NUMRCL) WRITE (IOUT,54000)
      IF (.NOT.FRAME) WRITE (IOUT,56000)
      IF (FRAME) WRITE (IOUT,58000)
      IF (LOGCNT) GO TO 2200
  300 CONTINUE
      WRITE (OUTPUT,60000)
  400 CONTINUE
      CALL SIREAD(INPUT,NN,OK)
      IF (OK) GO TO 500
      WRITE (OUTPUT,62000)
      GO TO 400
  500 CONTINUE
      IF (NN.EQ.0) GO TO 2000
      IF (NN.LT.0) GO TO 2100
      IF (NN.GT.12) GO TO 300
      GO TO (600,700,800,900,1000,1100,1400,1500,1600,1700,1800,1900),NN
  600 CONTINUE
      WRITE (OUTPUT,64000)
      READ (INPUT,66000) (ITITLE(J),J=1,72)
      GO TO 100
  700 CONTINUE
      WRITE (OUTPUT,68000 )
      READ (INPUT,66000) (IBOTTM(J),J=1,72)
      GO TO 100
  800 CONTINUE
      LBLS = .NOT.LBLS
      GO TO 100
  900 CONTINUE
      LMARK = .NOT.LMARK
      GO TO 100
 1000 CONTINUE
      COLOR = .NOT.COLOR
      GO TO 100
 1100 CONTINUE
      WRITE (OUTPUT,12000)
 1200 CONTINUE
      CALL SIREAD(INPUT,NN,OK)
      IF (OK) GO TO 1300
      WRITE (OUTPUT,62000)
      GO TO 1200
 1300 CONTINUE
      NUMBR = NN
      GO TO 100
 1400 CONTINUE
      WRITE (OUTPUT,14000)
      READ (INPUT,66000) (BL(I),I=1,20)
      GO TO 100
 1500 CONTINUE
      WRITE (OUTPUT,16000)
      READ (INPUT,66000) (BR(I),I=1,20)
      GO TO 100
 1600 CONTINUE
      DATE = .NOT.DATE
      GO TO 100
 1700 CONTINUE
      TIME = .NOT.TIME
      GO TO 100
 1800 CONTINUE
      NUMRCL = .NOT.NUMRCL
      GO TO 100
 1900 CONTINUE
      FRAME = .NOT.FRAME
      GO TO 100
 2000 CONTINUE
C
C
C THIS SPACE TAKEN UP BY CALLS TO PLOT79 ROUTINES
C
C
 2100 CONTINUE
      IF (LCHN.EQ.0) GO TO 2200
      IOUT = LCHN
      LOGCNT = .TRUE.
      WRITE (IOUT,10000)
      GO TO 200
 2200 CONTINUE
      RETURN
10000 FORMAT(/40H LEAVING PLOT79 INTERFACE - PARAMETERS: )
12000 FORMAT(21H GIVE NEW PAGE NUMBER)
14000 FORMAT(28H GIVE NEW BOTTOM LEFT LABEL:)
16000 FORMAT(29H GIVE NEW BOTTOM RIGHT LABEL:)
18000 FORMAT(51H PLOT DUMMY ROUTINE - SIMULATING TRUE INTERFACE FOR,
     X 14H COMPATIBILITY)
20000 FORMAT(15H  1:  TITLE IS:/1H ,72A1)
22000 FORMAT(16H  2:  LEGEND IS:/1H ,72A1)
24000 FORMAT(30H  3:  GRAPHS ARE BEING LABELED)
26000 FORMAT(34H  3:  GRAPHS ARE NOT BEING LABELED)
28000 FORMAT(29H  4:  GRAPHS ARE BEING MARKED)
30000 FORMAT(33H  4:  GRAPHS ARE NOT BEING MARKED)
32000 FORMAT(50H  5:  THE PLOT IS IN COLOR (IF HARDWARE SUPPORTED))
34000 FORMAT(36H  5:  THE PLOT IS IN BLACK AND WHITE)
36000 FORMAT(39H  6:  CURRENTLY NO PAGE NUMBER IS DRAWN)
38000 FORMAT(29H  6:  CURRENT PAGE NUMBER IS ,I15)
40000 FORMAT(27H  7:  BOTTOM LEFT LABEL IS:/1H ,20A1)
42000 FORMAT(28H  8:  BOTTOM RIGHT LABEL IS:/1H ,20A1)
44000 FORMAT(39H  9:  DATE IS SHOWN IN TOP RIGHT CORNER)
46000 FORMAT(22H  9:  NO DATE IS SHOWN)
48000 FORMAT(23H 10:  TIME IS NOT SHOWN)
50000 FORMAT(38H 10:  TIME IS SHOWN IN TOP LEFT CORNER)
52000 FORMAT(36H 11:  NUMERICAL INFORMATION IS DRAWN)
54000 FORMAT(38H 11:  NUMERICAL INFORMATION IS OMITTED)
56000 FORMAT(39H 12:  NO FRAME IS DRAWN AROUND THE PLOT)
58000 FORMAT(38H 12:  A FRAME IS DRAWN AROUND THE PLOT)
60000 FORMAT(//36H WRITE REFERENCE NUMBER FOR CHANGES,
     X  /50H 0 FOR PLOT GENERATION, OR NEGATIVE NUMBER TO EXIT)
62000 FORMAT(35H NUMBER NOT RECOGNIZED - TRY AGAIN )
64000 FORMAT(13H GIVE TITLE:  )
66000 FORMAT(72A1)
68000 FORMAT(13H GIVE LEGEND )
      END