fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/serial/impl/psb_c_base_mat_impl.f90
 base/serial/impl/psb_d_base_mat_impl.f90
 base/serial/impl/psb_s_base_mat_impl.f90
 base/serial/impl/psb_z_base_mat_impl.f90

Silence warning from ftn.
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 9bffe71f58
commit c5f4b1fa1c
4 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File

5
base/serial/impl/psb_c_base_mat_impl.f90
Unescape Escape View File

@ -82,6 +82,7 @@ subroutine psb_c_base_cp_to_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call a%cp_to_coo(tmp,info) call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info)
@ -106,6 +107,7 @@ subroutine psb_c_base_cp_from_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call b%cp_to_coo(tmp,info) call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)
@ -186,7 +188,7 @@ subroutine psb_c_base_mv_to_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call a%mv_to_coo(tmp,info) call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info)
@ -211,6 +213,7 @@ subroutine psb_c_base_mv_from_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call b%mv_to_coo(tmp,info) call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)

5
base/serial/impl/psb_d_base_mat_impl.f90
Unescape Escape View File

@ -82,6 +82,7 @@ subroutine psb_d_base_cp_to_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call a%cp_to_coo(tmp,info) call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info)
@ -106,6 +107,7 @@ subroutine psb_d_base_cp_from_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call b%cp_to_coo(tmp,info) call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)
@ -186,7 +188,7 @@ subroutine psb_d_base_mv_to_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call a%mv_to_coo(tmp,info) call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info)
@ -211,6 +213,7 @@ subroutine psb_d_base_mv_from_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call b%mv_to_coo(tmp,info) call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)

5
base/serial/impl/psb_s_base_mat_impl.f90
Unescape Escape View File

@ -82,6 +82,7 @@ subroutine psb_s_base_cp_to_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call a%cp_to_coo(tmp,info) call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info)
@ -106,6 +107,7 @@ subroutine psb_s_base_cp_from_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call b%cp_to_coo(tmp,info) call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)
@ -186,7 +188,7 @@ subroutine psb_s_base_mv_to_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call a%mv_to_coo(tmp,info) call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info)
@ -211,6 +213,7 @@ subroutine psb_s_base_mv_from_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call b%mv_to_coo(tmp,info) call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)

5
base/serial/impl/psb_z_base_mat_impl.f90
Unescape Escape View File

@ -82,6 +82,7 @@ subroutine psb_z_base_cp_to_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call a%cp_to_coo(tmp,info) call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info)
@ -106,6 +107,7 @@ subroutine psb_z_base_cp_from_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call b%cp_to_coo(tmp,info) call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)
@ -186,7 +188,7 @@ subroutine psb_z_base_mv_to_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call a%mv_to_coo(tmp,info) call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info)
@ -211,6 +213,7 @@ subroutine psb_z_base_mv_from_fmt(a,b,info)
! !
! Default implementation ! Default implementation
! !
info = psb_success_
call b%mv_to_coo(tmp,info) call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info) if (info == psb_success_) call a%mv_from_coo(tmp,info)

Write Preview
Loading…
Cancel
Save