subroutine LINTYP (ilnpen) c c ilnpen is a two-digit integer. c The ten digit denotes line type (0-9) c 0: solid line c 1-9: broken line, half-pitch = (1-9)*10 units c The unit digit denotes pen no. or line width (1-6) c logical*1 pltcmd(40) c iline=ilnpen/10 ipen =ilnpen - iline*10 c ipitch=iline*20 igap=iline*6 call brok(ipitch,igap) call pen(ipen) c return end