subroutine lintyp(line) common/init/ilun,factor,imode,ipenst if(line.lt.0.or.line.gt.7)return if(line.eq.0)goto 20 !use the 0 argument for solid lines if(line.eq.1)sp=.5 if(line.eq.2.or.line.eq.3)sp=.75 if(line.gt.3)sp=2.5 write(ilun,10)line,sp 10 format(' LT',I1,','F3.1';') return 20 write(ilun,30) 30 format(' LT;') end