From 0cdeef16d0fb7ff250cf269f9cec97dc7a9a3d1f Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 25 Oct 2007 09:43:29 +0000
Subject: [PATCH] Fixed protect name.

---
 mlprec/mld_ziluk_fct.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mlprec/mld_ziluk_fct.f90 b/mlprec/mld_ziluk_fct.f90
index eb9980af..ba9aa6ca 100644
--- a/mlprec/mld_ziluk_fct.f90
+++ b/mlprec/mld_ziluk_fct.f90
@@ -42,7 +42,7 @@ subroutine mld_ziluk_fct(fill_in,ialg,a,l,u,d,info,blck)
   !
   !
   use psb_base_mod
-  use mld_prec_mod, mld_protect_name => mld_diluk_fct
+  use mld_prec_mod, mld_protect_name => mld_ziluk_fct
   implicit none
   !     .. Scalar Arguments ..
   integer, intent(in)                 :: fill_in, ialg