1 : C CHREPE SOURCE CHAT 05/01/12 22:01:58 5004 2 : SUBROUTINE CHREPE(CO,SI,ADON,FDON) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : DIMENSION ADON(*),FDON(*) 6 : C ------------------------------------------------------------- 7 : C CHANGEMENT DE REPERE (CONTRAINTES OU DEFORMATIONS) 8 : C ------------------------------------------------------------- 9 : C 10 : FDON(1)=CO*CO*ADON(1)+SI*SI*ADON(2)+2.D0*CO*SI*ADON(4) 11 : FDON(2)=SI*SI*ADON(1)+CO*CO*ADON(2)-2.D0*CO*SI*ADON(4) 12 : FDON(3)=ADON(3) 13 : FDON(4)=SI*CO*(-ADON(1)+ADON(2))+(CO*CO-SI*SI)*ADON(4) 14 : END 15 :
© Cast3M 2003 - All rights reserved.
Disclaimer