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

Fixed bugs in duplicate/regeneration handling.

Browse Source
This commit is contained in:
Salvatore Filippone
2006-04-18 09:20:17 +00:00
parent 70166e50e4
commit bd27d1a7bb
15 changed files with 829 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/tools/psb_dspasb.f90
+5 -6
View File
@@ -125,13 +125,12 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl)
endif
if (present(dupl)) then
if((dupl < psb_dupl_ovwrt_).or.(dupl > psb_dupl_err_)) then
write(0,*)'Wrong value for duplicate input in ASB...'
write(0,*)'Changing to default'
dupl_ = psb_dupl_def_
else
select case(dupl)
case (psb_dupl_ovwrt_,psb_dupl_add_,psb_dupl_err_)
dupl_ = dupl
endif
case default
dupl_ = psb_dupl_def_
end select
else
dupl_ = psb_dupl_def_
endif
src/tools/psb_zspasb.f90
+5 -7
View File
@@ -125,18 +125,16 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl)
endif
if (present(dupl)) then
if((dupl < psb_dupl_ovwrt_).or.(dupl > psb_dupl_err_)) then
write(0,*)'Wrong value for duplicate input in ASB...'
write(0,*)'Changing to default'
dupl_ = psb_dupl_def_
else
select case(dupl)
case (psb_dupl_ovwrt_,psb_dupl_add_,psb_dupl_err_)
dupl_ = dupl
endif
case default
dupl_ = psb_dupl_def_
end select
else
dupl_ = psb_dupl_def_
endif
a%m = n_row
a%k = n_col