fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Define and use SET_DO_REMAP and GET_DO_REMAP

Browse Source
This commit is contained in:
Salvatore Filippone
2020-12-03 08:59:57 +01:00
parent 788211c794
commit 295a5cccf3
5 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/amg_base_prec_type.F90
+16
View File
@@ -408,8 +408,24 @@ module amg_base_prec_type
module procedure amg_d_equal_aggregation, amg_s_equal_aggregation
end interface amg_equal_aggregation
logical, private, save :: do_remap=.false.
contains
function amg_get_do_remap() result(res)
implicit none
logical :: res
res = do_remap
end function amg_get_do_remap
subroutine amg_set_do_remap(val)
implicit none
logical, intent(in) :: val
do_remap = val
end subroutine amg_set_do_remap
!
! Function: amg_stringval
!
amgprec/impl/amg_c_hierarchy_bld.f90
+1 -1
View File
@@ -457,7 +457,7 @@ subroutine amg_c_hierarchy_bld(a,desc_a,prec,info)
!write(0,*) 'Should we remap? '
if (.true..and.(np>=4)) then
if (amg_get_do_remap().and.(np>=4)) then
write(0,*) 'Going for remapping '
if (.true.) then
associate(lv=>prec%precv(iszv), rmp => prec%precv(iszv)%remap_data)
amgprec/impl/amg_d_hierarchy_bld.f90
+1 -1
View File
@@ -457,7 +457,7 @@ subroutine amg_d_hierarchy_bld(a,desc_a,prec,info)
!write(0,*) 'Should we remap? '
if (.true..and.(np>=4)) then
if (amg_get_do_remap().and.(np>=4)) then
write(0,*) 'Going for remapping '
if (.true.) then
associate(lv=>prec%precv(iszv), rmp => prec%precv(iszv)%remap_data)
amgprec/impl/amg_s_hierarchy_bld.f90
+1 -1
View File
@@ -457,7 +457,7 @@ subroutine amg_s_hierarchy_bld(a,desc_a,prec,info)
!write(0,*) 'Should we remap? '
if (.true..and.(np>=4)) then
if (amg_get_do_remap().and.(np>=4)) then
write(0,*) 'Going for remapping '
if (.true.) then
associate(lv=>prec%precv(iszv), rmp => prec%precv(iszv)%remap_data)
amgprec/impl/amg_z_hierarchy_bld.f90
+1 -1
View File
@@ -457,7 +457,7 @@ subroutine amg_z_hierarchy_bld(a,desc_a,prec,info)
!write(0,*) 'Should we remap? '
if (.true..and.(np>=4)) then
if (amg_get_do_remap().and.(np>=4)) then
write(0,*) 'Going for remapping '
if (.true.) then
associate(lv=>prec%precv(iszv), rmp => prec%precv(iszv)%remap_data)