Esope source files

   1 : C CINVJT    SOURCE    CHAT      05/01/12    22:03:04     5004           
   2 : 
   3 :       SUBROUTINE C_INVARI_J3_A_T2 (J2,J3,T)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       complex*16 t,J2,J3
   6 :       t=0.D0
   7 :       if (abs(J2).gt.1.D-17) then
   8 :          t=-3.D0*sqrt(3.D0)*J3/(2.D0*J2**1.5D0)
   9 :          t=-(0,1.D0)*log(t*(0,1.D0)+sqrt(1.D0-t*t))/3.D0
  10 :       endif
  11 :       return
  12 :       end
  13 :  
  14 :  
  15 :