subroutine lintyp(line) C C LINE(integer) = the type of line pattern to use C 0 is always a solid line C 1 - 7 are dotted, and various dash types C C This subroutine set the line type pattern C common/init/ilun,factor,imode,ipenst if(line.lt.0.or.line.gt.7)return !make sure the arg is valid if(line.eq.0)goto 20 !use the 0 argument for solid lines write(ilun,10)line 10 format(' W(P'I1')') return 20 write(ilun,30) 30 format(' W(P1)') end