Fix loose PRIVATE method declarations.

mlprec/mld_c_gs_solver.f90

@@ -91,11 +91,9 @@ module mld_c_gs_solver
   end type mld_c_bwgs_solver_type
 
 
-  private :: c_gs_solver_bld, c_gs_solver_apply, &
-       &  c_gs_solver_free,   &
+  private :: c_gs_solver_free,   &
        &  c_gs_solver_descr,  c_gs_solver_sizeof, &
-       &  c_gs_solver_default, c_gs_solver_dmp, &
-       &  c_gs_solver_apply_vect, c_gs_solver_get_nzeros, &
+       &  c_gs_solver_default, c_gs_solver_get_nzeros, &
        &  c_gs_solver_get_fmt, c_gs_solver_check,&
        &  c_gs_solver_is_iterative, &
        &  c_bwgs_solver_get_fmt, c_bwgs_solver_descr, &

mlprec/mld_c_ilu_solver.f90

@@ -88,11 +88,9 @@ module mld_c_ilu_solver
   end type mld_c_ilu_solver_type
 
 
-  private :: c_ilu_solver_bld, c_ilu_solver_apply, &
-       &  c_ilu_solver_free, &
+  private ::  c_ilu_solver_free, &
        &  c_ilu_solver_descr,  c_ilu_solver_sizeof, &
-       &  c_ilu_solver_default, c_ilu_solver_dmp, &
-       &  c_ilu_solver_apply_vect, c_ilu_solver_get_nzeros, &
+       &  c_ilu_solver_default, c_ilu_solver_get_nzeros, &
        &  c_ilu_solver_get_fmt, c_ilu_solver_check, &
        &  c_ilu_solver_get_id, c_ilu_solver_get_wrksize
 

mlprec/mld_c_jac_smoother.f90

@@ -77,7 +77,7 @@ module mld_c_jac_smoother
   end type mld_c_jac_smoother_type
 
 
-  private :: c_jac_smoother_free,   c_jac_smoother_descr, &
+  private :: c_jac_smoother_free,   &
        & c_jac_smoother_sizeof,  c_jac_smoother_get_nzeros, &
        & c_jac_smoother_get_fmt, c_jac_smoother_get_id, &
        & c_jac_smoother_get_wrksize

mlprec/mld_c_mumps_solver.F90

@@ -90,8 +90,8 @@ module mld_c_mumps_solver
     procedure, pass(sv) :: cseti   => c_mumps_solver_cseti
     procedure, pass(sv) :: csetr   => c_mumps_solver_csetr
     procedure, pass(sv) :: default => c_mumps_solver_default
-    procedure, nopass   :: get_fmt => c_mumps_get_fmt
-    procedure, nopass   :: get_id  => c_mumps_get_id
+    procedure, nopass   :: get_fmt => c_mumps_solver_get_fmt
+    procedure, nopass   :: get_id  => c_mumps_solver_get_id
 #if defined(HAVE_FINAL) 
 
     final               :: c_mumps_solver_finalize
@@ -440,19 +440,19 @@ contains
   end function c_mumps_solver_sizeof
 #endif
 
-  function c_mumps_get_fmt() result(val)
+  function c_mumps_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "MUMPS solver"
-  end function c_mumps_get_fmt
+  end function c_mumps_solver_get_fmt
 
-  function c_mumps_get_id() result(val)
+  function c_mumps_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_mumps_
-  end function c_mumps_get_id
+  end function c_mumps_solver_get_id
 
 end module mld_c_mumps_solver
 

mlprec/mld_c_slu_solver.F90

@@ -69,8 +69,8 @@ module mld_c_slu_solver
     procedure, pass(sv) :: free    => c_slu_solver_free
     procedure, pass(sv) :: descr   => c_slu_solver_descr
     procedure, pass(sv) :: sizeof  => c_slu_solver_sizeof
