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

Add 'DECOUPLED' as possible choice

Browse Source
This commit is contained in:
sfilippone
2023-10-04 10:59:23 +02:00
parent fb490cee7e
commit b1f05482a6
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/level/amg_c_base_onelev_csetc.F90
+1 -1
View File
@@ -243,7 +243,7 @@ subroutine amg_c_base_onelev_csetc(lv,what,val,info,pos,idx)
end if
select case(val)
case('DEC')
case('DEC','DECOUPLED')
allocate(amg_c_dec_aggregator_type :: lv%aggr, stat=info)
case('SYMDEC')
allocate(amg_c_symdec_aggregator_type :: lv%aggr, stat=info)
amgprec/impl/level/amg_d_base_onelev_csetc.F90
+1 -1
View File
@@ -264,7 +264,7 @@ subroutine amg_d_base_onelev_csetc(lv,what,val,info,pos,idx)
end if
select case(val)
case('DEC')
case('DEC','DECOUPLED')
allocate(amg_d_dec_aggregator_type :: lv%aggr, stat=info)
case('SYMDEC')
allocate(amg_d_symdec_aggregator_type :: lv%aggr, stat=info)
amgprec/impl/level/amg_s_base_onelev_csetc.F90
+1 -1
View File
@@ -244,7 +244,7 @@ subroutine amg_s_base_onelev_csetc(lv,what,val,info,pos,idx)
end if
select case(val)
case('DEC')
case('DEC','DECOUPLED')
allocate(amg_s_dec_aggregator_type :: lv%aggr, stat=info)
case('SYMDEC')
allocate(amg_s_symdec_aggregator_type :: lv%aggr, stat=info)
amgprec/impl/level/amg_z_base_onelev_csetc.F90
+1 -1
View File
@@ -263,7 +263,7 @@ subroutine amg_z_base_onelev_csetc(lv,what,val,info,pos,idx)
end if
select case(val)
case('DEC')
case('DEC','DECOUPLED')
allocate(amg_z_dec_aggregator_type :: lv%aggr, stat=info)
case('SYMDEC')
allocate(amg_z_symdec_aggregator_type :: lv%aggr, stat=info)