subroutine lintyp (ityp) c C HIPLOT plotter package. c this subroutine sets the line type. C 9-Nov-82 DVJensen converted to output thru the PLTOUT subroutine. c LOGICAL*1 SETLIN(2) DATA SETLIN/'L',' '/ c itype = min0(ityp , 9) itype = max0(itype, 0) SETLIN(2) = ITYPE + 48 CALL PLTOUT(SETLIN,2) RETURN END