Esope source files

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