Sources Esope | Cast3M

vcorl1
C VCORL1    SOURCE    CHAT      05/01/13    04:04:19     5004
      SUBROUTINE VCORL1(VCORE,XYL,B,NBNN)
C=======================================================================
C        EXTRAIRE DES COORDONNEES LOCALES
C    ENTREES
C VCORE(3,NBNN)  = COORDONNEES GLOBALES DU COQ3 DKT COQ4 ...
C     B(3,3)     = MATRICE DE PASSAGE
C     NBNN       = NOMBRE DE NOEUDS DE 1 A 3 4 5 6 7 8  ...
C    SORTIES
C XYL(3,NBNN)    = COORDONNEES LOCALES DU COQ3  DKT COQ4 ...
C                  PREMIER NOEUD = 0 0 0
C      EBERSOLT SEPTEMBRE 86
C=======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      PARAMETER(XZER=0.D0)
      DIMENSION VCORE(3,*),XYL(3,*),B(3,*)
      DO 100 J=1,NBNN
      DO 100 I=1,3
      C=XZER
      DO 200 K=1,3
      C=C+B(I,K)*(VCORE(K,J)-VCORE(K,1))
200   CONTINUE
      XYL(I,J)=C
100   CONTINUE
      RETURN
      END