subroutine pendn common/init/ilun,factor,imode,ipenst write(ilun,10) 10 format(' PD;') ipenst=0 return end