* work-around for a G77 fortran bug: "CLOSE" sometime crashes in G77 after
* some WRITE when there has been a simple OPEN...'unknown' when the file
* already existed:

*> enfile: truncation failed in endfile
*> apparent state: unit 10 named machin.dat
*> last format: list io
*> lately writing sequential formatted external IO

      subroutine ouvrefichier(unite, nomfichier)
      integer unite
      character *(*) nomfichier
      open (unit=unite, file=nomfichier, status='unknown')
      close (unit=unite, status='delete')
      open (unit=unite, file=nomfichier, status='new')
      return
      end
