C CINVJT    SOURCE    CHAT      05/01/12    22:03:04     5004           

      SUBROUTINE C_INVARI_J3_A_T2 (J2,J3,T)
      IMPLICIT INTEGER(I-N)
      complex*16 t,J2,J3
      t=0.D0
      if (abs(J2).gt.1.D-17) then
         t=-3.D0*sqrt(3.D0)*J3/(2.D0*J2**1.5D0)
         t=-(0,1.D0)*log(t*(0,1.D0)+sqrt(1.D0-t*t))/3.D0
      endif
      return
      end