Esope source files

   1 : C EFCHAC4   SOURCE    CHAT      11/10/26    22:15:00     7176           
   2 : 
   3 :       subroutine efchac4(fid,cha,type,comp,unit,ncomp,cret)
   4 :              
   5 :       character*32 cha
   6 :       character*16 comp,unit    
   7 :       integer fid, ncomp, cret, type
   8 :       integer*4 fid4, ncomp4, cret4, type4
   9 :    
  10 : *         integer ifid, nocom, icret, m1
  11 :       fid4=fid
  12 :       type4=type
  13 :       ncomp4=ncomp  
  13 :       call efchac (fid4,cha,type4,comp,unit,ncomp4,cret4)
  14 :       cret=cret4
  15 :       return
  16 :       end
  17 :       
  18 :