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

Take out MUMPS interface debug statement

Browse Source
This commit is contained in:
sfilippone
2025-03-21 12:13:39 +01:00
parent 0f425bdc06
commit 9ad88b1355
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/solver/amg_c_mumps_solver_bld.F90
+1 -1
View File
@@ -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) call psb_sum(ctxt,sv%id%nnz)
end if end if
!call psb_barrier(ctxt) !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 cmumps(sv%id)
!call psb_barrier(ctxt) !call psb_barrier(ctxt)
info = sv%id%infog(1) info = sv%id%infog(1)
amgprec/impl/solver/amg_d_mumps_solver_bld.F90
+1 -1
View File
@@ -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) call psb_sum(ctxt,sv%id%nnz)
end if end if
!call psb_barrier(ctxt) !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 dmumps(sv%id)
!call psb_barrier(ctxt) !call psb_barrier(ctxt)
info = sv%id%infog(1) info = sv%id%infog(1)
amgprec/impl/solver/amg_s_mumps_solver_bld.F90
+1 -1
View File
@@ -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) call psb_sum(ctxt,sv%id%nnz)
end if end if
!call psb_barrier(ctxt) !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 smumps(sv%id)
!call psb_barrier(ctxt) !call psb_barrier(ctxt)
info = sv%id%infog(1) info = sv%id%infog(1)
amgprec/impl/solver/amg_z_mumps_solver_bld.F90
+1 -1
View File
@@ -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) call psb_sum(ctxt,sv%id%nnz)
end if end if
!call psb_barrier(ctxt) !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 zmumps(sv%id)
!call psb_barrier(ctxt) !call psb_barrier(ctxt)
info = sv%id%infog(1) info = sv%id%infog(1)