Fixed mld_ name glitch.

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

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
 

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

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