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

psblas3:

Browse Source 
psb_c_csc_impl.f90
 psb_d_csc_impl.f90
 psb_s_csc_impl.f90
 psb_z_csc_impl.f90

Missing variable init.
This commit is contained in:
Salvatore Filippone
2011-11-14 13:18:55 +00:00
parent 90dea8e5ec
commit c320e87582
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csc_impl.f90
+2 -2
View File
@@ -2630,8 +2630,8 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
logical :: rwshr_
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
integer :: debug_level, debug_unit
character(len=20) :: name='csc_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()
base/serial/impl/psb_d_csc_impl.f90
+2 -2
View File
@@ -2266,8 +2266,8 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
logical :: rwshr_
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
integer :: debug_level, debug_unit
character(len=20) :: name='csc_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()
base/serial/impl/psb_s_csc_impl.f90
+2 -2
View File
@@ -2265,8 +2265,8 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
logical :: rwshr_
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
integer :: debug_level, debug_unit
character(len=20) :: name='csc_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()
base/serial/impl/psb_z_csc_impl.f90
+2 -2
View File
@@ -2630,8 +2630,8 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
logical :: rwshr_
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name
integer :: debug_level, debug_unit
character(len=20) :: name='csc_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()