SUBROUTINE SUB3(N,Z,ZS)
      INTEGER N
      COMPLEX*16 Z(0:N-1),ZS
      ZS=0
      DO I=0,N-1
        ZS=ZS+Z(I)
      END DO
      END