From 5f54a9e5996c682d17fdce6c783c3344d2c13835 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 22 Apr 2014 15:20:41 +0000 Subject: [PATCH] psblas3: base/modules/psb_c_vect_mod.F90 base/modules/psb_d_vect_mod.F90 base/modules/psb_s_vect_mod.F90 base/modules/psb_z_vect_mod.F90 Fixed incomplete call to free. --- base/modules/psb_c_vect_mod.F90 | 4 ++-- base/modules/psb_d_vect_mod.F90 | 4 ++-- base/modules/psb_s_vect_mod.F90 | 4 ++-- base/modules/psb_z_vect_mod.F90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/base/modules/psb_c_vect_mod.F90 b/base/modules/psb_c_vect_mod.F90 index f213af24..00cf37aa 100644 --- a/base/modules/psb_c_vect_mod.F90 +++ b/base/modules/psb_c_vect_mod.F90 @@ -164,7 +164,7 @@ contains class(psb_c_base_vect_type), pointer :: mld if (allocated(x%v)) & - & call x%v%free(info) + & call x%free(info) if (present(mold)) then #ifdef HAVE_MOLD @@ -195,7 +195,7 @@ contains if (allocated(x%v)) & - & call x%v%free(info) + & call x%free(info) if (present(mold)) then #ifdef HAVE_MOLD diff --git a/base/modules/psb_d_vect_mod.F90 b/base/modules/psb_d_vect_mod.F90 index e3d4ef2b..c7563154 100644 --- a/base/modules/psb_d_vect_mod.F90 +++ b/base/modules/psb_d_vect_mod.F90 @@ -164,7 +164,7 @@ contains class(psb_d_base_vect_type), pointer :: mld if (allocated(x%v)) & - & call x%v%free(info) + & call x%free(info) if (present(mold)) then #ifdef HAVE_MOLD @@ -195,7 +195,7 @@ contains if (allocated(x%v)) & - & call x%v%free(info) + & call x%free(info) if (present(mold)) then #ifdef HAVE_MOLD diff --git a/base/modules/psb_s_vect_mod.F90 b/base/modules/psb_s_vect_mod.F90 index f038548e..0ca5ac33 100644 --- a/base/modules/psb_s_vect_mod.F90 +++ b/base/modules/psb_s_vect_mod.F90 @@ -164,7 +164,7 @@ contains class(psb_s_base_vect_type), pointer :: mld if (allocated(x%v)) & - & call x%v%free(info) + & call x%free(info) if (present(mold)) then #ifdef HAVE_MOLD @@ -195,7 +195,7 @@ contains if (allocated(x%v)) & - & call x%v%free(info) + & call x%free(info) if (present(mold)) then #ifdef HAVE_MOLD diff --git a/base/modules/psb_z_vect_mod.F90 b/base/modules/psb_z_vect_mod.F90 index ee667084..56786440 100644 --- a/base/modules/psb_z_vect_mod.F90 +++ b/base/modules/psb_z_vect_mod.F90 @@ -164,7 +164,7 @@ contains class(psb_z_base_vect_type), pointer :: mld if (allocated(x%v)) & - & call x%v%free(info) + & call x%free(info) if (present(mold)) then #ifdef HAVE_MOLD @@ -195,7 +195,7 @@ contains if (allocated(x%v)) & - & call x%v%free(info) + & call x%free(info) if (present(mold)) then #ifdef HAVE_MOLD