Esope source files

   1 : C EFCHAI4   SOURCE    CHAT      11/10/26    22:15:03     7176           
   2 :       subroutine efchai4(fid,ind,cha,type,comp,unit,ncomp,cret)
   3 :       character *(*) cha,comp,unit
   4 :       integer fid,ind,type,ncomp,cret
   5 :       integer*4 fid4,ind4,type4,ncomp4,cret4
   6 :       fid4=fid
   7 :       ind4=ind
   8 :       ncomp4=ncomp
   8 :       call efchai(fid4,ind4,cha,type4,comp,unit,ncomp4,cret4)
   9 :       type=type4
  10 :       cret=cret4
  11 :       return
  12 :       end
  13 :       
  14 :