Sources Esope | Cast3M

cinvaq
C CINVAQ    SOURCE    KK2000    14/04/09    21:15:08     8027
 
      SUBROUTINE CINVAQ (SIG,N,Q)
      IMPLICIT INTEGER(I-N)
      integer n
      complex*16 sig(n),q,J2
      call C_Invari_J2(sig,n,J2)
      if (abs(j2).le.0.D0) then
        q=1.D-17
        return
      endif
      q=sqrt(CMPLX(3.D0)*J2)
      return
      end