Télécharger rsetx2.eso

Retour à la liste

Numérotation des lignes :

rsetx2
  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.  
  22.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales