C RSETX2    SOURCE    CHAT      05/01/13    03:07:56     5004           
      SUBROUTINE RSETX2(T,LECT,N,PROG,IPADL)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C*************************************************************************
C
C Ce SP met dans T(LECT(I)) PROG(I) pour I=1,N
C
C*************************************************************************
      REAL*8 T(*),PROG(N)
      DIMENSION LECT(N),IPADL(*)

      DO 1 I=1,N
      I1=LECT(I)
      I1=IPADL(I1)
      T(I1)=PROG(I)
 1    CONTINUE

      RETURN
      END