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/comm/internals/psi_cswapdata.F90
 base/comm/internals/psi_cswaptran.F90
 base/comm/internals/psi_dswapdata.F90
 base/comm/internals/psi_dswaptran.F90
 base/comm/internals/psi_iswapdata.F90
 base/comm/internals/psi_iswaptran.F90
 base/comm/internals/psi_sswapdata.F90
 base/comm/internals/psi_sswaptran.F90
 base/comm/internals/psi_zswapdata.F90
 base/comm/internals/psi_zswaptran.F90
 base/modules/psb_realloc_mod.F90
 base/modules/serial/psb_c_base_vect_mod.f90
 base/modules/serial/psb_d_base_vect_mod.f90
 base/modules/serial/psb_i_base_vect_mod.f90
 base/modules/serial/psb_s_base_vect_mod.f90
 base/modules/serial/psb_z_base_vect_mod.f90

Introduce v%maybe_free_buffer.
This commit is contained in:
Salvatore Filippone
2017-03-20 11:15:57 +00:00
parent 609d924505
commit 0329ffd968
16 changed files with 421 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_realloc_mod.F90
+11
View File
@@ -153,9 +153,20 @@ module psb_realloc_mod
& psb_zsize1d, psb_zsize2d
end interface psb_size
logical, private :: do_maybe_free_buffer = .true.
Contains
function psb_get_maybe_free_buffer() result(res)
logical :: res
res = do_maybe_free_buffer
end function psb_get_maybe_free_buffer
subroutine psb_set_maybe_free_buffer(val)
logical, intent(in) :: val
do_maybe_free_buffer = val
end subroutine psb_set_maybe_free_buffer
subroutine psb_i_ab_cpy1d(vin,vout,info)
use psb_error_mod