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/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/modules/psb_error_mod.F90
+2 -1
View File
@@ -314,7 +314,8 @@ contains
write(psb_err_unit,'("input argument n. ",i0," has an invalid value")')i_e_d(1)
write(psb_err_unit,'("current value is ",a)')a_e_d(2:2)
case(psb_err_iarg_not_gtia_ii_)
write(psb_err_unit,'("input argument n. ",i0," must be equal or greater than input argument n. ",i0)') &
write(psb_err_unit,&
& '("input argument n. ",i0," must be equal or greater than input argument n. ",i0)') &
& i_e_d(1), i_e_d(3)
write(psb_err_unit,'("current values are ",i0," < ",i0)')&
& i_e_d(2),i_e_d(5)
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()