Change level%csetc to use 'DEC' & friends

mergeparmatch
Salvatore Filippone 4 years ago
parent a42413223e
commit b4b96d9338

@ -242,10 +242,10 @@ subroutine amg_c_base_onelev_csetc(lv,what,val,info,pos,idx)
end if end if
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) 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) allocate(amg_c_symdec_aggregator_type :: lv%aggr, stat=info)
case default case default
info = psb_err_internal_error_ info = psb_err_internal_error_

@ -262,10 +262,10 @@ subroutine amg_d_base_onelev_csetc(lv,what,val,info,pos,idx)
end if end if
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) 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) allocate(amg_d_symdec_aggregator_type :: lv%aggr, stat=info)
case default case default
info = psb_err_internal_error_ info = psb_err_internal_error_

@ -242,10 +242,10 @@ subroutine amg_s_base_onelev_csetc(lv,what,val,info,pos,idx)
end if end if
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) 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) allocate(amg_s_symdec_aggregator_type :: lv%aggr, stat=info)
case default case default
info = psb_err_internal_error_ info = psb_err_internal_error_

@ -262,10 +262,10 @@ subroutine amg_z_base_onelev_csetc(lv,what,val,info,pos,idx)
end if end if
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) 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) allocate(amg_z_symdec_aggregator_type :: lv%aggr, stat=info)
case default case default
info = psb_err_internal_error_ info = psb_err_internal_error_

Loading…
Cancel
Save