Télécharger invart.eso

Retour à la liste

Numérotation des lignes :

  1. C INVART SOURCE CB215821 16/04/21 21:17:14 8920
  2.  
  3. SUBROUTINE INVARI_T (SIG,N,T)
  4. IMPLICIT INTEGER(I-N)
  5. integer n
  6. real*8 sig(n),t,J2,J3
  7. t=0.D0
  8. call Invari_J2(sig,n,J2)
  9. if (J2.gt.0.D0) then
  10. call Invari_J3(sig,n,J3)
  11. t=3.D0*SQRT(3.D0)*J3/(2.D0*J2**1.5D0)
  12. if (t.lt.-1.D0) t=-1.D0
  13. if (t.gt.1.D0) t=1.D0
  14. t=acos(t)/3.D0
  15. endif
  16. return
  17. end
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  

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