      SUBROUTINE  STARTP
C     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C     INSTALLATION DEPENDENT PLOT INITIALIZATION
C     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      COMMON /IOUNIT/ NCRD, NPRT, NPUN, NPLT
      PARAMETER ( IPORT = 0 )
      EXTERNAL PLOTS
C      CALCOMP CONTROL
      WRITE (NPRT,*)  ' BEGIN PLOT'
C      IPORT = 0 Landscape, = 1 Portrait
      CALL PLOTS (IPORT, 0, 0, 'CALCOMP')
C      SET NEW ORIGIN
      CALL PLOT (0.5,0.5,-3)
      RETURN
      END
