Sources Esope | Cast3M

invii1
C INVII1    SOURCE    CHAT      05/01/13    00:43:03     5004
c
c   Nucleo de calculo de invariantes,
c   matrices de elasticidad lineal para pequeñas deformaciones,
c   y calculos asociados a descomposicion LU
c
CCC
C **********************************************************************
CCC
      SUBROUTINE INVARI_I1 (SIG,N,I1)
      IMPLICIT INTEGER(I-N)
      integer n
      real*8 sig(n),I1
      I1=sig(1)+sig(2)+sig(3)
      return
      end