C EFNFAM4   SOURCE    CHAT      11/10/26    22:15:17     7176           
      subroutine efnfam4(fid,maa,n,cret)
      integer fid,n,cret
      character *(*) maa
      integer*4 fid4,n4,cret4
      fid4=fid
      call efnfam(fid4,maa,n4,cret4)
      n=n4
      cret=cret4
      return
      end