C CINVIJ SOURCE CHAT 05/01/12 22:02:53 5004 SUBROUTINE C_INVARIANTESIJJ (SIG,NDIMS,SIGINV) IMPLICIT INTEGER(I-N) integer ndims complex*16 sig(ndims),siginv(3) call C_Invari_I1(sig,ndims,siginv(1)) call C_Invari_J2(sig,ndims,siginv(2)) call C_Invari_J3(sig,ndims,siginv(3)) return end