Fixed descriptive message print.

15 years ago · ba931f4207
parent 34aeacf28c
commit ba931f4207
1 changed files with 2 additions and 1 deletions
--- 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)      '/)