Esope source files

   1 : C EFMAAC4   SOURCE    CHAT      11/10/26    22:15:13     7176           
   2 :       subroutine efmaac4 ( fid , nom , dim , type, desc, cret )
   3 :       character *(*) nom
   4 :       character *(*) desc
   5 :       integer fid, dim, type, cret
   6 :       integer*4 fid4, dim4, type4, cret4
   7 :       fid4=fid
   8 :       dim4=dim
   9 :       type4=type
   9 :       call efmaac ( fid4 , nom , dim4 , type4, desc, cret4 )
  10 :       cret=cret4
  11 :       return
  12 :       end
  13 :       
  14 :