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

removed debug prints

Browse Source
This commit is contained in:
Cirdans-Home
2021-04-08 18:44:02 +02:00
parent 01c7d09fdd
commit ec52852bf5
6 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_asb.f90
+1 -1
View File
@@ -1,4 +1,4 @@
!
! !
!
! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package
amgprec/impl/aggregator/amg_d_parmatch_aggregator_mat_bld.f90
+2 -1
View File
@@ -1,4 +1,4 @@
!
! !
!
! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package
@@ -187,6 +187,7 @@ subroutine amg_d_parmatch_aggregator_mat_bld(ag,parms,a,desc_a,ilaggr,nlaggr,&
integer(psb_ipk_) :: np, me
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: debug_level, debug_unit
type(psb_dspmat_type) :: atmp
name='d_parmatch_mat_bld'
if (psb_get_errstatus().ne.0) return
amgprec/impl/aggregator/amg_d_parmatch_aggregator_tprol.f90
+1 -1
View File
@@ -150,7 +150,7 @@ subroutine amg_d_parmatch_aggregator_build_tprol(ag,parms,ag_data,&
type(psb_ldspmat_type) :: tmp_prol, tmp_pg, tmp_restr
type(psb_desc_type) :: tmp_desc_ac, tmp_desc_ax, tmp_desc_p
integer(psb_ipk_), save :: idx_mboxp=-1, idx_spmmbld=-1, idx_sweeps_mult=-1
logical, parameter :: dump=.false., do_timings=.true., debug=.true., &
logical, parameter :: dump=.false., do_timings=.true., debug=.false., &
& dump_prol_restr=.false.
name='d_parmatch_tprol'
amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_asb.f90
+1 -1
View File
@@ -1,4 +1,4 @@
!
! !
!
! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package
amgprec/impl/aggregator/amg_s_parmatch_aggregator_mat_bld.f90
+1
View File
@@ -187,6 +187,7 @@ subroutine amg_s_parmatch_aggregator_mat_bld(ag,parms,a,desc_a,ilaggr,nlaggr,&
integer(psb_ipk_) :: np, me
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: debug_level, debug_unit
type(psb_sspmat_type) :: atmp
name='s_parmatch_mat_bld'
if (psb_get_errstatus().ne.0) return
amgprec/impl/aggregator/amg_s_parmatch_aggregator_tprol.f90
+2 -2
View File
@@ -1,4 +1,4 @@
!
! !
!
! AMG4PSBLAS version 1.0
! Algebraic Multigrid Package
@@ -150,7 +150,7 @@ subroutine amg_s_parmatch_aggregator_build_tprol(ag,parms,ag_data,&
type(psb_lsspmat_type) :: tmp_prol, tmp_pg, tmp_restr
type(psb_desc_type) :: tmp_desc_ac, tmp_desc_ax, tmp_desc_p
integer(psb_ipk_), save :: idx_mboxp=-1, idx_spmmbld=-1, idx_sweeps_mult=-1
logical, parameter :: dump=.false., do_timings=.true., debug=.true., &
logical, parameter :: dump=.false., do_timings=.true., debug=.false., &
& dump_prol_restr=.false.
name='s_parmatch_tprol'