C EFCOOE4   SOURCE    CHAT      11/10/26    22:15:06     7176           
       subroutine efcooe4(fid, maa, mdim, coo, modswt,
     &                  n,typrep,nom,unit,cret)

      character *(*) maa
      real*8 coo(*)
      integer fid,typrep,mdim
      integer n,cret,modswt
      character *(*) nom, unit
      integer*4 fid4,typrep4,mdim4
      integer*4 n4,cret4,modswt4
      fid4=fid
      typrep4=typrep
      mdim4=mdim
      n4=n
      modswt4=modswt
      call efcooe(fid4, maa, mdim4, coo, modswt4,
     &                  n4,typrep4,nom,unit,cret4)
      cret=cret4
      return
      end