-    procedure, nopass   :: get_fmt => c_slu_get_fmt
-    procedure, nopass   :: get_id  => c_slu_get_id
+    procedure, nopass   :: get_fmt => c_slu_solver_get_fmt
+    procedure, nopass   :: get_id  => c_slu_solver_get_id
 #if defined(HAVE_FINAL) 
     final               :: c_slu_solver_finalize
 #endif
@@ -411,18 +411,18 @@ contains
     return
   end function c_slu_solver_sizeof
 
-  function c_slu_get_fmt() result(val)
+  function c_slu_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "SuperLU solver"
-  end function c_slu_get_fmt
+  end function c_slu_solver_get_fmt
 
-  function c_slu_get_id() result(val)
+  function c_slu_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_slu_
-  end function c_slu_get_id
+  end function c_slu_solver_get_id
 #endif
 end module mld_c_slu_solver

mlprec/mld_d_gs_solver.f90

@@ -91,11 +91,9 @@ module mld_d_gs_solver
   end type mld_d_bwgs_solver_type
 
 
-  private :: d_gs_solver_bld, d_gs_solver_apply, &
-       &  d_gs_solver_free,   &
+  private :: d_gs_solver_free,   &
        &  d_gs_solver_descr,  d_gs_solver_sizeof, &
-       &  d_gs_solver_default, d_gs_solver_dmp, &
-       &  d_gs_solver_apply_vect, d_gs_solver_get_nzeros, &
+       &  d_gs_solver_default, d_gs_solver_get_nzeros, &
        &  d_gs_solver_get_fmt, d_gs_solver_check,&
        &  d_gs_solver_is_iterative, &
        &  d_bwgs_solver_get_fmt, d_bwgs_solver_descr, &

mlprec/mld_d_ilu_solver.f90

@@ -88,11 +88,9 @@ module mld_d_ilu_solver
   end type mld_d_ilu_solver_type
 
 
-  private :: d_ilu_solver_bld, d_ilu_solver_apply, &
-       &  d_ilu_solver_free, &
+  private ::  d_ilu_solver_free, &
        &  d_ilu_solver_descr,  d_ilu_solver_sizeof, &
-       &  d_ilu_solver_default, d_ilu_solver_dmp, &
-       &  d_ilu_solver_apply_vect, d_ilu_solver_get_nzeros, &
+       &  d_ilu_solver_default, d_ilu_solver_get_nzeros, &
        &  d_ilu_solver_get_fmt, d_ilu_solver_check, &
        &  d_ilu_solver_get_id, d_ilu_solver_get_wrksize
 

mlprec/mld_d_jac_smoother.f90

@@ -77,7 +77,7 @@ module mld_d_jac_smoother
   end type mld_d_jac_smoother_type
 
 
-  private :: d_jac_smoother_free,   d_jac_smoother_descr, &
+  private :: d_jac_smoother_free,   &
        & d_jac_smoother_sizeof,  d_jac_smoother_get_nzeros, &
        & d_jac_smoother_get_fmt, d_jac_smoother_get_id, &
        & d_jac_smoother_get_wrksize

mlprec/mld_d_mumps_solver.F90

@@ -90,8 +90,8 @@ module mld_d_mumps_solver
     procedure, pass(sv) :: cseti   => d_mumps_solver_cseti
     procedure, pass(sv) :: csetr   => d_mumps_solver_csetr
     procedure, pass(sv) :: default => d_mumps_solver_default
-    procedure, nopass   :: get_fmt => d_mumps_get_fmt
-    procedure, nopass   :: get_id  => d_mumps_get_id
+    procedure, nopass   :: get_fmt => d_mumps_solver_get_fmt
+    procedure, nopass   :: get_id  => d_mumps_solver_get_id
 #if defined(HAVE_FINAL) 
 
     final               :: d_mumps_solver_finalize
@@ -440,19 +440,19 @@ contains
   end function d_mumps_solver_sizeof
 #endif
 
-  function d_mumps_get_fmt() result(val)
+  function d_mumps_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "MUMPS solver"
-  end function d_mumps_get_fmt
+  end function d_mumps_solver_get_fmt
 
