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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2006-06-16 14:35:43 +00:00
parent f8b86fb82d
commit 4a4ad11ca4
3 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Changelog
+1 -2
View File
@@ -1,8 +1,7 @@
Changelog. A lot less detailed than usual, at least for past
history.
2006/06/14: Defined ExtRow, probably to be renamed to GetRow.
This way we may close the mat objects.
2006/06/16: Defined GetRow. This way we may close the mat objects.
Next we will rewrite SMMP to only make use of GetRow,
not to rely on CSR storage format.
README
+1 -2
View File
@@ -120,10 +120,9 @@ Alfredo Buttari
The MD2P4 multilevel parallel preconditioners contained in directory
src/prec were developed with the contribution of:
Pasqua D'Ambra
Daniela Di Serafino
They are still in an early experimental stage, use at your own risk!
Credits for version 1.0:
Salvatore Filippone
test/Fileread/mat_dist.f90
+6 -6
View File
@@ -250,7 +250,7 @@ contains
ll = 0
do i= i_count, j_count-1
call psb_sp_extrow(i,a_glob,nz,&
call psb_sp_getrow(i,a_glob,nz,&
& irow(ll+1:),icol(ll+1:),val(ll+1:), info)
if (info /= 0) then
if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then
@@ -338,7 +338,7 @@ contains
ll = 0
do i= i_count, i_count
call psb_sp_extrow(i,a_glob,nz,&
call psb_sp_getrow(i,a_glob,nz,&
& irow(ll+1:),icol(ll+1:),val(ll+1:), info)
if (info /= 0) then
if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then
@@ -672,7 +672,7 @@ contains
ll = 0
do i= i_count, j_count-1
call psb_sp_extrow(i,a_glob,nz,&
call psb_sp_getrow(i,a_glob,nz,&
& irow(ll+1:),icol(ll+1:),val(ll+1:), info)
if (info /= 0) then
if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then
@@ -1025,7 +1025,7 @@ contains
ll = 0
do i= i_count, j_count-1
call psb_sp_extrow(i,a_glob,nz,&
call psb_sp_getrow(i,a_glob,nz,&
& irow(ll+1:),icol(ll+1:),val(ll+1:), info)
if (info /= 0) then
if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then
@@ -1113,7 +1113,7 @@ contains
ll = 0
do i= i_count, i_count
call psb_sp_extrow(i,a_glob,nz,&
call psb_sp_getrow(i,a_glob,nz,&
& irow(ll+1:),icol(ll+1:),val(ll+1:), info)
if (info /= 0) then
if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then
@@ -1445,7 +1445,7 @@ contains
if (iam == root) then
ll = 0
do i= i_count, j_count-1
call psb_sp_extrow(i,a_glob,nz,&
call psb_sp_getrow(i,a_glob,nz,&
& irow(ll+1:),icol(ll+1:),val(ll+1:), info)
if (info /= 0) then
if (nz >min(size(irow(ll+1:)),size(icol(ll+1:)),size(val(ll+1:)))) then