Esope source files

   1 : C EFPFLL4   SOURCE    CHAT      11/10/26    22:15:23     7176           
   2 :       subroutine efpfll4(fid,pflval,nom,cret,pflval4,nva)
   3 :       integer fid,cret
   4 :       integer pflval(*),nva
   5 :       character *(*) nom
   6 :       integer*4 fid4,cret4
   7 :       integer*4 pflval4(*)
   8 :       fid4=fid
   8 :       call efpfll(fid4,pflval4,nom,cret4)
   9 :       nva1=nva+1
  10 :       do io=1,nva
  11 :          pflval(nva1-io)=pflval4(nva1-io)
  12 :       enddo
  13 :       cret=cret4
  14 :       return
  15 :       end
  16 :