From 4e91e8d2c604f775966542cd1aba4c218a5a64a4 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 19 Oct 2007 13:13:16 +0000
Subject: [PATCH] Fixed mld_ name glitch.

---
 mlprec/mld_dslu_bld.f90 | 4 ++--
 mlprec/mld_dumf_bld.f90 | 4 ++--
 mlprec/mld_zslu_bld.f90 | 4 ++--
 mlprec/mld_zumf_bld.f90 | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/mlprec/mld_dslu_bld.f90 b/mlprec/mld_dslu_bld.f90
index 523ff9a4..f467dd88 100644
--- a/mlprec/mld_dslu_bld.f90
+++ b/mlprec/mld_dslu_bld.f90
@@ -67,7 +67,7 @@ subroutine mld_dslu_bld(a,desc_a,p,info)
   nzt = psb_sp_get_nnzeros(a)
 
   if (Debug) then 
-    write(0,*) me,'Calling psb_mld_slu_factor ',nzt,a%m,&
+    write(0,*) me,'Calling mld_slu_factor ',nzt,a%m,&
          & a%k,p%desc_data%matrix_data(psb_n_row_)
     call psb_barrier(ictxt)
   endif
@@ -76,7 +76,7 @@ subroutine mld_dslu_bld(a,desc_a,p,info)
        & a%aspk,a%ia2,a%ia1,p%iprcparm(mld_slu_ptr_),info)
 
   if (info /= 0) then
-    ch_err='psb_mld_slu_fact'
+    ch_err='mld_slu_fact'
     call psb_errpush(4110,name,a_err=ch_err,i_err=(/info,0,0,0,0/))
     goto 9999
   end if
diff --git a/mlprec/mld_dumf_bld.f90 b/mlprec/mld_dumf_bld.f90
index 0480f08f..c1a33b6b 100644
--- a/mlprec/mld_dumf_bld.f90
+++ b/mlprec/mld_dumf_bld.f90
@@ -66,7 +66,7 @@ subroutine mld_dumf_bld(a,desc_a,p,info)
   nzt = psb_sp_get_nnzeros(a)
 
   if (Debug) then 
-    write(0,*) me,'Calling psb_mld_umf_factor ',nzt,a%m,&
+    write(0,*) me,'Calling mld_umf_factor ',nzt,a%m,&
          & a%k,p%desc_data%matrix_data(psb_n_row_)
     open(80+me)
     call psb_csprt(80+me,a)
@@ -81,7 +81,7 @@ subroutine mld_dumf_bld(a,desc_a,p,info)
   if (info /= 0) then
     i_err(1) = info 
     info=4110
-    call psb_errpush(info,name,a_err='psb_mld_umf_fact',i_err=i_err)
+    call psb_errpush(info,name,a_err='mld_umf_fact',i_err=i_err)
     goto 9999
   end if
 
diff --git a/mlprec/mld_zslu_bld.f90 b/mlprec/mld_zslu_bld.f90
index cf6c498b..15c26721 100644
--- a/mlprec/mld_zslu_bld.f90
+++ b/mlprec/mld_zslu_bld.f90
@@ -67,7 +67,7 @@ subroutine mld_zslu_bld(a,desc_a,p,info)
   nzt = psb_sp_get_nnzeros(a)
 
   if (Debug) then 
-    write(0,*) me,'Calling psb_mld_slu_factor ',nzt,a%m,&
+    write(0,*) me,'Calling mld_slu_factor ',nzt,a%m,&
          & a%k,p%desc_data%matrix_data(psb_n_row_)
     call psb_barrier(ictxt)
   endif
@@ -76,7 +76,7 @@ subroutine mld_zslu_bld(a,desc_a,p,info)
        & a%aspk,a%ia2,a%ia1,p%iprcparm(mld_slu_ptr_),info)
 
   if (info /= 0) then
-    ch_err='psb_mld_slu_fact'
+    ch_err='mld_slu_fact'
     call psb_errpush(4110,name,a_err=ch_err,i_err=(/info,0,0,0,0/))
     goto 9999
   end if
diff --git a/mlprec/mld_zumf_bld.f90 b/mlprec/mld_zumf_bld.f90
index 7d1e597b..a0c0851b 100644
--- a/mlprec/mld_zumf_bld.f90
+++ b/mlprec/mld_zumf_bld.f90
@@ -67,7 +67,7 @@ subroutine mld_zumf_bld(a,desc_a,p,info)
   nzt = psb_sp_get_nnzeros(a)
 
   if (Debug) then 
-    write(0,*) me,'Calling psb_mld_umf_factor ',nzt,a%m,&
+    write(0,*) me,'Calling mld_umf_factor ',nzt,a%m,&
          & a%k,p%desc_data%matrix_data(psb_n_row_)
     open(80+me)
     call psb_csprt(80+me,a)
@@ -82,7 +82,7 @@ subroutine mld_zumf_bld(a,desc_a,p,info)
   if (info /= 0) then
     i_err(1) = info 
     info=4110
-    call psb_errpush(info,name,a_err='psb_mld_umf_fact',i_err=i_err)
+    call psb_errpush(info,name,a_err='mld_umf_fact',i_err=i_err)
     goto 9999
   end if