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

Fix typo

Browse Source
This commit is contained in:
Salvatore Filippone
2022-05-24 15:36:03 +02:00
parent dfaabe9226
commit df8e947fb0
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_coo_impl.F90
+1 -1
View File
@@ -5904,7 +5904,7 @@ contains
integer(psb_lpk_), optional :: iren(:)
integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd
integer(psb_ipk_) :: debug_level, debug_unit, inza
character(len=20) :: name='coo_getrow'
character(len=20) :: name='lcoo_getrow'
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
base/serial/impl/psb_d_coo_impl.F90
+1 -1
View File
@@ -5904,7 +5904,7 @@ contains
integer(psb_lpk_), optional :: iren(:)
integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd
integer(psb_ipk_) :: debug_level, debug_unit, inza
character(len=20) :: name='coo_getrow'
character(len=20) :: name='lcoo_getrow'
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
base/serial/impl/psb_s_coo_impl.F90
+1 -1
View File
@@ -5904,7 +5904,7 @@ contains
integer(psb_lpk_), optional :: iren(:)
integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd
integer(psb_ipk_) :: debug_level, debug_unit, inza
character(len=20) :: name='coo_getrow'
character(len=20) :: name='lcoo_getrow'
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
base/serial/impl/psb_z_coo_impl.F90
+1 -1
View File
@@ -5904,7 +5904,7 @@ contains
integer(psb_lpk_), optional :: iren(:)
integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd
integer(psb_ipk_) :: debug_level, debug_unit, inza
character(len=20) :: name='coo_getrow'
character(len=20) :: name='lcoo_getrow'
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()