From ba931f4207be44f224ec10d0d766dee84a7d7c96 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 2 Sep 2010 18:25:22 +0000
Subject: [PATCH] Fixed descriptive message print.

---
 mlprec/mld_d_ilu_solver.f03 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mlprec/mld_d_ilu_solver.f03 b/mlprec/mld_d_ilu_solver.f03
index 4e046468..7b432738 100644
--- a/mlprec/mld_d_ilu_solver.f03
+++ b/mlprec/mld_d_ilu_solver.f03
@@ -109,7 +109,8 @@ module mld_d_ilu_solver
   end interface
 
   character(len=15), parameter, private :: &
-       &  fact_names(0:3)=(/'none          ','ILU(n)        ',&
+       &  fact_names(0:4)=(/'none          ','DIAG ??       ',&
+       &  'ILU(n)        ',&
        &  'MILU(n)       ','ILU(t,n)      '/)