subroutine marker(mrknum, isize) c C HIPLOT plotter package. c places a marker at the current coordinates. C 9-Nov-82 DVJensen converted to output through the PLTOUT subr. c LOGICAL*1 MARK(3) DATA MARK/'M',' ',' '/ c isz = min0(isize, 5) isz = max0(isz, 1) mrk = max0(mrknum, 0) mrk = min0(mrk, 5) MARK(2) = ISZ + 48 MARK(3) = MRK + 48 CALL PLTOUT(MARK,3) RETURN END