fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-11 16:39:05 +00:00
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.
This commit is contained in:
Salvatore Filippone
2012-01-10 14:59:08 +00:00
parent 9bffe71f58
commit c5f4b1fa1c
4 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_base_mat_impl.f90
+4 -1
View File
@@ -82,6 +82,7 @@ subroutine psb_c_base_cp_to_fmt(a,b,info)
!
! Default implementation
!
info = psb_success_
call a%cp_to_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
!
info = psb_success_
call b%cp_to_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
!
info = psb_success_
call a%mv_to_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
!
info = psb_success_
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
base/serial/impl/psb_d_base_mat_impl.f90
+4 -1
View File
@@ -82,6 +82,7 @@ subroutine psb_d_base_cp_to_fmt(a,b,info)
!
! Default implementation
!
info = psb_success_
call a%cp_to_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
!
info = psb_success_
call b%cp_to_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
!
info = psb_success_
call a%mv_to_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
!
info = psb_success_
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
base/serial/impl/psb_s_base_mat_impl.f90
+4 -1
View File
@@ -82,6 +82,7 @@ subroutine psb_s_base_cp_to_fmt(a,b,info)
!
! Default implementation
!
info = psb_success_
call a%cp_to_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
!
info = psb_success_
call b%cp_to_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
!
info = psb_success_
call a%mv_to_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
!
info = psb_success_
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
base/serial/impl/psb_z_base_mat_impl.f90
+4 -1
View File
@@ -82,6 +82,7 @@ subroutine psb_z_base_cp_to_fmt(a,b,info)
!
! Default implementation
!
info = psb_success_
call a%cp_to_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
!
info = psb_success_
call b%cp_to_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
!
info = psb_success_
call a%mv_to_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
!
info = psb_success_
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)