C EFCHAC4   SOURCE    CHAT      11/10/26    22:15:00     7176           

      subroutine efchac4(fid,cha,type,comp,unit,ncomp,cret)
             
      character*32 cha
      character*16 comp,unit    
      integer fid, ncomp, cret, type
      integer*4 fid4, ncomp4, cret4, type4
   
*         integer ifid, nocom, icret, m1
      fid4=fid
      type4=type
      ncomp4=ncomp  
      call efchac (fid4,cha,type4,comp,unit,ncomp4,cret4)
      cret=cret4
      return
      end