From 727090f7cdda4021fadea809afab5755cb029117 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 16 Nov 2016 23:39:29 +0000 Subject: [PATCH] mld2p4: mlprec/mld_c_mumps_solver.F90 mlprec/mld_d_mumps_solver.F90 mlprec/mld_s_mumps_solver.F90 mlprec/mld_z_mumps_solver.F90 Take out spurious "use mpi" in Mumps interface --- mlprec/mld_c_mumps_solver.F90 | 1 - mlprec/mld_d_mumps_solver.F90 | 1 - mlprec/mld_s_mumps_solver.F90 | 1 - mlprec/mld_z_mumps_solver.F90 | 1 - 4 files changed, 4 deletions(-) diff --git a/mlprec/mld_c_mumps_solver.F90 b/mlprec/mld_c_mumps_solver.F90 index e2db2ea2..c4b61ffd 100644 --- a/mlprec/mld_c_mumps_solver.F90 +++ b/mlprec/mld_c_mumps_solver.F90 @@ -136,7 +136,6 @@ module mld_c_mumps_solver interface subroutine c_mumps_solver_bld(a,desc_a,sv,upd,info,b,amold,vmold,imold) - use mpi import :: psb_desc_type, mld_c_mumps_solver_type, psb_c_vect_type, psb_spk_, & & psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type,& & psb_ipk_, psb_i_base_vect_type diff --git a/mlprec/mld_d_mumps_solver.F90 b/mlprec/mld_d_mumps_solver.F90 index 5b1aa093..480cd21b 100644 --- a/mlprec/mld_d_mumps_solver.F90 +++ b/mlprec/mld_d_mumps_solver.F90 @@ -136,7 +136,6 @@ module mld_d_mumps_solver interface subroutine d_mumps_solver_bld(a,desc_a,sv,upd,info,b,amold,vmold,imold) - use mpi import :: psb_desc_type, mld_d_mumps_solver_type, psb_d_vect_type, psb_dpk_, & & psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type,& & psb_ipk_, psb_i_base_vect_type diff --git a/mlprec/mld_s_mumps_solver.F90 b/mlprec/mld_s_mumps_solver.F90 index ac7bfdb2..4bec80ae 100644 --- a/mlprec/mld_s_mumps_solver.F90 +++ b/mlprec/mld_s_mumps_solver.F90 @@ -136,7 +136,6 @@ module mld_s_mumps_solver interface subroutine s_mumps_solver_bld(a,desc_a,sv,upd,info,b,amold,vmold,imold) - use mpi import :: psb_desc_type, mld_s_mumps_solver_type, psb_s_vect_type, psb_spk_, & & psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type,& & psb_ipk_, psb_i_base_vect_type diff --git a/mlprec/mld_z_mumps_solver.F90 b/mlprec/mld_z_mumps_solver.F90 index 7a941bba..c4e8b30e 100644 --- a/mlprec/mld_z_mumps_solver.F90 +++ b/mlprec/mld_z_mumps_solver.F90 @@ -136,7 +136,6 @@ module mld_z_mumps_solver interface subroutine z_mumps_solver_bld(a,desc_a,sv,upd,info,b,amold,vmold,imold) - use mpi import :: psb_desc_type, mld_z_mumps_solver_type, psb_z_vect_type, psb_dpk_, & & psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type,& & psb_ipk_, psb_i_base_vect_type