C DDRF SOURCE CB215821 16/04/21 21:16:17 8920 C DDRF SOURCE INSL 24/10/96 SUBROUTINE DDRF(S2,PHI,V2) C IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) DIMENSION S2(3),V2(3),TE(3,3) C C ************************************ C * DETERMINE LE VECTEUR DEFORMATION * C * DANS UN REPERE LIE A LA FISSURE * C ************************************ C CALL ZERO(V2,3,1) PI=4.D0*ATAN(1.D0) PHIC=(PHI+90.D0)*PI/180.D0 A=COS(PHIC) B=SIN(PHIC) * TE(1,1)=A*A TE(1,2)=B*B TE(1,3)=A*B TE(2,1)=B*B TE(2,2)=A*A TE(2,3)=-1.D0*A*B TE(3,1)=-2.D0*A*B TE(3,2)= 2.D0*A*B TE(3,3)= A*A-B*B CALL BST(TE,S2,3,3,V2) * RETURN END