C EFPFLL4   SOURCE    CHAT      11/10/26    22:15:23     7176           
      subroutine efpfll4(fid,pflval,nom,cret,pflval4,nva)
      integer fid,cret
      integer pflval(*),nva
      character *(*) nom
      integer*4 fid4,cret4
      integer*4 pflval4(*)
      fid4=fid
      call efpfll(fid4,pflval4,nom,cret4)
      nva1=nva+1
      do io=1,nva
         pflval(nva1-io)=pflval4(nva1-io)
      enddo
      cret=cret4
      return
      end