Télécharger ddrf.eso

Retour à la liste

Numérotation des lignes :

  1. C DDRF SOURCE CB215821 16/04/21 21:16:17 8920
  2. C DDRF SOURCE INSL 24/10/96
  3. SUBROUTINE DDRF(S2,PHI,V2)
  4. C
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. DIMENSION S2(3),V2(3),TE(3,3)
  8. C
  9. C ************************************
  10. C * DETERMINE LE VECTEUR DEFORMATION *
  11. C * DANS UN REPERE LIE A LA FISSURE *
  12. C ************************************
  13. C
  14. CALL ZERO(V2,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. TE(1,1)=A*A
  21. TE(1,2)=B*B
  22. TE(1,3)=A*B
  23. TE(2,1)=B*B
  24. TE(2,2)=A*A
  25. TE(2,3)=-1.D0*A*B
  26. TE(3,1)=-2.D0*A*B
  27. TE(3,2)= 2.D0*A*B
  28. TE(3,3)= A*A-B*B
  29. CALL BST(TE,S2,3,3,V2)
  30. *
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  

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