fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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.
psblas-3.0-maint
Salvatore Filippone 13 years ago
parent fe85dcc848
commit 0e4bccd1c2
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/tools/psb_cspins.f90
Unescape Escape 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)

4
base/tools/psb_dspins.f90
Unescape Escape 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)

4
base/tools/psb_sspins.f90
Unescape Escape 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)

4
base/tools/psb_zspins.f90
Unescape Escape 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)

Write Preview
Loading…
Cancel
Save