subroutine window(xl,yl,xu,yu) C C This subroutine defines the plotting window C C xl,yl(real)=real co-ordinates in inches for the lower left corner C xu,yu(real)=real co-ordinates in inches for the upper right corner C if xl,yl,xu,yu=0,0,0,0 then reset to mechanical limits C common/init/ilun,factor,imode,ipenst common/origin/xor,yor if(xl.eq.0..and.yl.eq.0..and.xu.eq.0..and.yu.eq.0.)goto 20 ixl=int((xor+xl)*factor*1016.) iyl=int((yor+yl)*factor*1016.) ixu=int((xor+xu)*factor*1016.) iyu=int((xor+yu)*factor*1016.) write(ilun,10)ixl,iyl,ixu,iyu 10 format(' IW'I5','I5,','I5','I5';') return 20 write(ilun,30) 30 format(' IW;') return end