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

Fix cnv method for unallocated vectors

Browse Source
tspmm
Salvatore Filippone 3 years ago
parent a8d7cd5111
commit 00c69bfee9
6 changed files with 30 additions and 18 deletions
Show Stats Download Patch File Download Diff File

8
base/modules/serial/psb_c_vect_mod.F90
Unescape Escape View File

@ -526,9 +526,11 @@ contains
allocate(tmp,stat=info,mold=psb_c_get_base_vect_default()) allocate(tmp,stat=info,mold=psb_c_get_base_vect_default())
end if end if
if (allocated(x%v)) then if (allocated(x%v)) then
call x%v%sync() if (allocated(x%v%v)) then
if (info == psb_success_) call tmp%bld(x%v%v) call x%v%sync()
call x%v%free(info) if (info == psb_success_) call tmp%bld(x%v%v)
call x%v%free(info)
endif
end if end if
call move_alloc(tmp,x%v) call move_alloc(tmp,x%v)

8
base/modules/serial/psb_d_vect_mod.F90
Unescape Escape View File

@ -533,9 +533,11 @@ contains
allocate(tmp,stat=info,mold=psb_d_get_base_vect_default()) allocate(tmp,stat=info,mold=psb_d_get_base_vect_default())
end if end if
if (allocated(x%v)) then if (allocated(x%v)) then
call x%v%sync() if (allocated(x%v%v)) then
if (info == psb_success_) call tmp%bld(x%v%v) call x%v%sync()
call x%v%free(info) if (info == psb_success_) call tmp%bld(x%v%v)
call x%v%free(info)
endif
end if end if
call move_alloc(tmp,x%v) call move_alloc(tmp,x%v)

8
base/modules/serial/psb_i_vect_mod.F90
Unescape Escape View File

@ -473,9 +473,11 @@ contains
allocate(tmp,stat=info,mold=psb_i_get_base_vect_default()) allocate(tmp,stat=info,mold=psb_i_get_base_vect_default())
end if end if
if (allocated(x%v)) then if (allocated(x%v)) then
call x%v%sync() if (allocated(x%v%v)) then
if (info == psb_success_) call tmp%bld(x%v%v) call x%v%sync()
call x%v%free(info) if (info == psb_success_) call tmp%bld(x%v%v)
call x%v%free(info)
endif
end if end if
call move_alloc(tmp,x%v) call move_alloc(tmp,x%v)

8
base/modules/serial/psb_l_vect_mod.F90
Unescape Escape View File

@ -474,9 +474,11 @@ contains
allocate(tmp,stat=info,mold=psb_l_get_base_vect_default()) allocate(tmp,stat=info,mold=psb_l_get_base_vect_default())
end if end if
if (allocated(x%v)) then if (allocated(x%v)) then
call x%v%sync() if (allocated(x%v%v)) then
if (info == psb_success_) call tmp%bld(x%v%v) call x%v%sync()
call x%v%free(info) if (info == psb_success_) call tmp%bld(x%v%v)
call x%v%free(info)
endif
end if end if
call move_alloc(tmp,x%v) call move_alloc(tmp,x%v)

8
base/modules/serial/psb_s_vect_mod.F90
Unescape Escape View File

@ -533,9 +533,11 @@ contains
allocate(tmp,stat=info,mold=psb_s_get_base_vect_default()) allocate(tmp,stat=info,mold=psb_s_get_base_vect_default())
end if end if
if (allocated(x%v)) then if (allocated(x%v)) then
call x%v%sync() if (allocated(x%v%v)) then
if (info == psb_success_) call tmp%bld(x%v%v) call x%v%sync()
call x%v%free(info) if (info == psb_success_) call tmp%bld(x%v%v)
call x%v%free(info)
endif
end if end if
call move_alloc(tmp,x%v) call move_alloc(tmp,x%v)

8
base/modules/serial/psb_z_vect_mod.F90
Unescape Escape View File

@ -526,9 +526,11 @@ contains
allocate(tmp,stat=info,mold=psb_z_get_base_vect_default()) allocate(tmp,stat=info,mold=psb_z_get_base_vect_default())
end if end if
if (allocated(x%v)) then if (allocated(x%v)) then
call x%v%sync() if (allocated(x%v%v)) then
if (info == psb_success_) call tmp%bld(x%v%v) call x%v%sync()
call x%v%free(info) if (info == psb_success_) call tmp%bld(x%v%v)
call x%v%free(info)
endif
end if end if
call move_alloc(tmp,x%v) call move_alloc(tmp,x%v)

Write Preview
Loading…
Cancel
Save