dzsum1 function

double dzsum1(
  1. int N,
  2. Array<Complex> CX_,
  3. int INCX
)

Implementation

double dzsum1(final int N, final Array<Complex> CX_, final int INCX) {
  final CX = CX_.having();
  int I, NINCX;
  double STEMP;

  STEMP = 0.0;
  if (N <= 0) return 0;
  if (INCX != 1) {
    // CODE FOR INCREMENT NOT EQUAL TO 1
    NINCX = N * INCX;
    for (I = 1; I <= NINCX; I += INCX) {
      STEMP += CX[I].abs();
    }
    return STEMP;
  }

  // CODE FOR INCREMENT EQUAL TO 1
  for (I = 1; I <= N; I++) {
    STEMP += CX[I].abs();
  }
  return STEMP;
}