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

psblas3:

Browse Source 
base/modules/psb_error_mod.F90
 base/serial/impl/psb_c_coo_impl.f90
 base/serial/impl/psb_d_coo_impl.f90
 base/serial/impl/psb_s_coo_impl.f90
 base/serial/impl/psb_z_coo_impl.f90

Slight mod in error code.
Fix silly bug for COO in the case NZ=1
This commit is contained in:
Salvatore Filippone
2011-05-02 15:29:22 +00:00
parent ecb61a0509
commit 3440db4404
5 changed files with 30 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_coo_impl.f90
+7 -6
View File
@@ -2971,12 +2971,13 @@ subroutine psb_c_fix_coo(a,info,idir)
endif
nza = a%get_nzeros()
if (nza < 2) return
dupl_ = a%get_dupl()
call psb_c_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
if (info /= psb_success_) goto 9999
if (nza >= 2) then
dupl_ = a%get_dupl()
call psb_c_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
if (info /= psb_success_) goto 9999
else
i = nza
end if
call a%set_sorted()
call a%set_nzeros(i)
call a%set_asb()
base/serial/impl/psb_d_coo_impl.f90
+7 -6
View File
@@ -3017,12 +3017,13 @@ subroutine psb_d_fix_coo(a,info,idir)
endif
nza = a%get_nzeros()
if (nza < 2) return
dupl_ = a%get_dupl()
call psb_d_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
if (info /= psb_success_) goto 9999
if (nza >= 2) then
dupl_ = a%get_dupl()
call psb_d_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
if (info /= psb_success_) goto 9999
else
i = nza
end if
call a%set_sorted()
call a%set_nzeros(i)
call a%set_asb()
base/serial/impl/psb_s_coo_impl.f90
+7 -6
View File
@@ -2770,12 +2770,13 @@ subroutine psb_s_fix_coo(a,info,idir)
endif
nza = a%get_nzeros()
if (nza < 2) return
dupl_ = a%get_dupl()
call psb_s_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
if (info /= psb_success_) goto 9999
if (nza >= 2) then
dupl_ = a%get_dupl()
call psb_s_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
if (info /= psb_success_) goto 9999
else
i = nza
end if
call a%set_sorted()
call a%set_nzeros(i)
call a%set_asb()
base/serial/impl/psb_z_coo_impl.f90
+7 -6
View File
@@ -2970,12 +2970,13 @@ subroutine psb_z_fix_coo(a,info,idir)
endif
nza = a%get_nzeros()
if (nza < 2) return
dupl_ = a%get_dupl()
call psb_z_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
if (info /= psb_success_) goto 9999
if (nza >= 2) then
dupl_ = a%get_dupl()
call psb_z_fix_coo_inner(nza,dupl_,a%ia,a%ja,a%val,i,info,idir_)
if (info /= psb_success_) goto 9999
else
i = nza
end if
call a%set_sorted()
call a%set_nzeros(i)
call a%set_asb()