subroutine cslant(theta) C C this subroutine changes the slant of the characters C C theta(real)=the angle in degrees to slant the characters C common/init/ilun,factor,imode,ipenst common/char/slant slant=theta return end