-  function d_mumps_get_id() result(val)
+  function d_mumps_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_mumps_
-  end function d_mumps_get_id
+  end function d_mumps_solver_get_id
 
 end module mld_d_mumps_solver
 

mlprec/mld_d_slu_solver.F90

@@ -69,8 +69,8 @@ module mld_d_slu_solver
     procedure, pass(sv) :: free    => d_slu_solver_free
     procedure, pass(sv) :: descr   => d_slu_solver_descr
     procedure, pass(sv) :: sizeof  => d_slu_solver_sizeof
-    procedure, nopass   :: get_fmt => d_slu_get_fmt
-    procedure, nopass   :: get_id  => d_slu_get_id
+    procedure, nopass   :: get_fmt => d_slu_solver_get_fmt
+    procedure, nopass   :: get_id  => d_slu_solver_get_id
 #if defined(HAVE_FINAL) 
     final               :: d_slu_solver_finalize
 #endif
@@ -411,18 +411,18 @@ contains
     return
   end function d_slu_solver_sizeof
 
-  function d_slu_get_fmt() result(val)
+  function d_slu_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "SuperLU solver"
-  end function d_slu_get_fmt
+  end function d_slu_solver_get_fmt
 
-  function d_slu_get_id() result(val)
+  function d_slu_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_slu_
-  end function d_slu_get_id
+  end function d_slu_solver_get_id
 #endif
 end module mld_d_slu_solver

mlprec/mld_d_sludist_solver.F90

@@ -68,8 +68,8 @@ module mld_d_sludist_solver
     procedure, pass(sv) :: free    => d_sludist_solver_free
     procedure, pass(sv) :: descr   => d_sludist_solver_descr
     procedure, pass(sv) :: sizeof  => d_sludist_solver_sizeof
-    procedure, nopass   :: get_fmt => d_sludist_get_fmt
-    procedure, nopass   :: get_id  => d_sludist_get_id
+    procedure, nopass   :: get_fmt => d_sludist_solver_get_fmt
+    procedure, nopass   :: get_id  => d_sludist_solver_get_id
 #if defined(HAVE_FINAL) 
     final               :: d_sludist_solver_finalize
 #endif
@@ -420,18 +420,18 @@ contains
     return
   end function d_sludist_solver_sizeof
 
-  function d_sludist_get_fmt() result(val)
+  function d_sludist_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "SuperLU_Dist solver"
-  end function d_sludist_get_fmt
+  end function d_sludist_solver_get_fmt
 
-  function d_sludist_get_id() result(val)
+  function d_sludist_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_sludist_
-  end function d_sludist_get_id
+  end function d_sludist_solver_get_id
 #endif
 end module mld_d_sludist_solver

mlprec/mld_d_umf_solver.F90

@@ -68,8 +68,8 @@ module mld_d_umf_solver
     procedure, pass(sv) :: free    => d_umf_solver_free
     procedure, pass(sv) :: descr   => d_umf_solver_descr
     procedure, pass(sv) :: sizeof  => d_umf_solver_sizeof
-    procedure, nopass   :: get_fmt => d_umf_get_fmt
-    procedure, nopass   :: get_id  => d_umf_get_id
+    procedure, nopass   :: get_fmt => d_umf_solver_get_fmt
+    procedure, nopass   :: get_id  => d_umf_solver_get_id
 #if defined(HAVE_FINAL) 
     final               :: d_umf_solver_finalize
 #endif
@@ -415,18 +415,18 @@ contains
     return
   end function d_umf_solver_sizeof
 
-  function d_umf_get_fmt() result(val)
+  function d_umf_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "UMFPACK solver"
-  end function d_umf_get_fmt
+  end function d_umf_solver_get_fmt
 
-  function d_umf_get_id() result(val)
+  function d_umf_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_umf_
-  end function d_umf_get_id
+  end function d_umf_solver_get_id
 #endif
 end module mld_d_umf_solver

mlprec/mld_s_gs_solver.f90

