Sources Esope | Cast3M

invjat
C INVJAT    SOURCE    CB215821  16/04/21    21:17:15     8920
 
      SUBROUTINE INVARI_J3_A_T2 (J2,J3,T)
      IMPLICIT INTEGER(I-N)
      real*8 t,J2,J3
      t=0.D0
      if (J2.gt.0.D0) then
         t=-3.D0*SQRT(3.D0)*J3/(2.D0*J2**1.5D0)
         if (t.lt.-1.D0) t=-1.D0
         if (t.gt.1.D0)  t= 1.D0
         t=asin(t)/3.D0
      endif
      return
      end