From 1f91926ff4bc98dd028c1101ef78d3ca9d79b070 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 20 May 2011 13:27:11 +0000 Subject: [PATCH] mld2p4-2: mlprec/mld_silut_fact.f90 Silly bug: calling DNRM2 on real data! --- mlprec/mld_silut_fact.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mlprec/mld_silut_fact.f90 b/mlprec/mld_silut_fact.f90 index a2f94639..c43dc936 100644 --- a/mlprec/mld_silut_fact.f90 +++ b/mlprec/mld_silut_fact.f90 @@ -496,7 +496,7 @@ contains integer :: k,j,irb,kin,nz integer, parameter :: nrb=40 real(psb_spk_) :: dmaxup - real(psb_spk_), external :: dnrm2 + real(psb_spk_), external :: snrm2 character(len=20), parameter :: name='mld_silut_factint' if (psb_get_errstatus() /= 0) return @@ -552,7 +552,7 @@ contains end if nz = aa%irp(i+1) - aa%irp(i) - nrmi = dnrm2(nz,aa%val(aa%irp(i)),ione) + nrmi = snrm2(nz,aa%val(aa%irp(i)),ione) class default @@ -599,7 +599,7 @@ contains ktrw = ktrw + 1 enddo nz = ktrw - kin - nrmi = dnrm2(nz,trw%val(kin),ione) + nrmi = snrm2(nz,trw%val(kin),ione) end select call psb_erractionrestore(err_act)