C EFCOOL4   SOURCE    CHAT      11/10/26    22:15:07     7176           
      subroutine efcool4(fid, maa, mdim, coo, modswt,
     1                  numco,pfltab,psize, 
     1                  typrep,nom,unit,cret,pfltab4,npfl0)

      character *(*) maa
      real*8 coo(*)
      integer mdim
      integer fid,typrep,cret,modswt
      integer pfltab(*),psize, numco,npfl0
      character *(*) nom, unit
      integer*4 mdim4
      integer*4 fid4,typrep4,cret4,modswt4
      integer*4 pfltab4(*),psize4, numco4
      mdim4=mdim
      fid4=fid
      typrep4=typrep
      modswt4=modswt
      psize4=psize
      numco4=numco
      do i=1,npfl0
        pfltab4(i)=pfltab(i)
      enddo
      call efcool(fid4, maa, mdim4, coo, modswt4,
     1                  numco4,pfltab4,psize4, 
     1                  typrep4,nom,unit,cret4)
      npfl01=npfl0+1
      do i=1,npfl0
        pfltab(npfl01-i)=pfltab4(npfl01-i)
      enddo
      typrep=typrep4
      cret=cret4
      return
      end