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

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

      RETURN
      END