fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Workaround for strange ipk8 issue

Browse Source
pull/28/head
Salvatore Filippone 1 year ago
parent 9e682111be
commit cc8cab0e8a
6 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

4
base/modules/serial/psb_c_base_vect_mod.F90
Unescape Escape View File

@ -570,8 +570,8 @@ contains
info = 0 info = 0
if (allocated(x%v)) deallocate(x%v, stat=info) if (allocated(x%v)) deallocate(x%v, stat=info)
if (info == 0) call x%free_buffer(info) if ((info == 0).and.allocated(x%combuf)) call x%free_buffer(info)
if (info == 0) call x%free_comid(info) if ((info == 0).and.allocated(x%comid)) call x%free_comid(info)
if (info /= 0) call & if (info /= 0) call &
& psb_errpush(psb_err_alloc_dealloc_,'vect_free') & psb_errpush(psb_err_alloc_dealloc_,'vect_free')

4
base/modules/serial/psb_d_base_vect_mod.F90
Unescape Escape View File

@ -577,8 +577,8 @@ contains
info = 0 info = 0
if (allocated(x%v)) deallocate(x%v, stat=info) if (allocated(x%v)) deallocate(x%v, stat=info)
if (info == 0) call x%free_buffer(info) if ((info == 0).and.allocated(x%combuf)) call x%free_buffer(info)
if (info == 0) call x%free_comid(info) if ((info == 0).and.allocated(x%comid)) call x%free_comid(info)
if (info /= 0) call & if (info /= 0) call &
& psb_errpush(psb_err_alloc_dealloc_,'vect_free') & psb_errpush(psb_err_alloc_dealloc_,'vect_free')

4
base/modules/serial/psb_i_base_vect_mod.F90
Unescape Escape View File

@ -503,8 +503,8 @@ contains
info = 0 info = 0
if (allocated(x%v)) deallocate(x%v, stat=info) if (allocated(x%v)) deallocate(x%v, stat=info)
if (info == 0) call x%free_buffer(info) if ((info == 0).and.allocated(x%combuf)) call x%free_buffer(info)
if (info == 0) call x%free_comid(info) if ((info == 0).and.allocated(x%comid)) call x%free_comid(info)
if (info /= 0) call & if (info /= 0) call &
& psb_errpush(psb_err_alloc_dealloc_,'vect_free') & psb_errpush(psb_err_alloc_dealloc_,'vect_free')

4
base/modules/serial/psb_l_base_vect_mod.F90
Unescape Escape View File

@ -504,8 +504,8 @@ contains
info = 0 info = 0
if (allocated(x%v)) deallocate(x%v, stat=info) if (allocated(x%v)) deallocate(x%v, stat=info)
if (info == 0) call x%free_buffer(info) if ((info == 0).and.allocated(x%combuf)) call x%free_buffer(info)
if (info == 0) call x%free_comid(info) if ((info == 0).and.allocated(x%comid)) call x%free_comid(info)
if (info /= 0) call & if (info /= 0) call &
& psb_errpush(psb_err_alloc_dealloc_,'vect_free') & psb_errpush(psb_err_alloc_dealloc_,'vect_free')

4
base/modules/serial/psb_s_base_vect_mod.F90
Unescape Escape View File

@ -577,8 +577,8 @@ contains
info = 0 info = 0
if (allocated(x%v)) deallocate(x%v, stat=info) if (allocated(x%v)) deallocate(x%v, stat=info)
if (info == 0) call x%free_buffer(info) if ((info == 0).and.allocated(x%combuf)) call x%free_buffer(info)
if (info == 0) call x%free_comid(info) if ((info == 0).and.allocated(x%comid)) call x%free_comid(info)
if (info /= 0) call & if (info /= 0) call &
& psb_errpush(psb_err_alloc_dealloc_,'vect_free') & psb_errpush(psb_err_alloc_dealloc_,'vect_free')

4
base/modules/serial/psb_z_base_vect_mod.F90
Unescape Escape View File

@ -570,8 +570,8 @@ contains
info = 0 info = 0
if (allocated(x%v)) deallocate(x%v, stat=info) if (allocated(x%v)) deallocate(x%v, stat=info)
if (info == 0) call x%free_buffer(info) if ((info == 0).and.allocated(x%combuf)) call x%free_buffer(info)
if (info == 0) call x%free_comid(info) if ((info == 0).and.allocated(x%comid)) call x%free_comid(info)
if (info /= 0) call & if (info /= 0) call &
& psb_errpush(psb_err_alloc_dealloc_,'vect_free') & psb_errpush(psb_err_alloc_dealloc_,'vect_free')

Write Preview
Loading…
Cancel
Save