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

Change level%csetc to use 'DEC' & friends

Browse Source
This commit is contained in:
Salvatore Filippone
2021-04-06 13:32:03 +02:00
parent a42413223e
commit b4b96d9338
4 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/level/amg_c_base_onelev_csetc.F90
+3 -3
View File
@@ -242,10 +242,10 @@ subroutine amg_c_base_onelev_csetc(lv,what,val,info,pos,idx)
end if
end if
select case(ival)
case(amg_dec_aggr_)
select case(val)
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
+3 -3
View File
@@ -262,10 +262,10 @@ subroutine amg_d_base_onelev_csetc(lv,what,val,info,pos,idx)
end if
end if
select case(ival)
case(amg_dec_aggr_)
select case(val)
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
+3 -3
View File
@@ -242,10 +242,10 @@ subroutine amg_s_base_onelev_csetc(lv,what,val,info,pos,idx)
end if
end if
select case(ival)
case(amg_dec_aggr_)
select case(val)
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
+3 -3
View File
@@ -262,10 +262,10 @@ subroutine amg_z_base_onelev_csetc(lv,what,val,info,pos,idx)
end if
end if
select case(ival)
case(amg_dec_aggr_)
select case(val)
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_