@@ -91,11 +91,9 @@ module mld_s_gs_solver
   end type mld_s_bwgs_solver_type
 
 
-  private :: s_gs_solver_bld, s_gs_solver_apply, &
-       &  s_gs_solver_free,   &
+  private :: s_gs_solver_free,   &
        &  s_gs_solver_descr,  s_gs_solver_sizeof, &
-       &  s_gs_solver_default, s_gs_solver_dmp, &
-       &  s_gs_solver_apply_vect, s_gs_solver_get_nzeros, &
+       &  s_gs_solver_default, s_gs_solver_get_nzeros, &
        &  s_gs_solver_get_fmt, s_gs_solver_check,&
        &  s_gs_solver_is_iterative, &
        &  s_bwgs_solver_get_fmt, s_bwgs_solver_descr, &

mlprec/mld_s_ilu_solver.f90

@@ -88,11 +88,9 @@ module mld_s_ilu_solver
   end type mld_s_ilu_solver_type
 
 
-  private :: s_ilu_solver_bld, s_ilu_solver_apply, &
-       &  s_ilu_solver_free, &
+  private ::  s_ilu_solver_free, &
        &  s_ilu_solver_descr,  s_ilu_solver_sizeof, &
-       &  s_ilu_solver_default, s_ilu_solver_dmp, &
-       &  s_ilu_solver_apply_vect, s_ilu_solver_get_nzeros, &
+       &  s_ilu_solver_default, s_ilu_solver_get_nzeros, &
        &  s_ilu_solver_get_fmt, s_ilu_solver_check, &
        &  s_ilu_solver_get_id, s_ilu_solver_get_wrksize
 

mlprec/mld_s_jac_smoother.f90

@@ -77,7 +77,7 @@ module mld_s_jac_smoother
   end type mld_s_jac_smoother_type
 
 
-  private :: s_jac_smoother_free,   s_jac_smoother_descr, &
+  private :: s_jac_smoother_free,   &
        & s_jac_smoother_sizeof,  s_jac_smoother_get_nzeros, &
        & s_jac_smoother_get_fmt, s_jac_smoother_get_id, &
        & s_jac_smoother_get_wrksize

mlprec/mld_s_mumps_solver.F90

@@ -90,8 +90,8 @@ module mld_s_mumps_solver
     procedure, pass(sv) :: cseti   => s_mumps_solver_cseti
     procedure, pass(sv) :: csetr   => s_mumps_solver_csetr
     procedure, pass(sv) :: default => s_mumps_solver_default
-    procedure, nopass   :: get_fmt => s_mumps_get_fmt
-    procedure, nopass   :: get_id  => s_mumps_get_id
+    procedure, nopass   :: get_fmt => s_mumps_solver_get_fmt
+    procedure, nopass   :: get_id  => s_mumps_solver_get_id
 #if defined(HAVE_FINAL) 
 
     final               :: s_mumps_solver_finalize
@@ -440,19 +440,19 @@ contains
   end function s_mumps_solver_sizeof
 #endif
 
-  function s_mumps_get_fmt() result(val)
+  function s_mumps_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "MUMPS solver"
-  end function s_mumps_get_fmt
+  end function s_mumps_solver_get_fmt
 
-  function s_mumps_get_id() result(val)
+  function s_mumps_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_mumps_
-  end function s_mumps_get_id
+  end function s_mumps_solver_get_id
 
 end module mld_s_mumps_solver
 

mlprec/mld_s_slu_solver.F90

@@ -69,8 +69,8 @@ module mld_s_slu_solver
     procedure, pass(sv) :: free    => s_slu_solver_free
     procedure, pass(sv) :: descr   => s_slu_solver_descr
     procedure, pass(sv) :: sizeof  => s_slu_solver_sizeof
-    procedure, nopass   :: get_fmt => s_slu_get_fmt
-    procedure, nopass   :: get_id  => s_slu_get_id
+    procedure, nopass   :: get_fmt => s_slu_solver_get_fmt
+    procedure, nopass   :: get_id  => s_slu_solver_get_id
 #if defined(HAVE_FINAL) 
     final               :: s_slu_solver_finalize
 #endif
