Télécharger cdrf.eso

Retour à la liste

Numérotation des lignes :

  1. C CDRF SOURCE CB215821 16/04/21 21:15:38 8920
  2. C CDRF SOURCE INSL 24/10/96
  3. SUBROUTINE CDRF(S1,PHI,V1)
  4. C
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. DIMENSION S1(3),V1(3),TS(3,3)
  8. C
  9. C ************************************
  10. C * DETERMINE LE VECTEUR CONTRAINTE *
  11. C * DANS UN REPERE LIE A LA FISSURE *
  12. C ************************************
  13. C
  14. CALL ZERO(V1,3,1)
  15. PI=4.D0*ATAN(1.D0)
  16. PHIC=(PHI+90.D0)*PI/180.D0
  17. A=COS(PHIC)
  18. B=SIN(PHIC)
  19. *
  20. TS(1,1)=A*A
  21. TS(1,2)=B*B
  22. TS(1,3)=2.D0*A*B
  23. TS(2,1)=B*B
  24. TS(2,2)=A*A
  25. TS(2,3)=-2.D0*A*B
  26. TS(3,1)=-1.D0*A*B
  27. TS(3,2)=B*A
  28. TS(3,3)=A*A-B*B
  29. CALL BST(TS,S1,3,3,V1)
  30. C
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales