fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
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.
This commit is contained in:
Salvatore Filippone
2014-04-22 15:20:41 +00:00
parent a543c4009f
commit 5f54a9e599
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_vect_mod.F90
+2 -2
View File
@@ -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
base/modules/psb_d_vect_mod.F90
+2 -2
View File
@@ -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
base/modules/psb_s_vect_mod.F90
+2 -2
View File
@@ -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
base/modules/psb_z_vect_mod.F90
+2 -2
View File
@@ -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