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

psblas3:

Browse Source 
base/modules/Makefile
 base/modules/psb_c_linmap_mod.f90
 base/modules/psb_d_linmap_mod.f90
 base/modules/psb_desc_type.f90
 base/modules/psb_linmap_mod.f90
 base/modules/psb_linmap_type_mod.f90
 base/modules/psb_s_linmap_mod.f90
 base/modules/psb_z_linmap_mod.f90
 base/serial/impl/psb_d_csc_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/tools/psb_c_map.f90
 base/tools/psb_d_map.f90
 base/tools/psb_s_map.f90
 base/tools/psb_z_map.f90

Map fixes.
This commit is contained in:
Salvatore Filippone
2011-11-26 18:58:34 +00:00
parent 4352c62788
commit 09b7d94bd3
14 changed files with 505 additions and 893 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_d_csc_impl.f90
+1 -1
View File
@@ -2309,7 +2309,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
if (i >= icl) exit inner
if (i > nc) then
write(debug_unit,*) trim(name),&
& 'Strange situation: i>nr ',i,nc,j,nza,icl
& ' Strange situation: i>nr ',i,nc,j,nza,icl
exit outer
end if
a%icp(i+1) = a%icp(i)
base/serial/impl/psb_d_csr_impl.f90
+1 -1
View File
@@ -2609,7 +2609,7 @@ subroutine psb_d_mv_csr_from_coo(a,b,info)
Integer :: nza, nr, i,j,irw, err_act, nc
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name='mv_from_coo'
character(len=20) :: name='csr_mv_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()