C INVJAT    SOURCE    CHAT      05/01/13    00:43:12     5004           

      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*dsqrt(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