Esope source files

   1 : C CINVAP    SOURCE    CHAT      05/01/12    22:02:39     5004           
   2 : 
   3 :       SUBROUTINE C_INVARI_P (SIG,N,P)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       integer n
   6 :       complex*16 sig(n),p
   7 :       p=-(sig(1)+sig(2)+sig(3))/3.D0
   8 :       return
   9 :       end
  10 :  
  11 :  
  12 :