Télécharger rempmt.eso

Retour à la liste

Numérotation des lignes :

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

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