From 13d9fd75e88f12c6a4801eb66edd1a6e82fd0679 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 11 Apr 2012 13:11:44 +0000 Subject: [PATCH] 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. --- mlprec/impl/mld_caggrmat_minnrg_asb.F90 | 6 ------ mlprec/impl/mld_caggrmat_nosmth_asb.F90 | 6 ------ mlprec/impl/mld_caggrmat_smth_asb.F90 | 6 ------ mlprec/impl/mld_daggrmat_minnrg_asb.F90 | 6 ------ mlprec/impl/mld_daggrmat_nosmth_asb.F90 | 6 ------ mlprec/impl/mld_daggrmat_smth_asb.F90 | 6 ------ mlprec/impl/mld_saggrmat_minnrg_asb.F90 | 6 ------ mlprec/impl/mld_saggrmat_nosmth_asb.F90 | 6 ------ mlprec/impl/mld_saggrmat_smth_asb.F90 | 6 ------ mlprec/impl/mld_zaggrmat_minnrg_asb.F90 | 6 ------ mlprec/impl/mld_zaggrmat_nosmth_asb.F90 | 6 ------ mlprec/impl/mld_zaggrmat_smth_asb.F90 | 6 ------ 12 files changed, 72 deletions(-) diff --git a/mlprec/impl/mld_caggrmat_minnrg_asb.F90 b/mlprec/impl/mld_caggrmat_minnrg_asb.F90 index 00881369..0573e6f5 100644 --- 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 diff --git a/mlprec/impl/mld_caggrmat_nosmth_asb.F90 b/mlprec/impl/mld_caggrmat_nosmth_asb.F90 index fcaf10d6..4f4ad6af 100644 --- 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 diff --git a/mlprec/impl/mld_caggrmat_smth_asb.F90 b/mlprec/impl/mld_caggrmat_smth_asb.F90 index 75ef464d..ede23f6d 100644 --- 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 diff --git a/mlprec/impl/mld_daggrmat_minnrg_asb.F90 b/mlprec/impl/mld_daggrmat_minnrg_asb.F90 index bb5ae741..7e46a943 100644 --- 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 diff --git a/mlprec/impl/mld_daggrmat_nosmth_asb.F90 b/mlprec/impl/mld_daggrmat_nosmth_asb.F90 index d161bc04..b054fc78 100644 --- 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 diff --git a/mlprec/impl/mld_daggrmat_smth_asb.F90 b/mlprec/impl/mld_daggrmat_smth_asb.F90 index af0c1fb4..f1c3126e 100644 --- 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 diff --git a/mlprec/impl/mld_saggrmat_minnrg_asb.F90 b/mlprec/impl/mld_saggrmat_minnrg_asb.F90 index f35a9199..e9b46654 100644 --- 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 diff --git a/mlprec/impl/mld_saggrmat_nosmth_asb.F90 b/mlprec/impl/mld_saggrmat_nosmth_asb.F90 index 6f3eb3b6..e7c26afe 100644 --- 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 diff --git a/mlprec/impl/mld_saggrmat_smth_asb.F90 b/mlprec/impl/mld_saggrmat_smth_asb.F90 index 76a44eb2..532d7a2a 100644 --- 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 diff --git a/mlprec/impl/mld_zaggrmat_minnrg_asb.F90 b/mlprec/impl/mld_zaggrmat_minnrg_asb.F90 index 104d71b9..834a7526 100644 --- 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 diff --git a/mlprec/impl/mld_zaggrmat_nosmth_asb.F90 b/mlprec/impl/mld_zaggrmat_nosmth_asb.F90 index 9e0f3e1f..e83cc323 100644 --- 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 diff --git a/mlprec/impl/mld_zaggrmat_smth_asb.F90 b/mlprec/impl/mld_zaggrmat_smth_asb.F90 index 883a47cc..e5f72174 100644 --- 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