subroutine penup common/init/ilun,factor,imode,ipenst write(ilun,10) 10 format(' PU;') ipenst=1 return end