Esope source files

   1 : C INVJAT    SOURCE    CHAT      05/01/13    00:43:12     5004           
   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*dsqrt(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 :