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
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