Télécharger invjat.eso

Retour à la liste

Numérotation des lignes :

  1. C INVJAT SOURCE CB215821 16/04/21 21:17:15 8920
  2.  
  3. SUBROUTINE INVARI_J3_A_T2 (J2,J3,T)
  4. IMPLICIT INTEGER(I-N)
  5. real*8 t,J2,J3
  6. t=0.D0
  7. if (J2.gt.0.D0) then
  8. t=-3.D0*SQRT(3.D0)*J3/(2.D0*J2**1.5D0)
  9. if (t.lt.-1.D0) t=-1.D0
  10. if (t.gt.1.D0) t= 1.D0
  11. t=asin(t)/3.D0
  12. endif
  13. return
  14. end
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  

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