subroutine newpen(ipen) common/init/ilun,factor,imode,ipenst write(ilun,10)ipen 10 format(' SP',I1,';') return end