Télécharger la plaquette Cast3M


fr en

Télécharger vcorlc.eso

Retour à la liste

Numérotation des lignes : 

vcorlc

  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