subroutine spmode(ipmode) common/init/ilun,factor,imode,ipenst if(ipmode.eq.imode)return if(imode.ne.0.and.imode.ne.1)return imode=ipmode return end