From 9ad88b1355c86ccb07b2ef50b8f036d0b14832c1 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Fri, 21 Mar 2025 12:13:39 +0100 Subject: [PATCH] Take out MUMPS interface debug statement --- amgprec/impl/solver/amg_c_mumps_solver_bld.F90 | 2 +- amgprec/impl/solver/amg_d_mumps_solver_bld.F90 | 2 +- amgprec/impl/solver/amg_s_mumps_solver_bld.F90 | 2 +- amgprec/impl/solver/amg_z_mumps_solver_bld.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/amgprec/impl/solver/amg_c_mumps_solver_bld.F90 b/amgprec/impl/solver/amg_c_mumps_solver_bld.F90 index 9ab2a3aa..d7c9d518 100644 --- a/amgprec/impl/solver/amg_c_mumps_solver_bld.F90 +++ b/amgprec/impl/solver/amg_c_mumps_solver_bld.F90 @@ -227,7 +227,7 @@ subroutine c_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) call psb_sum(ctxt,sv%id%nnz) end if !call psb_barrier(ctxt) - write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc + !write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc call cmumps(sv%id) !call psb_barrier(ctxt) info = sv%id%infog(1) diff --git a/amgprec/impl/solver/amg_d_mumps_solver_bld.F90 b/amgprec/impl/solver/amg_d_mumps_solver_bld.F90 index 6678a764..6f2217fe 100644 --- a/amgprec/impl/solver/amg_d_mumps_solver_bld.F90 +++ b/amgprec/impl/solver/amg_d_mumps_solver_bld.F90 @@ -227,7 +227,7 @@ subroutine d_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) call psb_sum(ctxt,sv%id%nnz) end if !call psb_barrier(ctxt) - write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc + !write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc call dmumps(sv%id) !call psb_barrier(ctxt) info = sv%id%infog(1) diff --git a/amgprec/impl/solver/amg_s_mumps_solver_bld.F90 b/amgprec/impl/solver/amg_s_mumps_solver_bld.F90 index 1184a70a..4f320414 100644 --- a/amgprec/impl/solver/amg_s_mumps_solver_bld.F90 +++ b/amgprec/impl/solver/amg_s_mumps_solver_bld.F90 @@ -227,7 +227,7 @@ subroutine s_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) call psb_sum(ctxt,sv%id%nnz) end if !call psb_barrier(ctxt) - write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc + !write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc call smumps(sv%id) !call psb_barrier(ctxt) info = sv%id%infog(1) diff --git a/amgprec/impl/solver/amg_z_mumps_solver_bld.F90 b/amgprec/impl/solver/amg_z_mumps_solver_bld.F90 index 72f767a3..de032d4b 100644 --- a/amgprec/impl/solver/amg_z_mumps_solver_bld.F90 +++ b/amgprec/impl/solver/amg_z_mumps_solver_bld.F90 @@ -227,7 +227,7 @@ subroutine z_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) call psb_sum(ctxt,sv%id%nnz) end if !call psb_barrier(ctxt) - write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc + !write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc call zmumps(sv%id) !call psb_barrier(ctxt) info = sv%id%infog(1)