From 02abb91ebc9cca136360c9d57541a5c42aa57172 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 4 Mar 2019 18:12:13 +0000
Subject: [PATCH] Formatting changes

---
 mlprec/mld_c_ilu_solver.f90 | 6 +++---
 mlprec/mld_d_ilu_solver.f90 | 6 +++---
 mlprec/mld_s_ilu_solver.f90 | 6 +++---
 mlprec/mld_z_ilu_solver.f90 | 6 +++---
 4 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/mlprec/mld_c_ilu_solver.f90 b/mlprec/mld_c_ilu_solver.f90
index 9c291fca..35469561 100644
--- a/mlprec/mld_c_ilu_solver.f90
+++ b/mlprec/mld_c_ilu_solver.f90
@@ -387,7 +387,7 @@ contains
     logical, intent(in), optional       :: coarse
 
     ! Local variables
-    integer(psb_ipk_)      :: err_act
+    integer(psb_ipk_) :: err_act
     character(len=20), parameter :: name='mld_c_ilu_solver_descr'
     integer(psb_ipk_) :: iout_
 
@@ -422,7 +422,7 @@ contains
     ! Arguments
     class(mld_c_ilu_solver_type), intent(in) :: sv
     integer(psb_epk_) :: val
-    integer(psb_ipk_)        :: i
+    integer(psb_ipk_) :: i
     
     val = 0 
     val = val + sv%dv%get_nrows()
@@ -438,7 +438,7 @@ contains
     ! Arguments
     class(mld_c_ilu_solver_type), intent(in) :: sv
     integer(psb_epk_) :: val
-    integer(psb_ipk_)        :: i
+    integer(psb_ipk_) :: i
 
     val = 2*psb_sizeof_ip + (2*psb_sizeof_sp)
     val = val + sv%dv%sizeof()
diff --git a/mlprec/mld_d_ilu_solver.f90 b/mlprec/mld_d_ilu_solver.f90
index e7a9d75c..72c6989e 100644
--- a/mlprec/mld_d_ilu_solver.f90
+++ b/mlprec/mld_d_ilu_solver.f90
@@ -387,7 +387,7 @@ contains
     logical, intent(in), optional       :: coarse
 
     ! Local variables
-    integer(psb_ipk_)      :: err_act
+    integer(psb_ipk_) :: err_act
     character(len=20), parameter :: name='mld_d_ilu_solver_descr'
     integer(psb_ipk_) :: iout_
 
@@ -422,7 +422,7 @@ contains
     ! Arguments
     class(mld_d_ilu_solver_type), intent(in) :: sv
     integer(psb_epk_) :: val
-    integer(psb_ipk_)        :: i
+    integer(psb_ipk_) :: i
     
     val = 0 
     val = val + sv%dv%get_nrows()
@@ -438,7 +438,7 @@ contains
     ! Arguments
     class(mld_d_ilu_solver_type), intent(in) :: sv
     integer(psb_epk_) :: val
-    integer(psb_ipk_)        :: i
+    integer(psb_ipk_) :: i
 
     val = 2*psb_sizeof_ip + psb_sizeof_dp
     val = val + sv%dv%sizeof()
diff --git a/mlprec/mld_s_ilu_solver.f90 b/mlprec/mld_s_ilu_solver.f90
index 24e311b3..0af63304 100644
--- a/mlprec/mld_s_ilu_solver.f90
+++ b/mlprec/mld_s_ilu_solver.f90
@@ -387,7 +387,7 @@ contains
     logical, intent(in), optional       :: coarse
 
     ! Local variables
-    integer(psb_ipk_)      :: err_act
+    integer(psb_ipk_) :: err_act
     character(len=20), parameter :: name='mld_s_ilu_solver_descr'
     integer(psb_ipk_) :: iout_
 
@@ -422,7 +422,7 @@ contains
     ! Arguments
     class(mld_s_ilu_solver_type), intent(in) :: sv
     integer(psb_epk_) :: val
-    integer(psb_ipk_)        :: i
+    integer(psb_ipk_) :: i
     
     val = 0 
     val = val + sv%dv%get_nrows()
@@ -438,7 +438,7 @@ contains
     ! Arguments
     class(mld_s_ilu_solver_type), intent(in) :: sv
     integer(psb_epk_) :: val
-    integer(psb_ipk_)        :: i
+    integer(psb_ipk_) :: i
 
     val = 2*psb_sizeof_ip + psb_sizeof_sp
     val = val + sv%dv%sizeof()
diff --git a/mlprec/mld_z_ilu_solver.f90 b/mlprec/mld_z_ilu_solver.f90
index b0cf6196..7698df50 100644
--- a/mlprec/mld_z_ilu_solver.f90
+++ b/mlprec/mld_z_ilu_solver.f90
@@ -387,7 +387,7 @@ contains
     logical, intent(in), optional       :: coarse
 
     ! Local variables
-    integer(psb_ipk_)      :: err_act
+    integer(psb_ipk_) :: err_act
     character(len=20), parameter :: name='mld_z_ilu_solver_descr'
     integer(psb_ipk_) :: iout_
 
@@ -422,7 +422,7 @@ contains
     ! Arguments
     class(mld_z_ilu_solver_type), intent(in) :: sv
     integer(psb_epk_) :: val
-    integer(psb_ipk_)        :: i
+    integer(psb_ipk_) :: i
     
     val = 0 
     val = val + sv%dv%get_nrows()
@@ -438,7 +438,7 @@ contains
     ! Arguments
     class(mld_z_ilu_solver_type), intent(in) :: sv
     integer(psb_epk_) :: val
-    integer(psb_ipk_)        :: i
+    integer(psb_ipk_) :: i
 
     val = 2*psb_sizeof_ip + (2*psb_sizeof_dp)
     val = val + sv%dv%sizeof()