Esope source files

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