Télécharger rempms.eso

Retour à la liste

Numérotation des lignes :

  1. C REMPMS SOURCE CHAT 05/01/13 02:50:09 5004
  2. SUBROUTINE REMPMS(REL,LRE,RE)
  3. C====================================================================
  4. C
  5. C TRANSVASE REL (LRE,LRE) MATRICE DE RIGIDITE
  6. C INFERIEURE DANS RE(LRE,LRE)
  7. C
  8. C IDEM REMPMT SANS A PRIORI SUR LA MATRICE
  9. C
  10. C====================================================================
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8(A-H,O-Z)
  13. DIMENSION REL(LRE,*),RE(LRE,*)
  14. DO 100 IA=1,LRE
  15. DO 100 IB=1,LRE
  16. RE(IA,IB)=REL(IA,IB)
  17. 100 CONTINUE
  18. RETURN
  19. END
  20.  
  21.  
  22.  

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