psblas3:

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.
13 years ago · c5f4b1fa1c
parent 9bffe71f58
commit c5f4b1fa1c
4 changed files with 16 additions and 4 deletions
--- a/base/serial/impl/psb_c_base_mat_impl.f90
+++ b/base/serial/impl/psb_c_base_mat_impl.f90
@ -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)

--- a/base/serial/impl/psb_d_base_mat_impl.f90
+++ b/base/serial/impl/psb_d_base_mat_impl.f90
@ -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)

--- a/base/serial/impl/psb_s_base_mat_impl.f90
+++ b/base/serial/impl/psb_s_base_mat_impl.f90
@ -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)

--- a/base/serial/impl/psb_z_base_mat_impl.f90
+++ b/base/serial/impl/psb_z_base_mat_impl.f90
@ -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)