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.f03
 psb_c_csr_impl.f03
 psb_d_csc_impl.f03
 psb_d_csr_impl.f03
 psb_s_csc_impl.f03
 psb_s_csr_impl.f03
 psb_z_csc_impl.f03
 psb_z_csr_impl.f03

Fixed  missing initialization of debug_unit in some methods.
psblas3-type-indexed
Salvatore Filippone 14 years ago
parent 723200a4e3
commit b4366289ce
8 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File

3
base/serial/f03/psb_c_csc_impl.f03
Unescape Escape View File

@ -2371,6 +2371,9 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
character(len=20) :: name character(len=20) :: name
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
call b%fix(info, idir=1) call b%fix(info, idir=1)
if (info /= psb_success_) return if (info /= psb_success_) return

3
base/serial/f03/psb_c_csr_impl.f03
Unescape Escape View File

@ -2535,6 +2535,9 @@ subroutine psb_c_mv_csr_from_coo(a,b,info)
character(len=20) :: name character(len=20) :: name
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
call b%fix(info) call b%fix(info)
if (info /= psb_success_) return if (info /= psb_success_) return

3
base/serial/f03/psb_d_csc_impl.f03
Unescape Escape View File

@ -2244,6 +2244,9 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
character(len=20) :: name character(len=20) :: name
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
call b%fix(info, idir=1) call b%fix(info, idir=1)
if (info /= psb_success_) return if (info /= psb_success_) return

3
base/serial/f03/psb_d_csr_impl.f03
Unescape Escape View File

@ -2585,6 +2585,9 @@ subroutine psb_d_mv_csr_from_coo(a,b,info)
character(len=20) :: name character(len=20) :: name
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
call b%fix(info) call b%fix(info)
if (info /= psb_success_) return if (info /= psb_success_) return

3
base/serial/f03/psb_s_csc_impl.f03
Unescape Escape View File

@ -2009,6 +2009,9 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
character(len=20) :: name character(len=20) :: name
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
call b%fix(info, idir=1) call b%fix(info, idir=1)
if (info /= psb_success_) return if (info /= psb_success_) return

3
base/serial/f03/psb_s_csr_impl.f03
Unescape Escape View File

@ -2343,6 +2343,9 @@ subroutine psb_s_mv_csr_from_coo(a,b,info)
character(len=20) :: name character(len=20) :: name
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
call b%fix(info) call b%fix(info)
if (info /= psb_success_) return if (info /= psb_success_) return

3
base/serial/f03/psb_z_csc_impl.f03
Unescape Escape View File

@ -2372,6 +2372,9 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
character(len=20) :: name character(len=20) :: name
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
call b%fix(info, idir=1) call b%fix(info, idir=1)
if (info /= psb_success_) return if (info /= psb_success_) return

4
base/serial/f03/psb_z_csr_impl.f03
Unescape Escape View File

@ -1,4 +1,5 @@
! == =================================== ! == ===================================
! !
! !
@ -2535,6 +2536,9 @@ subroutine psb_z_mv_csr_from_coo(a,b,info)
character(len=20) :: name character(len=20) :: name
info = psb_success_ info = psb_success_
debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level()
call b%fix(info) call b%fix(info)
if (info /= psb_success_) return if (info /= psb_success_) return

Write Preview
Loading…
Cancel
Save