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

psblas3:

Browse Source 
base/serial/impl/psb_c_csc_impl.f90
 base/serial/impl/psb_d_csc_impl.f90
 base/serial/impl/psb_s_csc_impl.f90
 base/serial/impl/psb_z_csc_impl.f90

Uninitialized variable caught by Cray compiler.
This commit is contained in:
Salvatore Filippone
2012-01-09 18:01:17 +00:00
parent 1b6d6434da
commit 7861390e24
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csc_impl.f90
+1 -1
View File
@@ -2267,7 +2267,7 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name='c_mv_csc_from_coo'ì
character(len=20) :: name='c_mv_csc_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()
base/serial/impl/psb_d_csc_impl.f90
+1 -1
View File
@@ -2267,7 +2267,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name='d_mv_csc_from_coo'ì
character(len=20) :: name='d_mv_csc_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()
base/serial/impl/psb_s_csc_impl.f90
+1 -1
View File
@@ -2267,7 +2267,7 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name='s_mv_csc_from_coo'ì
character(len=20) :: name='s_mv_csc_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()
base/serial/impl/psb_z_csc_impl.f90
+1 -1
View File
@@ -2267,7 +2267,7 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
Integer :: nza, nr, i,j,irw, err_act, nc, icl
Integer, Parameter :: maxtry=8
integer :: debug_level, debug_unit
character(len=20) :: name='z_mv_csc_from_coo'ì
character(len=20) :: name='z_mv_csc_from_coo'
info = psb_success_
debug_unit = psb_get_debug_unit()