C EFNGRO4   SOURCE    CHAT      11/10/26    22:15:18     7176           
      subroutine efngro4(fid,maa,ind,n,cret)

      integer fid,ind,n,cret
      character *(*) maa
      integer*4 fid4,ind4,n4,cret4 
      fid4=fid
      ind4=ind
      call efngro(fid4,maa,ind4,n4,cret4)
      n=n4
      cret=cret4
      return
      end