C CDRG SOURCE CB215821 16/04/21 21:15:38 8920 C CDRG SOURCE INSL 24/10/96 SUBROUTINE CDRG(V1,PHI,S1) C IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) DIMENSION S1(3),V1(3),TS1(3,3) C C ************************************ C * DETERMINE LE VECTEUR CONTRAINTE * C * DANS LE REPERE LOCAL ELEMENT * C ************************************ C CALL ZERO(S1,3,1) PI=4.D0*ATAN(1.D0) PHIC=(PHI+90.D0)*PI/180.D0 A=COS(PHIC) B=SIN(PHIC) * TS1(1,1)=A*A TS1(1,2)=B*B TS1(1,3)=-2.D0*A*B TS1(2,1)=B*B TS1(2,2)=A*A TS1(2,3)=2.D0*A*B TS1(3,1)=A*B TS1(3,2)=-1.D0*B*A TS1(3,3)=A*A-B*B CALL BST(TS1,V1,3,3,S1) C RETURN END