C EFCHAI4   SOURCE    CHAT      11/10/26    22:15:03     7176           
      subroutine efchai4(fid,ind,cha,type,comp,unit,ncomp,cret)
      character *(*) cha,comp,unit
      integer fid,ind,type,ncomp,cret
      integer*4 fid4,ind4,type4,ncomp4,cret4
      fid4=fid
      ind4=ind
      ncomp4=ncomp
      call efchai(fid4,ind4,cha,type4,comp,unit,ncomp4,cret4)
      type=type4
      cret=cret4
      return
      end