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