Télécharger cdrg.eso

Retour à la liste

Numérotation des lignes :

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

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