Esope source files

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