C VCORLC    SOURCE    CHAT      05/01/13    04:04:22     5004
      SUBROUTINE VCORLC (VCORE,XYL,B)
C=======================================================================
C        EXTRAIRE DES COORDONNEES LOCALES
C    ENTREES
C     VCORE(3,3) = COORDONNEES GLOBALES DU COQ3
C     B(3,3)     = MATRICE DE PASSAGE
C    SORTIES
C     XYL(3,3)   = COORDONNEES LOCALES DU COQ3
C
C      EBERSOLT OCTOBRE 85
C=======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION VCORE(3,*),XYL(3,*),B(3,*)
      DATA ZERO/0.0D0/
      DO 100 J=1,3
      DO 100 I=1,3
      C=ZERO
      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