Télécharger vcorl1.eso

Retour à la liste

Numérotation des lignes :

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

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