Esope source files

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