subroutine pendwn c c this routine puts the pen down so it will draw c 9-Nov-82 DVJensen modified for keeping track of whether pen is C currently up or not. Also transmitts plotter characters C through PLTOUT subroutine. C COMMON /HIPLOT/ UP LOGICAL*1 UP,DOWN DATA DOWN /'D'/ c IF (.NOT.UP) RETURN CALL PLTOUT(DOWN,1) UP = .FALSE. RETURN END