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 :
© Cast3M 2003 - All rights reserved.
Disclaimer