Sources Esope | Cast3M

invarp
C INVARP    SOURCE    CHAT      05/01/13    00:42:21     5004
 
      SUBROUTINE INVARI_P (SIG,N,P)
      IMPLICIT INTEGER(I-N)
      integer n
      real*8 sig(n),p
      p=-(sig(1)+sig(2)+sig(3))/3.D0
      return
      end