1      subroutine fermesauve
2      INCLUDE 'Parametres.f'
3      if (sauve_graphic) then
4        sauve_graphic = .false.
5        close(isgr)
6        ipostscript = 1
7      endif
8      end
9