Esope source files

   1 : C EFPFLE4   SOURCE    CHAT      11/10/26    22:15:22     7176           
   2 :       subroutine efpfle4(fid,pflval,n,nom,cret,pflval4)
   3 :       integer fid,n,cret
   4 :       integer pflval(*)
   5 :       character *(*) nom
   6 :       integer*4 pflval4(*)
   7 :       integer*4 fid4,n4,cret4
   8 :       fid4=fid
   9 :       n4=n      
  10 :       do io=1,n
  11 :        pflval4(io)=pflval(io)
  12 :       enddo
  13 :       
  13 :       call efpfle(fid4,pflval4,n4,nom,cret4)
  14 :       n1=n+1
  15 :       do io=1,n
  16 :        pflval(n1-io)=pflval4(n1-io)
  17 :       enddo
  18 :       cret=cret4
  19 :       return
  20 :       end
  21 :       
  22 :