1      subroutine initsauve(fichier,long,xdec,ydec,fact,nomfich,longfich)
2      INCLUDE 'Parametres.f'
3      character*(*) fichier,nomfich
4      character*2 chiffre
5      character*128 bidon
6c
7      xdecalmarc = xdec
8      ydecalmarc = ydec
9      facteurmarc = fact
10      sauve_graphic = .true.
11      bidon = fichier
12      call premier_libre(isgr)
13      ii = 0
14 10   ii = ii+1
15      if (ii.lt.100) then
16        write(chiffre,'(i2.2)') ii
17      else
18        chiffre = '00'
19      endif
20      open(isgr,file=bidon(1:long)//chiffre,status='new',iostat=ierr)
21      if (ierr.ne.0.and.ii.lt.100) goto 10
22      if (albion) then
23        print*,'Opening xgraphic''s file: ',bidon(1:long)//chiffre
24        if (ii.eq.100) print*,'*** Overwriting the existing file !'
25        write(isgr,'(2A)') '# File generated by ',nomprogramme(1:lprog)
26        write(isgr,'(2A)') '# with files ',nomfich(1:longfich)
27      else
28        print*,'Ouverture du bidon pour xgraphic : ',
29     &         bidon(1:long)//chiffre
30        if (ii.eq.100) print*,'*** On �crase le bidon pr�c�dent !'
31        write(isgr,'(2A)') '# Bidon g�n�r� par ',nomprogramme(1:lprog)
32        write(isgr,'(2A)') '# gr�ce aux bidons ',nomfich(1:longfich)
33      endif
34      ipostscript = -1
35      end
36