C EFMAAI4   SOURCE    CHAT      11/10/26    22:15:14     7176           
      subroutine efmaai4( fid , indice , maa , dim , type, desc, cret)
      integer fid,dim,cret,indice,type
      character *(*) maa
      character *(*) desc
      integer*4 fid4,dim4,cret4,indice4,type4
      fid4=fid
      indice4=indice
      call  efmaai( fid4 , indice4 , maa , dim4 , type4, desc, cret4)
      dim=dim4
      type=type4
      cret=cret4
      return
      end