@@ -411,18 +411,18 @@ contains
     return
   end function s_slu_solver_sizeof
 
-  function s_slu_get_fmt() result(val)
+  function s_slu_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "SuperLU solver"
-  end function s_slu_get_fmt
+  end function s_slu_solver_get_fmt
 
-  function s_slu_get_id() result(val)
+  function s_slu_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_slu_
-  end function s_slu_get_id
+  end function s_slu_solver_get_id
 #endif
 end module mld_s_slu_solver

mlprec/mld_z_gs_solver.f90

@@ -91,11 +91,9 @@ module mld_z_gs_solver
   end type mld_z_bwgs_solver_type
 
 
-  private :: z_gs_solver_bld, z_gs_solver_apply, &
-       &  z_gs_solver_free,   &
+  private :: z_gs_solver_free,   &
        &  z_gs_solver_descr,  z_gs_solver_sizeof, &
-       &  z_gs_solver_default, z_gs_solver_dmp, &
-       &  z_gs_solver_apply_vect, z_gs_solver_get_nzeros, &
+       &  z_gs_solver_default, z_gs_solver_get_nzeros, &
        &  z_gs_solver_get_fmt, z_gs_solver_check,&
        &  z_gs_solver_is_iterative, &
        &  z_bwgs_solver_get_fmt, z_bwgs_solver_descr, &

mlprec/mld_z_ilu_solver.f90

@@ -88,11 +88,9 @@ module mld_z_ilu_solver
   end type mld_z_ilu_solver_type
 
 
-  private :: z_ilu_solver_bld, z_ilu_solver_apply, &
-       &  z_ilu_solver_free, &
+  private ::  z_ilu_solver_free, &
        &  z_ilu_solver_descr,  z_ilu_solver_sizeof, &
-       &  z_ilu_solver_default, z_ilu_solver_dmp, &
-       &  z_ilu_solver_apply_vect, z_ilu_solver_get_nzeros, &
+       &  z_ilu_solver_default, z_ilu_solver_get_nzeros, &
        &  z_ilu_solver_get_fmt, z_ilu_solver_check, &
        &  z_ilu_solver_get_id, z_ilu_solver_get_wrksize
 

mlprec/mld_z_jac_smoother.f90

@@ -77,7 +77,7 @@ module mld_z_jac_smoother
   end type mld_z_jac_smoother_type
 
 
-  private :: z_jac_smoother_free,   z_jac_smoother_descr, &
+  private :: z_jac_smoother_free,   &
        & z_jac_smoother_sizeof,  z_jac_smoother_get_nzeros, &
        & z_jac_smoother_get_fmt, z_jac_smoother_get_id, &
        & z_jac_smoother_get_wrksize

mlprec/mld_z_mumps_solver.F90

@@ -90,8 +90,8 @@ module mld_z_mumps_solver
     procedure, pass(sv) :: cseti   => z_mumps_solver_cseti
     procedure, pass(sv) :: csetr   => z_mumps_solver_csetr
     procedure, pass(sv) :: default => z_mumps_solver_default
-    procedure, nopass   :: get_fmt => z_mumps_get_fmt
-    procedure, nopass   :: get_id  => z_mumps_get_id
+    procedure, nopass   :: get_fmt => z_mumps_solver_get_fmt
+    procedure, nopass   :: get_id  => z_mumps_solver_get_id
 #if defined(HAVE_FINAL) 
 
     final               :: z_mumps_solver_finalize
@@ -440,19 +440,19 @@ contains
   end function z_mumps_solver_sizeof
 #endif
 
-  function z_mumps_get_fmt() result(val)
+  function z_mumps_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "MUMPS solver"
-  end function z_mumps_get_fmt
+  end function z_mumps_solver_get_fmt
 
-  function z_mumps_get_id() result(val)
+  function z_mumps_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_mumps_
-  end function z_mumps_get_id
+  end function z_mumps_solver_get_id
 
 end module mld_z_mumps_solver
 

