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
8 years ago · 727090f7cd
parent 0dfff39e2d
commit 727090f7cd
4 changed files with 0 additions and 4 deletions
--- 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
--- 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
--- 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
--- 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