Add 'DECOUPLED' as possible choice

1 year ago · b1f05482a6
parent fb490cee7e
commit b1f05482a6
4 changed files with 4 additions and 4 deletions
--- a/amgprec/impl/level/amg_c_base_onelev_csetc.F90
+++ b/amgprec/impl/level/amg_c_base_onelev_csetc.F90
@ -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)
--- a/amgprec/impl/level/amg_d_base_onelev_csetc.F90
+++ b/amgprec/impl/level/amg_d_base_onelev_csetc.F90
@ -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)
--- a/amgprec/impl/level/amg_s_base_onelev_csetc.F90
+++ b/amgprec/impl/level/amg_s_base_onelev_csetc.F90
@ -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)
--- a/amgprec/impl/level/amg_z_base_onelev_csetc.F90
+++ b/amgprec/impl/level/amg_z_base_onelev_csetc.F90
@ -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)