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)      '/)