Télécharger vcorlc.eso

Retour à la liste

Numérotation des lignes :

  1. C VCORLC SOURCE CHAT 05/01/13 04:04:22 5004
  2. SUBROUTINE VCORLC (VCORE,XYL,B)
  3. C=======================================================================
  4. C EXTRAIRE DES COORDONNEES LOCALES
  5. C ENTREES
  6. C VCORE(3,3) = COORDONNEES GLOBALES DU COQ3
  7. C B(3,3) = MATRICE DE PASSAGE
  8. C SORTIES
  9. C XYL(3,3) = COORDONNEES LOCALES DU COQ3
  10. C
  11. C EBERSOLT OCTOBRE 85
  12. C=======================================================================
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. DIMENSION VCORE(3,*),XYL(3,*),B(3,*)
  16. DATA ZERO/0.0D0/
  17. DO 100 J=1,3
  18. DO 100 I=1,3
  19. C=ZERO
  20. DO 200 K=1,3
  21. C=C+B(I,K)*(VCORE(K,J)-VCORE(K,1))
  22. 200 CONTINUE
  23. XYL(I,J)=C
  24. 100 CONTINUE
  25. RETURN
  26. END
  27.  
  28.  

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