C EFNEMA4   SOURCE    CHAT      11/10/26    22:15:16     7176           
      subroutine efnema4(fid, maa, quoi,  
     1       typent, typgeo,typcon,n,cret)

      character *(*) maa
      integer fid,typent, typgeo,cret,typcon,n,quoi
      integer*4 fid4,typent4, typgeo4,cret4,typcon4,n4,quoi4
      fid4=fid
      typent4=typent
      typgeo4=typgeo
      typcon4=typcon
      quoi4=quoi
      call efnema(fid4, maa, quoi4,  
     1       typent4, typgeo4,typcon4,n4,cret4)     
      n=n4
      cret=cret4
      return
      end