Commit 7b044c50 authored by Mulas, Giacomo's avatar Mulas, Giacomo
Browse files

fix brown paper bag error in lapack/blas iterative refinement

parent 7592b08b

src/libnptm/lapack_calls.cpp

+2 −2
Original line number Diff line number Diff line
@@ -156,7 +156,7 @@ void zinvert_and_refine(dcomplex **mat, np_int n, int &jer, int &maxiters, doubl 
    zaxpy_(&n, &dcone, id, &incx, arr_residual, &incy);

    double oldmax = 0;

    if (refinemode >0) {

      np_int maxindex = izamax_(&n, arr_residual, &incx);

      np_int maxindex = izamax_(&nn, arr_residual, &incx);

#ifdef USE_MKL

      oldmax = cabs(arr_residual[maxindex].real + I*arr_residual[maxindex].imag);

#else
@@ -173,7 +173,7 @@ void zinvert_and_refine(dcomplex **mat, np_int n, int &jer, int &maxiters, doubl 
      zgemm_(&transa, &transa, &n, &n, &n, &dcmone, arr, &n, arr_orig, &n, &dczero, arr_residual, &n);

      zaxpy_(&n, &dcone, id, &incx, arr_residual, &incy);

      if ((refinemode==2) || ((refinemode==1) && (iter == (maxiters-1)))) {

	np_int maxindex = izamax_(&n, arr_residual, &incx);

	np_int maxindex = izamax_(&nn, arr_residual, &incx);

#ifdef USE_MKL

	double newmax = cabs(arr_residual[maxindex].real + I*arr_residual[maxindex].imag);

#else