C EFPFLE4   SOURCE    CHAT      11/10/26    22:15:22     7176           
      subroutine efpfle4(fid,pflval,n,nom,cret,pflval4)
      integer fid,n,cret
      integer pflval(*)
      character *(*) nom
      integer*4 pflval4(*)
      integer*4 fid4,n4,cret4
      fid4=fid
      n4=n      
      do io=1,n
       pflval4(io)=pflval(io)
      enddo
      
      call efpfle(fid4,pflval4,n4,nom,cret4)
      n1=n+1
      do io=1,n
       pflval(n1-io)=pflval4(n1-io)
      enddo
      cret=cret4
      return
      end