Télécharger ddrg.eso

Retour à la liste

Numérotation des lignes :

  1. C DDRG SOURCE CB215821 16/04/21 21:16:18 8920
  2. C DDRG SOURCE INSL 24/10/96
  3. SUBROUTINE DDRG(V2,PHI,S2)
  4. C
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. DIMENSION S2(3),V2(3),TE1(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(S2,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. TE1(1,1)=A*A
  21. TE1(1,2)=B*B
  22. TE1(1,3)=-1.D0*A*B
  23. TE1(2,1)=B*B
  24. TE1(2,2)=A*A
  25. TE1(2,3)=A*B
  26. TE1(3,1)= 2.D0*A*B
  27. TE1(3,2)=-2.D0*A*B
  28. TE1(3,3)= A*A-B*B
  29. CALL BST(TE1,V2,3,3,S2)
  30. *
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  

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