C SUBROUTINE FILE 'PLOTH.FOR' - PLOT INTERFACE SUBROUTINES TO HALO88
C
C=======================================================================
C
      SUBROUTINE PLOTS(I1,I2,I3)
      INTEGER I1,I2,I3
C
C INPUT:
C     I1,I2,I3...ANY INTEGERS.  IGNORED.
C
C NO OUTPUT.
C
C SUBROUTINES AND EXTERNAL FUNCTIONS REQUIRED:
      EXTERNAL SETDEV,INITGR,SETIEE,SETWOR,SETCOL
C     SUBROUTINE SETDEV(NAME)
C     SUBROUTINE INITGR(MODE)
C     SUBROUTINE SETIEE(IEEE)
C     SUBROUTINE SETWOR(0.,0.,HSIZE,VSIZE)
C     SUBROUTINE SETCOL(ICOL)
C
C DATE: 1989, DECEMBER 19
C CODED BY LUDEK KLIMES
C
C-----------------------------------------------------------------------
C
C     AUXILIARY STORAGE LOCATIONS:
C
      INTEGER MODE,IEEE
      INTEGER ICOL,NCOL,MCOL
      CHARACTER*22 NAME
C
      NAME(1:22)='/C:\FOR4\HALOIBMV.DEV/'
      MODE=7
      IEEE=1
      ICOL=15
      HSIZE=29.7
      VSIZE=21.0
      CALL SETDEV(NAME)
      CALL INITGR(MODE)
      CALL SETIEE(IEEE)
C     CALL INQCRA(MCOL)
      CALL SETWOR(0.,0.,HSIZE,VSIZE)
      CALL SETCOL(ICOL)
      RETURN
      END
C
C=======================================================================
C
      SUBROUTINE PLOT(XPAGE,YPAGE,IPEN)
C
C INPUT:
C     XPAGE,YPAGE... COORDINATES, OFTEN IN CENTIMETRES.
C     IPEN... CONTROLS THE PLOTTING:
C             IPEN=2... THE PEN IS DOWN DURING THE MOVEMENT, THUS
C               DRAWING A LINE.
C             IPEN=3... THE PEN IS UP DURING THE MOVEMENT.
C             IPEN=999... TERMINATES PLOTTING INITIALIZED BY THE
C               SUBROUTINE PLOTS.
C
C NO OUTPUT.
C
C SUBROUTINES AND EXTERNAL FUNCTIONS REQUIRED:
      EXTERNAL MOVABS,LNABS,CLOSEG
C     SUBROUTINE MOVABS(XPAGE,YPAGE)
C     SUBROUTINE CALL LNABS(XPAGE,YPAGE)
C     SUBROUTINE CLOSEG()
C
C DATE: 1989, DECEMBER 19
C CODED BY LUDEK KLIMES
C
C-----------------------------------------------------------------------
C
C     AUXILIARY STORAGE LOCATION:
      CHARACTER*1 DUMMY
C
      IF(IPEN.EQ.3) THEN
        CALL MOVABS(XPAGE,YPAGE)
      ELSE IF(IPEN.EQ.2) THEN
        CALL LNABS(XPAGE,YPAGE)
      ELSE IF(IPEN.GE.999) THEN
        CALL CLOSEG()
        WRITE(*,'('' [=3h'')')
      END IF
      RETURN
      END
C
C=======================================================================
C
      SUBROUTINE NEWPEN(INP)
      INTEGER INP
C
C INPUT:
C     INP... SPECIFIES COLOUR.
C
C NO OUTPUT.
C
C SUBROUTINES AND EXTERNAL FUNCTIONS REQUIRED:
      EXTERNAL SETCOL
C     SUBROUTINE SETCOL(ICOL)
C
C DATE: 1989, DECEMBER 19
C CODED BY LUDEK KLIMES
C
C-----------------------------------------------------------------------
C
C     AUXILIARY STORAGE LOCATIONS:
C
      CALL SETCOL(INP)
      RETURN
      END
C
C=======================================================================
C