Esope source files

   1 : C CINVI1    SOURCE    CHAT      05/01/12    22:02:50     5004           
   2 : CCC
   3 : C **********************************************************************
   4 : CCC
   5 :       SUBROUTINE C_INVARI_I1 (SIG,N,I1)
   6 :       IMPLICIT INTEGER(I-N)
   7 :       integer n
   8 :       complex*16 sig(n),I1
   9 :       I1=sig(1)+sig(2)+sig(3)
  10 :       return
  11 :       end
  12 :  
  13 :  
  14 :