From 5cbb20540db1989ea921614ccf010415c52698ba Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 16 Nov 2016 23:50:21 +0000 Subject: [PATCH] mld2p4: mlprec/impl/solver/mld_c_mumps_solver_bld.F90 mlprec/impl/solver/mld_d_mumps_solver_bld.F90 mlprec/impl/solver/mld_s_mumps_solver_bld.F90 mlprec/impl/solver/mld_z_mumps_solver_bld.F90 Take out spurious "use mpi" in Mumps interface --- mlprec/impl/solver/mld_c_mumps_solver_bld.F90 | 1 - mlprec/impl/solver/mld_d_mumps_solver_bld.F90 | 1 - mlprec/impl/solver/mld_s_mumps_solver_bld.F90 | 1 - mlprec/impl/solver/mld_z_mumps_solver_bld.F90 | 1 - 4 files changed, 4 deletions(-) diff --git a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 index 8f6a6d4b..e7d2d1ab 100644 --- a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 @@ -41,7 +41,6 @@ subroutine c_mumps_solver_bld(a,desc_a,sv,upd,info,b,amold,vmold,imold) use psb_base_mod - use mpi use mld_c_mumps_solver Implicit None diff --git a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 index 36b36883..58f81d51 100644 --- a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 @@ -41,7 +41,6 @@ subroutine d_mumps_solver_bld(a,desc_a,sv,upd,info,b,amold,vmold,imold) use psb_base_mod - use mpi use mld_d_mumps_solver Implicit None diff --git a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 index ebeb3fc4..d3ed3959 100644 --- a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 @@ -41,7 +41,6 @@ subroutine s_mumps_solver_bld(a,desc_a,sv,upd,info,b,amold,vmold,imold) use psb_base_mod - use mpi use mld_s_mumps_solver Implicit None diff --git a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 index 199f3f46..46372988 100644 --- a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 @@ -41,7 +41,6 @@ subroutine z_mumps_solver_bld(a,desc_a,sv,upd,info,b,amold,vmold,imold) use psb_base_mod - use mpi use mld_z_mumps_solver Implicit None