C VCORL1    SOURCE    CB215821  26/08/24    21:18:49     12622          
      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 201 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
  201 CONTINUE
      RETURN
      END