Esope source files

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