Esope source files

   1 : C RSETX2    SOURCE    CHAT      05/01/13    03:07:56     5004           
   2 :       SUBROUTINE RSETX2(T,LECT,N,PROG,IPADL)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C*************************************************************************
   6 : C
   7 : C Ce SP met dans T(LECT(I)) PROG(I) pour I=1,N
   8 : C
   9 : C*************************************************************************
  10 :       REAL*8 T(*),PROG(N)
  11 :       DIMENSION LECT(N),IPADL(*)
  12 : 
  13 :       DO 1 I=1,N
  14 :       I1=LECT(I)
  15 :       I1=IPADL(I1)
  16 :       T(I1)=PROG(I)
  17 :  1    CONTINUE
  18 : 
  19 :       RETURN
  20 :       END
  21 :