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