Change level%csetc to use 'DEC' & friends

amgprec/impl/level/amg_c_base_onelev_csetc.F90

@@ -242,10 +242,10 @@ subroutine amg_c_base_onelev_csetc(lv,what,val,info,pos,idx)
       end if
     end if
 
-    select case(ival)
+    select case(val)
-    case(amg_dec_aggr_)
+    case('DEC')
       allocate(amg_c_dec_aggregator_type :: lv%aggr, stat=info)
-    case(amg_sym_dec_aggr_)
+    case('SYMDEC')
       allocate(amg_c_symdec_aggregator_type :: lv%aggr, stat=info)
     case default
       info =  psb_err_internal_error_

amgprec/impl/level/amg_d_base_onelev_csetc.F90

@@ -262,10 +262,10 @@ subroutine amg_d_base_onelev_csetc(lv,what,val,info,pos,idx)
       end if
     end if
 
-    select case(ival)
+    select case(val)
-    case(amg_dec_aggr_)
+    case('DEC')
       allocate(amg_d_dec_aggregator_type :: lv%aggr, stat=info)
-    case(amg_sym_dec_aggr_)
+    case('SYMDEC')
       allocate(amg_d_symdec_aggregator_type :: lv%aggr, stat=info)
     case default
       info =  psb_err_internal_error_

amgprec/impl/level/amg_s_base_onelev_csetc.F90

@@ -242,10 +242,10 @@ subroutine amg_s_base_onelev_csetc(lv,what,val,info,pos,idx)
       end if
     end if
 
-    select case(ival)
+    select case(val)
-    case(amg_dec_aggr_)
+    case('DEC')
       allocate(amg_s_dec_aggregator_type :: lv%aggr, stat=info)
-    case(amg_sym_dec_aggr_)
+    case('SYMDEC')
       allocate(amg_s_symdec_aggregator_type :: lv%aggr, stat=info)
     case default
       info =  psb_err_internal_error_

amgprec/impl/level/amg_z_base_onelev_csetc.F90

@@ -262,10 +262,10 @@ subroutine amg_z_base_onelev_csetc(lv,what,val,info,pos,idx)
       end if
     end if
 
-    select case(ival)
+    select case(val)
-    case(amg_dec_aggr_)
+    case('DEC')
       allocate(amg_z_dec_aggregator_type :: lv%aggr, stat=info)
-    case(amg_sym_dec_aggr_)
+    case('SYMDEC')
       allocate(amg_z_symdec_aggregator_type :: lv%aggr, stat=info)
     case default
       info =  psb_err_internal_error_