Esope source files

   1 : C EFNCHA4   SOURCE    CHAT      11/10/26    22:15:15     7176           
   2 :       subroutine efncha4(fid,ind,n,cret)
   3 :       integer fid,ind,cret,n
   4 :       integer*4 fid4,ind4,cret4,n4
   5 :       fid4=fid
   6 :       ind4=ind
   6 :       call efncha(fid4,ind4,n4,cret4)
   7 :       n=n4
   8 :       cret=cret4
   9 :       return
  10 :       end
  11 :       
  12 :