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