fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-20 04:42:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
mlprec/mld_silut_fact.f90

Silly bug: calling DNRM2 on real data!
This commit is contained in:
Salvatore Filippone
2011-05-20 13:27:11 +00:00
parent 10e48562a4
commit 1f91926ff4
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_silut_fact.f90
+3 -3
View File
@@ -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)