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

psblas3:

Browse Source 
base/tools/psb_cspins.f90
 base/tools/psb_dspins.f90
 base/tools/psb_sspins.f90
 base/tools/psb_zspins.f90


Fixed to use method form of is_asb on desc.
This commit is contained in:
Salvatore Filippone
2012-04-18 16:12:19 +00:00
parent fe85dcc848
commit 0e4bccd1c2
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cspins.f90
+2 -2
View File
@@ -119,7 +119,7 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
local_ = .false.
endif
if (psb_is_bld_desc(desc_a)) then
if (desc_a%is_bld()) then
if (local_) then
info = psb_err_invalid_a_and_cd_state_
@@ -158,7 +158,7 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
end if
endif
else if (psb_is_asb_desc(desc_a)) then
else if (desc_a%is_asb()) then
if (local_) then
call a%csput(nz,ia,ja,val,ione,nrow,ione,ncol,info)
base/tools/psb_dspins.f90
+2 -2
View File
@@ -119,7 +119,7 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
local_ = .false.
endif
if (psb_is_bld_desc(desc_a)) then
if (desc_a%is_bld()) then
if (local_) then
info = psb_err_invalid_a_and_cd_state_
@@ -158,7 +158,7 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
end if
endif
else if (psb_is_asb_desc(desc_a)) then
else if (desc_a%is_asb()) then
if (local_) then
call a%csput(nz,ia,ja,val,ione,nrow,ione,ncol,info)
base/tools/psb_sspins.f90
+2 -2
View File
@@ -119,7 +119,7 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
local_ = .false.
endif
if (psb_is_bld_desc(desc_a)) then
if (desc_a%is_bld()) then
if (local_) then
info = psb_err_invalid_a_and_cd_state_
@@ -158,7 +158,7 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
end if
endif
else if (psb_is_asb_desc(desc_a)) then
else if (desc_a%is_asb()) then
if (local_) then
call a%csput(nz,ia,ja,val,ione,nrow,ione,ncol,info)
base/tools/psb_zspins.f90
+2 -2
View File
@@ -119,7 +119,7 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
local_ = .false.
endif
if (psb_is_bld_desc(desc_a)) then
if (desc_a%is_bld()) then
if (local_) then
info = psb_err_invalid_a_and_cd_state_
@@ -158,7 +158,7 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local)
end if
endif
else if (psb_is_asb_desc(desc_a)) then
else if (desc_a%is_asb()) then
if (local_) then
call a%csput(nz,ia,ja,val,ione,nrow,ione,ncol,info)