Esope source files

   1 : C INVIJJ    SOURCE    CHAT      05/01/13    00:43:09     5004           
   2 : 
   3 :       SUBROUTINE INVARIANTESIJJ (SIG,NDIMS,SIGINV)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       integer ndims
   6 :       real*8    sig(ndims),siginv(3)
   6 :       call Invari_I1(sig,ndims,siginv(1))
   6 :       call Invari_J2(sig,ndims,siginv(2))
   6 :       call Invari_J3(sig,ndims,siginv(3))
   7 :       return
   8 :       end
   9 :  
  10 :  
  11 :