C CINVI1    SOURCE    CHAT      05/01/12    22:02:50     5004           
CCC
C **********************************************************************
CCC
      SUBROUTINE C_INVARI_I1 (SIG,N,I1)
      IMPLICIT INTEGER(I-N)
      integer n
      complex*16 sig(n),I1
      I1=sig(1)+sig(2)+sig(3)
      return
      end