      SUBROUTINE SETGRAY(xgris)
      INCLUDE 'Parametres.f'

      if (ipostscript.ne.1) then
          write(ilaser_file,'(f5.3,a)') xgris,' g'
      endif
      end
