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/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.
psblas-3.2.0
Salvatore Filippone 12 years ago
parent a543c4009f
commit 5f54a9e599
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/modules/psb_c_vect_mod.F90
Unescape Escape 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

4
base/modules/psb_d_vect_mod.F90
Unescape Escape 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

4
base/modules/psb_s_vect_mod.F90
Unescape Escape 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

4
base/modules/psb_z_vect_mod.F90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save