mld2p4-tpre-NewNL:

mlprec/impl/mld_caggrmat_minnrg_asb.F90 mlprec/impl/mld_caggrmat_nosmth_asb.F90 mlprec/impl/mld_caggrmat_smth_asb.F90 mlprec/impl/mld_daggrmat_minnrg_asb.F90 mlprec/impl/mld_daggrmat_nosmth_asb.F90 mlprec/impl/mld_daggrmat_smth_asb.F90 mlprec/impl/mld_saggrmat_minnrg_asb.F90 mlprec/impl/mld_saggrmat_nosmth_asb.F90 mlprec/impl/mld_saggrmat_smth_asb.F90 mlprec/impl/mld_zaggrmat_minnrg_asb.F90 mlprec/impl/mld_zaggrmat_nosmth_asb.F90 mlprec/impl/mld_zaggrmat_smth_asb.F90 MPI no longer used directly. Step 1.
13 years ago · 13d9fd75e8
parent e5f9b851ce
commit 13d9fd75e8
12 changed files with 0 additions and 72 deletions
--- a/mlprec/impl/mld_caggrmat_minnrg_asb.F90
+++ b/mlprec/impl/mld_caggrmat_minnrg_asb.F90
@ -102,13 +102,7 @@ subroutine mld_caggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_c_inner_mod, mld_protect_name => mld_caggrmat_minnrg_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_cspmat_type), intent(in)             :: a
--- a/mlprec/impl/mld_caggrmat_nosmth_asb.F90
+++ b/mlprec/impl/mld_caggrmat_nosmth_asb.F90
@ -85,13 +85,7 @@ subroutine mld_caggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_c_inner_mod, mld_protect_name => mld_caggrmat_nosmth_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_cspmat_type), intent(in)          :: a
--- a/mlprec/impl/mld_caggrmat_smth_asb.F90
+++ b/mlprec/impl/mld_caggrmat_smth_asb.F90
@ -97,13 +97,7 @@ subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_c_inner_mod, mld_protect_name => mld_caggrmat_smth_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_cspmat_type), intent(in)             :: a
--- a/mlprec/impl/mld_daggrmat_minnrg_asb.F90
+++ b/mlprec/impl/mld_daggrmat_minnrg_asb.F90
@ -102,13 +102,7 @@ subroutine mld_daggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_d_inner_mod, mld_protect_name => mld_daggrmat_minnrg_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_dspmat_type), intent(in)             :: a
--- a/mlprec/impl/mld_daggrmat_nosmth_asb.F90
+++ b/mlprec/impl/mld_daggrmat_nosmth_asb.F90
@ -85,13 +85,7 @@ subroutine mld_daggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_d_inner_mod, mld_protect_name => mld_daggrmat_nosmth_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_dspmat_type), intent(in)          :: a
--- a/mlprec/impl/mld_daggrmat_smth_asb.F90
+++ b/mlprec/impl/mld_daggrmat_smth_asb.F90
@ -97,13 +97,7 @@ subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_d_inner_mod, mld_protect_name => mld_daggrmat_smth_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_dspmat_type), intent(in)             :: a
--- a/mlprec/impl/mld_saggrmat_minnrg_asb.F90
+++ b/mlprec/impl/mld_saggrmat_minnrg_asb.F90
@ -102,13 +102,7 @@ subroutine mld_saggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_s_inner_mod, mld_protect_name => mld_saggrmat_minnrg_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_sspmat_type), intent(in)             :: a
--- a/mlprec/impl/mld_saggrmat_nosmth_asb.F90
+++ b/mlprec/impl/mld_saggrmat_nosmth_asb.F90
@ -85,13 +85,7 @@ subroutine mld_saggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_s_inner_mod, mld_protect_name => mld_saggrmat_nosmth_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_sspmat_type), intent(in)          :: a
--- a/mlprec/impl/mld_saggrmat_smth_asb.F90
+++ b/mlprec/impl/mld_saggrmat_smth_asb.F90
@ -97,13 +97,7 @@ subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_s_inner_mod, mld_protect_name => mld_saggrmat_smth_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_sspmat_type), intent(in)             :: a
--- a/mlprec/impl/mld_zaggrmat_minnrg_asb.F90
+++ b/mlprec/impl/mld_zaggrmat_minnrg_asb.F90
@ -102,13 +102,7 @@ subroutine mld_zaggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_z_inner_mod, mld_protect_name => mld_zaggrmat_minnrg_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_zspmat_type), intent(in)             :: a
--- a/mlprec/impl/mld_zaggrmat_nosmth_asb.F90
+++ b/mlprec/impl/mld_zaggrmat_nosmth_asb.F90
@ -85,13 +85,7 @@ subroutine mld_zaggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_z_inner_mod, mld_protect_name => mld_zaggrmat_nosmth_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_zspmat_type), intent(in)          :: a
--- a/mlprec/impl/mld_zaggrmat_smth_asb.F90
+++ b/mlprec/impl/mld_zaggrmat_smth_asb.F90
@ -97,13 +97,7 @@ subroutine mld_zaggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
  use psb_base_mod
  use mld_z_inner_mod, mld_protect_name => mld_zaggrmat_smth_asb

-#ifdef MPI_MOD
-  use mpi
-#endif
  implicit none
-#ifdef MPI_H
-  include 'mpif.h'
-#endif

  ! Arguments
  type(psb_zspmat_type), intent(in)             :: a