fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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.
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 90dea8e5ec
commit c320e87582
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/serial/impl/psb_c_csc_impl.f90
Unescape Escape View File

@ -2630,8 +2630,8 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
logical :: rwshr_ logical :: rwshr_
Integer :: nza, nr, i,j,irw, err_act, nc, icl Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8 Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit integer :: debug_level, debug_unit
character(len=20) :: name character(len=20) :: name='csc_from_coo'
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit() debug_unit = psb_get_debug_unit()

4
base/serial/impl/psb_d_csc_impl.f90
Unescape Escape View File

@ -2266,8 +2266,8 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
logical :: rwshr_ logical :: rwshr_
Integer :: nza, nr, i,j,irw, err_act, nc, icl Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8 Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit integer :: debug_level, debug_unit
character(len=20) :: name character(len=20) :: name='csc_from_coo'
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit() debug_unit = psb_get_debug_unit()

4
base/serial/impl/psb_s_csc_impl.f90
Unescape Escape View File

@ -2265,8 +2265,8 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
logical :: rwshr_ logical :: rwshr_
Integer :: nza, nr, i,j,irw, err_act, nc, icl Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8 Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit integer :: debug_level, debug_unit
character(len=20) :: name character(len=20) :: name='csc_from_coo'
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit() debug_unit = psb_get_debug_unit()

4
base/serial/impl/psb_z_csc_impl.f90
Unescape Escape View File

@ -2630,8 +2630,8 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
logical :: rwshr_ logical :: rwshr_
Integer :: nza, nr, i,j,irw, err_act, nc, icl Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8 Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit integer :: debug_level, debug_unit
character(len=20) :: name character(len=20) :: name='csc_from_coo'
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit() debug_unit = psb_get_debug_unit()

Write Preview
Loading…
Cancel
Save