subroutine initsauve(fichier,long,xdec,ydec,fact,nomfich,longfich)
      INCLUDE 'Parametres.f'
      character*(*) fichier,nomfich
      character*2 chiffre
      character*128 bidon
c
      xdecalmarc = xdec
      ydecalmarc = ydec
      facteurmarc = fact
      sauve_graphic = .true.
      bidon = fichier
      call premier_libre(isgr)
      ii = 0
 10   ii = ii+1
      if (ii.lt.100) then
        write(chiffre,'(i2.2)') ii
      else
        chiffre = '00'
      endif
      open(isgr,file=bidon(1:long)//chiffre,status='new',iostat=ierr)
      if (ierr.ne.0.and.ii.lt.100) goto 10
      if (albion) then
        print*,'Opening xgraphic''s file: ',bidon(1:long)//chiffre
        if (ii.eq.100) print*,'*** Overwriting the existing file !'
        write(isgr,'(2A)') '# File generated by ',nomprogramme(1:lprog)
        write(isgr,'(2A)') '# with files ',nomfich(1:longfich)
      else
        print*,'Ouverture du bidon pour xgraphic : ',
     &         bidon(1:long)//chiffre
        if (ii.eq.100) print*,'*** On écrase le bidon précédent !'
        write(isgr,'(2A)') '# Bidon généré par ',nomprogramme(1:lprog)
        write(isgr,'(2A)') '# grâce aux bidons ',nomfich(1:longfich)
      endif
      ipostscript = -1
      end