subroutine spmode(ipmode) C C This subroutine sets the plotting mode C C ipmode = 0 absolute screen coordinates C = 1 relative screen coordinates C common/init/ilun,factor,imode,ipenst if(ipmode.eq.imode)return !let's not set it again if(imode.ne.0.and.imode.ne.1)return !make sure it's valid imode=ipmode !no set it return !goodbye end