SUBROUTINE PENUP
c
c       This routine puts the pen up on HIPLOT DMPL plotters.
C 9-Nov-82 DVJensen modified to keep track thru HIPLOT common
C          of current up/down status of the pen.
C        - sends characters to the plotter thru PLTOUT subr.
c
      COMMON /HIPLOT/ UP
      LOGICAL*1 UP,UPCHAR
      DATA UPCHAR/'U'/
c
      IF (UP) RETURN
      CALL PLTOUT(UPCHAR,1)
      UP = .TRUE.
      RETURN
      END