mlprec/mld_z_slu_solver.F90

@@ -69,8 +69,8 @@ module mld_z_slu_solver
     procedure, pass(sv) :: free    => z_slu_solver_free
     procedure, pass(sv) :: descr   => z_slu_solver_descr
     procedure, pass(sv) :: sizeof  => z_slu_solver_sizeof
-    procedure, nopass   :: get_fmt => z_slu_get_fmt
-    procedure, nopass   :: get_id  => z_slu_get_id
+    procedure, nopass   :: get_fmt => z_slu_solver_get_fmt
+    procedure, nopass   :: get_id  => z_slu_solver_get_id
 #if defined(HAVE_FINAL) 
     final               :: z_slu_solver_finalize
 #endif
@@ -411,18 +411,18 @@ contains
     return
   end function z_slu_solver_sizeof
 
-  function z_slu_get_fmt() result(val)
+  function z_slu_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "SuperLU solver"
-  end function z_slu_get_fmt
+  end function z_slu_solver_get_fmt
 
-  function z_slu_get_id() result(val)
+  function z_slu_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_slu_
-  end function z_slu_get_id
+  end function z_slu_solver_get_id
 #endif
 end module mld_z_slu_solver

mlprec/mld_z_sludist_solver.F90

@@ -68,8 +68,8 @@ module mld_z_sludist_solver
     procedure, pass(sv) :: free    => z_sludist_solver_free
     procedure, pass(sv) :: descr   => z_sludist_solver_descr
     procedure, pass(sv) :: sizeof  => z_sludist_solver_sizeof
-    procedure, nopass   :: get_fmt => z_sludist_get_fmt
-    procedure, nopass   :: get_id  => z_sludist_get_id
+    procedure, nopass   :: get_fmt => z_sludist_solver_get_fmt
+    procedure, nopass   :: get_id  => z_sludist_solver_get_id
 #if defined(HAVE_FINAL) 
     final               :: z_sludist_solver_finalize
 #endif
@@ -420,18 +420,18 @@ contains
     return
   end function z_sludist_solver_sizeof
 
-  function z_sludist_get_fmt() result(val)
+  function z_sludist_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "SuperLU_Dist solver"
-  end function z_sludist_get_fmt
+  end function z_sludist_solver_get_fmt
 
-  function z_sludist_get_id() result(val)
+  function z_sludist_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_sludist_
-  end function z_sludist_get_id
+  end function z_sludist_solver_get_id
 #endif
 end module mld_z_sludist_solver

mlprec/mld_z_umf_solver.F90

@@ -68,8 +68,8 @@ module mld_z_umf_solver
     procedure, pass(sv) :: free    => z_umf_solver_free
     procedure, pass(sv) :: descr   => z_umf_solver_descr
     procedure, pass(sv) :: sizeof  => z_umf_solver_sizeof
-    procedure, nopass   :: get_fmt => z_umf_get_fmt
-    procedure, nopass   :: get_id  => z_umf_get_id
+    procedure, nopass   :: get_fmt => z_umf_solver_get_fmt
+    procedure, nopass   :: get_id  => z_umf_solver_get_id
 #if defined(HAVE_FINAL) 
     final               :: z_umf_solver_finalize
 #endif
@@ -415,18 +415,18 @@ contains
     return
   end function z_umf_solver_sizeof
 
-  function z_umf_get_fmt() result(val)
+  function z_umf_solver_get_fmt() result(val)
     implicit none 
     character(len=32)  :: val
 
     val = "UMFPACK solver"
-  end function z_umf_get_fmt
+  end function z_umf_solver_get_fmt
 
-  function z_umf_get_id() result(val)
+  function z_umf_solver_get_id() result(val)
     implicit none 
     integer(psb_ipk_)  :: val
 
     val = mld_umf_
-  end function z_umf_get_id
+  end function z_umf_solver_get_id
 #endif
 end module mld_z_umf_solver