1 subroutine shift_orig(ishiftx,ishifty) 2 INCLUDE 'Parametres.f' 3 if (ipostscript.eq.1) then 4 origine_x = origine_x + real(ishiftx) 5 origine_y = origine_y + real(ishifty) 6 endif 7 end 8