From 68b0e5fc8b05d926dd5c46c4c556f7495e256c1e Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 6 Dec 2012 11:09:42 +0000
Subject: [PATCH] mld2p4-2:  mlprec/impl/mld_ccoarse_bld.f90 
 mlprec/impl/mld_dcoarse_bld.f90  mlprec/impl/mld_scoarse_bld.f90 
 mlprec/impl/mld_zcoarse_bld.f90

 fix integer kinds.
---
 mlprec/impl/mld_ccoarse_bld.f90 | 13 +++++++------
 mlprec/impl/mld_dcoarse_bld.f90 | 13 +++++++------
 mlprec/impl/mld_scoarse_bld.f90 | 13 +++++++------
 mlprec/impl/mld_zcoarse_bld.f90 | 13 +++++++------
 4 files changed, 28 insertions(+), 24 deletions(-)

diff --git a/mlprec/impl/mld_ccoarse_bld.f90 b/mlprec/impl/mld_ccoarse_bld.f90
index f9a055d6..60f49f42 100644
--- a/mlprec/impl/mld_ccoarse_bld.f90
+++ b/mlprec/impl/mld_ccoarse_bld.f90
@@ -73,15 +73,16 @@ subroutine mld_ccoarse_bld(a,desc_a,p,info)
   implicit none
 
   ! Arguments
-  type(psb_cspmat_type), intent(in), target    :: a
-  type(psb_desc_type), intent(in), target      :: desc_a
+  type(psb_cspmat_type), intent(in), target     :: a
+  type(psb_desc_type), intent(in), target       :: desc_a
   type(mld_c_onelev_type), intent(inout),target :: p
-  integer, intent(out)                         :: info
+  integer(psb_ipk_), intent(out)                :: info
 
   ! Local variables
-  character(len=20)      :: name
-  integer                :: ictxt, np, me, err_act
-  integer, allocatable   :: ilaggr(:), nlaggr(:)
+  character(len=20)                :: name
+  integer(psb_mpik_)               :: ictxt, np, me
+  integer(psb_ipk_)                :: err_act
+  integer(psb_ipk_), allocatable   :: ilaggr(:), nlaggr(:)
 
   name='mld_ccoarse_bld'
   if (psb_get_errstatus().ne.0) return 
diff --git a/mlprec/impl/mld_dcoarse_bld.f90 b/mlprec/impl/mld_dcoarse_bld.f90
index ae937a77..40c4c6e4 100644
--- a/mlprec/impl/mld_dcoarse_bld.f90
+++ b/mlprec/impl/mld_dcoarse_bld.f90
@@ -73,15 +73,16 @@ subroutine mld_dcoarse_bld(a,desc_a,p,info)
   implicit none
 
   ! Arguments
-  type(psb_dspmat_type), intent(in), target    :: a
-  type(psb_desc_type), intent(in), target      :: desc_a
+  type(psb_dspmat_type), intent(in), target     :: a
+  type(psb_desc_type), intent(in), target       :: desc_a
   type(mld_d_onelev_type), intent(inout),target :: p
-  integer, intent(out)                         :: info
+  integer(psb_ipk_), intent(out)                :: info
 
   ! Local variables
-  character(len=20)      :: name
-  integer                :: ictxt, np, me, err_act
-  integer, allocatable   :: ilaggr(:), nlaggr(:)
+  character(len=20)                :: name
+  integer(psb_mpik_)               :: ictxt, np, me
+  integer(psb_ipk_)                :: err_act
+  integer(psb_ipk_), allocatable   :: ilaggr(:), nlaggr(:)
 
   name='mld_dcoarse_bld'
   if (psb_get_errstatus().ne.0) return 
diff --git a/mlprec/impl/mld_scoarse_bld.f90 b/mlprec/impl/mld_scoarse_bld.f90
index f047efb3..2f79ff04 100644
--- a/mlprec/impl/mld_scoarse_bld.f90
+++ b/mlprec/impl/mld_scoarse_bld.f90
@@ -73,15 +73,16 @@ subroutine mld_scoarse_bld(a,desc_a,p,info)
   implicit none
 
   ! Arguments
-  type(psb_sspmat_type), intent(in), target    :: a
-  type(psb_desc_type), intent(in), target      :: desc_a
+  type(psb_sspmat_type), intent(in), target     :: a
+  type(psb_desc_type), intent(in), target       :: desc_a
   type(mld_s_onelev_type), intent(inout),target :: p
-  integer, intent(out)                         :: info
+  integer(psb_ipk_), intent(out)                :: info
 
   ! Local variables
-  character(len=20)      :: name
-  integer                :: ictxt, np, me, err_act
-  integer, allocatable   :: ilaggr(:), nlaggr(:)
+  character(len=20)                :: name
+  integer(psb_mpik_)               :: ictxt, np, me
+  integer(psb_ipk_)                :: err_act
+  integer(psb_ipk_), allocatable   :: ilaggr(:), nlaggr(:)
 
   name='mld_scoarse_bld'
   if (psb_get_errstatus().ne.0) return 
diff --git a/mlprec/impl/mld_zcoarse_bld.f90 b/mlprec/impl/mld_zcoarse_bld.f90
index d97c3ae9..164cdcec 100644
--- a/mlprec/impl/mld_zcoarse_bld.f90
+++ b/mlprec/impl/mld_zcoarse_bld.f90
@@ -73,15 +73,16 @@ subroutine mld_zcoarse_bld(a,desc_a,p,info)
   implicit none
 
   ! Arguments
-  type(psb_zspmat_type), intent(in), target    :: a
-  type(psb_desc_type), intent(in), target      :: desc_a
+  type(psb_zspmat_type), intent(in), target     :: a
+  type(psb_desc_type), intent(in), target       :: desc_a
   type(mld_z_onelev_type), intent(inout),target :: p
-  integer, intent(out)                         :: info
+  integer(psb_ipk_), intent(out)                :: info
 
   ! Local variables
-  character(len=20)      :: name
-  integer                :: ictxt, np, me, err_act
-  integer, allocatable   :: ilaggr(:), nlaggr(:)
+  character(len=20)                :: name
+  integer(psb_mpik_)               :: ictxt, np, me
+  integer(psb_ipk_)                :: err_act
+  integer(psb_ipk_), allocatable   :: ilaggr(:), nlaggr(:)
 
   name='mld_zcoarse_bld'
   if (psb_get_errstatus().ne.0) return