C EFNCHA4   SOURCE    CHAT      11/10/26    22:15:15     7176           
      subroutine efncha4(fid,ind,n,cret)
      integer fid,ind,cret,n
      integer*4 fid4,ind4,cret4,n4
      fid4=fid
      ind4=ind
      call efncha(fid4,ind4,n4,cret4)
      n=n4
      cret=cret4
      return
      end