Sources Esope | Cast3M

cinvap
C CINVAP    SOURCE    KK2000    14/04/09    21:15:07     8027
 
      SUBROUTINE CINVAP (SIG,N,P)
      IMPLICIT INTEGER(I-N)
      integer n
      complex*16 sig(n),p
      p=-(sig(1)+sig(2)+sig(3))/CMPLX(3.D0)
      return
      end