C EFOUVR4   SOURCE    CHAT      11/10/26    22:15:20     7176           
      subroutine efouvr4(fid, nom, acces, cret)
      character *(*) nom
      integer acces, fid, cret
      integer*4 acces4, fid4, cret4
      acces4=acces
      call efouvr(fid4, nom, acces4, cret4)
      fid=fid4
      cret=cret4
      return
      end