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

Fixed init_heap in copyin.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-12-04 10:17:05 +00:00
parent aaa7acf94b
commit 8626133d04
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_diluk_fct.f90
+1 -1
View File
@@ -265,6 +265,7 @@ contains
if (psb_get_errstatus() /= 0) return
info=0
call psb_erractionsave(err_act)
call psb_init_heap(heap,info)
!
! Here we take a fast shortcut if possible, otherwise
@@ -272,7 +273,6 @@ contains
! anything.
!
if (toupper(a%fida)=='CSR') then
call psb_init_heap(heap,info)
do j = a%ia2(i), a%ia2(i+1) - 1
k = a%ia1(j)
mlprec/mld_dilut_fct.f90
+1 -1
View File
@@ -268,6 +268,7 @@ contains
if (psb_get_errstatus() /= 0) return
info=0
call psb_erractionsave(err_act)
call psb_init_heap(heap,info)
!
! nrmi is the norm of the current sparse row.
@@ -282,7 +283,6 @@ contains
dmaxup = dzero
nrmi = dzero
if (toupper(a%fida)=='CSR') then
call psb_init_heap(heap,info)
do j = a%ia2(i), a%ia2(i+1) - 1
k = a%ia1(j)
if ((jmin<=k).and.(k<=jmax)) then
mlprec/mld_ziluk_fct.f90
+1 -1
View File
@@ -264,6 +264,7 @@ contains
if (psb_get_errstatus() /= 0) return
info=0
call psb_erractionsave(err_act)
call psb_init_heap(heap,info)
!
! Here we take a fast shortcut if possible, otherwise
@@ -271,7 +272,6 @@ contains
! anything.
!
if (toupper(a%fida)=='CSR') then
call psb_init_heap(heap,info)
do j = a%ia2(i), a%ia2(i+1) - 1
k = a%ia1(j)
mlprec/mld_zilut_fct.f90
+1 -1
View File
@@ -269,6 +269,7 @@ contains
if (psb_get_errstatus() /= 0) return
info=0
call psb_erractionsave(err_act)
call psb_init_heap(heap,info)
!
! nrmi is the norm of the current sparse row.
@@ -283,7 +284,6 @@ contains
dmaxup = dzero
nrmi = dzero
if (toupper(a%fida)=='CSR') then
call psb_init_heap(heap,info)
do j = a%ia2(i), a%ia2(i+1) - 1
k = a%ia1(j)
if ((jmin<=k).and.(k<=jmax)) then