Fixed protect name.

17 years ago · 0cdeef16d0
parent c1778c802f
commit 0cdeef16d0
1 changed files with 1 additions and 1 deletions
--- 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