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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2008-05-21 11:58:22 +00:00
parent f184d30b0a
commit 959a184c24
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_spmat_type.f90
+4 -3
View File
@@ -339,6 +339,7 @@ contains
Subroutine psb_dspreinit(a,info,clear)
use psb_string_mod
Implicit None
!....Parameters...
@@ -366,7 +367,7 @@ contains
if (clear_) a%aspk(:) = dzero
if (psb_sp_getifld(psb_upd_,a,info)==psb_upd_perm_) then
if(a%fida(1:3) == 'JAD') then
if(psb_toupper(a%fida(1:3)) == 'JAD') then
a%ia1(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0
else
a%ia2(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0
@@ -890,7 +891,7 @@ contains
end subroutine psb_nullify_zsp
Subroutine psb_zspreinit(a,info,clear)
use psb_string_mod
Implicit None
!....Parameters...
@@ -917,7 +918,7 @@ contains
if (clear_) a%aspk(:) = zzero
if (psb_sp_getifld(psb_upd_,a,info)==psb_upd_perm_) then
if(a%fida(1:3) == 'JAD') then
if(psb_toupper(a%fida(1:3)) == 'JAD') then
a%ia1(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0
else
a%ia2(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0