Sources Esope | Cast3M

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