Esope source files

   1 : C EFNGRO4   SOURCE    CHAT      11/10/26    22:15:18     7176           
   2 :       subroutine efngro4(fid,maa,ind,n,cret)
   3 : 
   4 :       integer fid,ind,n,cret
   5 :       character *(*) maa
   6 :       integer*4 fid4,ind4,n4,cret4 
   7 :       fid4=fid
   8 :       ind4=ind
   8 :       call efngro(fid4,maa,ind4,n4,cret4)
   9 :       n=n4
  10 :       cret=cret4
  11 :       return
  12 :       end
  13 :       
  14 :