C EFMAAC4   SOURCE    CHAT      11/10/26    22:15:13     7176           
      subroutine efmaac4 ( fid , nom , dim , type, desc, cret )
      character *(*) nom
      character *(*) desc
      integer fid, dim, type, cret
      integer*4 fid4, dim4, type4, cret4
      fid4=fid
      dim4=dim
      type4=type
      call efmaac ( fid4 , nom , dim4 , type4, desc, cret4 )
      cret=cret4
      return
      end