diff --git a/cbind/mlprec/Makefile b/cbind/mlprec/Makefile
index 6ddd7152..37231cda 100644
--- a/cbind/mlprec/Makefile
+++ b/cbind/mlprec/Makefile
@@ -10,8 +10,8 @@ CINCLUDES=-I. -I$(LIBDIR) -I$(PSBLAS_INCDIR)
 FINCLUDES=$(FMFLAG)$(HERE) $(FMFLAG)$(INCDIR) $(FMFLAG)$(MODDIR) $(PSBLAS_INCLUDES)
 
 
-OBJS=mld_prec_cbind_mod.o mld_dprec_cbind_mod.o  mld_c_dprec.o
-CMOD=mld_cbind.h mld_c_dprec.h mld_const.h
+OBJS=mld_prec_cbind_mod.o mld_dprec_cbind_mod.o  mld_c_dprec.o mld_zprec_cbind_mod.o  mld_c_zprec.o
+CMOD=mld_cbind.h mld_c_dprec.h  mld_c_zprec.h mld_const.h
 
 
 LIBMOD=mld_prec_cbind_mod$(.mod) 
@@ -25,7 +25,7 @@ lib:  $(OBJS) $(CMOD)
 	/bin/cp -p $(HERE)/$(LIBNAME) $(DEST)
 	/bin/cp -p $(LIBMOD) $(CMOD) $(DEST)
 
-mld_prec_cbind_mod.o: mld_dprec_cbind_mod.o 
+mld_prec_cbind_mod.o: mld_dprec_cbind_mod.o  mld_zprec_cbind_mod.o 
 #mld_prec_cbind_mod.o: psb_prec_cbind_mod.o
 veryclean: clean
 	/bin/rm -f $(HERE)/$(LIBNAME)
diff --git a/cbind/mlprec/mld_c_dprec.c b/cbind/mlprec/mld_c_dprec.c
index bf056619..b2b3909c 100644
--- a/cbind/mlprec/mld_c_dprec.c
+++ b/cbind/mlprec/mld_c_dprec.c
@@ -1,7 +1,7 @@
 #include <stdlib.h>
 #include "mld_c_dprec.h"
 
-mld_c_dprec* mld_c_new_dprec()
+mld_c_dprec* mld_c_dprec_new()
 {
   mld_c_dprec* temp;
   
@@ -11,7 +11,7 @@ mld_c_dprec* mld_c_new_dprec()
 }
 
 
-int mld_c_delete_dprec(mld_c_dprec* p)
+int mld_c_dprec_delete(mld_c_dprec* p)
 {
   int iret;
   iret=mld_c_dprecfree(p);
diff --git a/cbind/mlprec/mld_c_dprec.h b/cbind/mlprec/mld_c_dprec.h
index 364cbde4..d963fbfc 100644
--- a/cbind/mlprec/mld_c_dprec.h
+++ b/cbind/mlprec/mld_c_dprec.h
@@ -16,8 +16,8 @@ extern "C" {
     void *dprec;
   } mld_c_dprec; 
   
-  mld_c_dprec* mld_c_new_dprec();
-  psb_i_t mld_c_delete_dprec(mld_c_dprec* p);
+  mld_c_dprec* mld_c_dprec_new();
+  psb_i_t mld_c_dprec_delete(mld_c_dprec* p);
  
   psb_i_t mld_c_dprecinit(psb_i_t ictxt, mld_c_dprec *ph, const char *ptype);
   psb_i_t mld_c_dprecseti(mld_c_dprec *ph, const char *what, psb_i_t val);
diff --git a/cbind/mlprec/mld_c_zprec.c b/cbind/mlprec/mld_c_zprec.c
new file mode 100644
index 00000000..bf056619
--- /dev/null
+++ b/cbind/mlprec/mld_c_zprec.c
@@ -0,0 +1,21 @@
+#include <stdlib.h>
+#include "mld_c_dprec.h"
+
+mld_c_dprec* mld_c_new_dprec()
+{
+  mld_c_dprec* temp;
+  
+  temp=(mld_c_dprec *) malloc(sizeof(mld_c_dprec));
+  temp->dprec=NULL;
+  return(temp);
+}
+
+
+int mld_c_delete_dprec(mld_c_dprec* p)
+{
+  int iret;
+  iret=mld_c_dprecfree(p);
+  if (iret ==0) free(p);
+  return(iret);
+}
+
diff --git a/cbind/mlprec/mld_c_zprec.h b/cbind/mlprec/mld_c_zprec.h
new file mode 100644
index 00000000..7d776a7b
--- /dev/null
+++ b/cbind/mlprec/mld_c_zprec.h
@@ -0,0 +1,43 @@
+#ifndef MLD_C_ZPREC_
+#define MLD_C_ZPREC_
+
+#include "mld_const.h"
+#include "psb_base_cbind.h"
+#include "psb_prec_cbind.h"
+#include "psb_krylov_cbind.h"
+
+/* Object handle related routines */
+/* Note:  mld_get_XXX_handle returns:  <= 0  unsuccessful */
+/*                                     >0    valid handle */
+#ifdef __cplusplus
+extern "C" {
+#endif
+  typedef struct MLD_C_ZPREC {
+    void *dprec;
+  } mld_c_zprec; 
+  
+  mld_c_zprec* mld_c_zprec_new();
+  psb_i_t mld_c_zprec_delete(mld_c_zprec* p);
+ 
+  psb_i_t mld_c_zprecinit(psb_i_t ictxt, mld_c_zprec *ph, const char *ptype);
+  psb_i_t mld_c_zprecseti(mld_c_zprec *ph, const char *what, psb_i_t val);
+  psb_i_t mld_c_zprecsetc(mld_c_zprec *ph, const char *what, const char *val);
+  psb_i_t mld_c_zprecsetr(mld_c_zprec *ph, const char *what, double val);
+  psb_i_t mld_c_zprecbld(psb_c_dspmat *ah, psb_c_descriptor *cdh, mld_c_zprec *ph);
+  psb_i_t mld_c_zhierarchy_build(psb_c_dspmat *ah, psb_c_descriptor *cdh, mld_c_zprec *ph);
+  psb_i_t mld_c_zsmoothers_build(psb_c_dspmat *ah, psb_c_descriptor *cdh, mld_c_zprec *ph);
+  psb_i_t mld_c_zprecfree(mld_c_zprec *ph);
+  psb_i_t mld_c_zprecbld_opt(psb_c_zspmat *ah, psb_c_descriptor *cdh, 
+			  mld_c_zprec *ph, const char *afmt);
+
+
+  psb_i_t mld_c_zkrylov(const char *method, psb_c_zspmat *ah, mld_c_zprec *ph, 
+		  psb_c_zvector *bh, psb_c_zvector *xh,
+		  psb_c_descriptor *cdh, psb_c_SolverOptions *opt);
+
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif
diff --git a/cbind/mlprec/mld_prec_cbind_mod.F90 b/cbind/mlprec/mld_prec_cbind_mod.F90
index e773beba..735e15a3 100644
--- a/cbind/mlprec/mld_prec_cbind_mod.F90
+++ b/cbind/mlprec/mld_prec_cbind_mod.F90
@@ -4,5 +4,6 @@ module mld_prec_cbind_mod
   use psb_base_cbind_mod
   use psb_prec_cbind_mod
   use mld_dprec_cbind_mod
+  use mld_zprec_cbind_mod
 
 end module mld_prec_cbind_mod
diff --git a/cbind/mlprec/mld_zprec_cbind_mod.F90 b/cbind/mlprec/mld_zprec_cbind_mod.F90
new file mode 100644
index 00000000..906bbead
--- /dev/null
+++ b/cbind/mlprec/mld_zprec_cbind_mod.F90
@@ -0,0 +1,381 @@
+module mld_zprec_cbind_mod
+
+  use iso_c_binding
+  use mld_prec_mod
+  use psb_base_cbind_mod
+
+  type, bind(c) :: mld_c_zprec
+    type(c_ptr) :: item = c_null_ptr
+  end type mld_c_zprec
+
+contains 
+
+#if 1
+#define MLDC_DEBUG(MSG) write(*,*) __FILE__,':',__LINE__,':',MSG
+#define MLDC_ERROR(MSG) write(*,*) __FILE__,':',__LINE__,':'," ERROR: ",MSG
+#else
+#define MLDC_DEBUG(MSG)
+#define MLDC_ERROR(MSG)
+#endif
+#define mld_success_ 0
+!#define MLDC_ERR_FILTER(INFO) min(0,INFO)
+#define MLDC_ERR_FILTER(INFO) (INFO)
+#define MLDC_ERR_HANDLE(INFO) if(INFO/=mld_success_)MLDC_ERROR("ERROR!")
+    
+  function  mld_c_zprecinit(ictxt,ph,ptype) bind(c) result(res)
+    use psb_base_mod
+    use mld_prec_mod
+    implicit none 
+    
+    integer(psb_c_ipk_)  :: res   
+    type(mld_c_zprec)    :: ph
+    integer(psb_c_ipk_), value :: ictxt
+    character(c_char)     :: ptype(*)
+    integer               :: info
+    type(mld_zprec_type), pointer :: precp
+    character(len=80)     :: fptype
+
+    res = -1
+    res = -1
+    if (c_associated(ph%item)) then 
+      return 
+    end if
+
+    allocate(precp,stat=info)
+    if (info /= 0) return
+    
+    ph%item = c_loc(precp)
+
+    call stringc2f(ptype,fptype)
+    
+    call precp%init(ictxt,fptype,info) 
+     
+    res = MLDC_ERR_FILTER(info)
+    MLDC_ERR_HANDLE(res)
+    return
+  end function mld_c_zprecinit
+
+  function  mld_c_zprecseti(ph,what,val) bind(c) result(res)
+    use psb_base_mod
+    use mld_prec_mod
+    implicit none 
+    
+    integer(psb_c_ipk_) :: res   
+    type(psb_c_object_type) :: ph
+    character(c_char)     :: what(*)
+    integer(psb_c_ipk_), value :: val
+    integer               :: info
+    character(len=80)     :: fwhat
+    type(mld_zprec_type), pointer  :: precp
+
+    res = -1
+    if (c_associated(ph%item)) then 
+      call c_f_pointer(ph%item,precp)
+    else
+      return 
+    end if
+
+    call stringc2f(what,fwhat)
+
+    call mld_precset(precp,fwhat,val,info) 
+     
+    res = MLDC_ERR_FILTER(info)
+    MLDC_ERR_HANDLE(res)
+    return
+  end function mld_c_zprecseti
+    
+
+  function  mld_c_zprecsetr(ph,what,val) bind(c) result(res)
+    use psb_base_mod
+    use mld_prec_mod
+    implicit none 
+    
+    integer(psb_c_ipk_) :: res   
+    type(psb_c_object_type) :: ph
+    character(c_char)     :: what(*)
+    real(c_double), value :: val
+    integer               :: info
+    character(len=80)     :: fwhat
+    type(mld_zprec_type), pointer  :: precp
+
+    res = -1
+    if (c_associated(ph%item)) then 
+      call c_f_pointer(ph%item,precp)
+    else
+      return 
+    end if
+
+    call stringc2f(what,fwhat)
+
+    call mld_precset(precp,fwhat,val,info) 
+     
+    res = MLDC_ERR_FILTER(info)
+    MLDC_ERR_HANDLE(res)
+    return
+  end function mld_c_zprecsetr
+  
+  function  mld_c_zprecsetc(ph,what,val) bind(c) result(res)
+    use psb_base_mod
+    use mld_prec_mod
+    implicit none 
+    
+    integer(psb_c_ipk_) :: res   
+    type(psb_c_object_type) :: ph
+    character(c_char)     :: what(*), val(*)
+    integer               :: info
+    character(len=80)     :: fwhat,fval
+    type(mld_zprec_type), pointer  :: precp
+
+    res = -1
+    if (c_associated(ph%item)) then 
+      call c_f_pointer(ph%item,precp)
+    else
+      return 
+    end if
+
+    call stringc2f(what,fwhat)
+    call stringc2f(val,fval)
+
+    call mld_precset(precp,fwhat,fval,info) 
+     
+    res = MLDC_ERR_FILTER(info)
+    MLDC_ERR_HANDLE(res)
+    return
+  end function mld_c_zprecsetc
+
+  function  mld_c_zprecbld(ah,cdh,ph) bind(c) result(res)
+    use psb_base_mod
+    use mld_prec_mod
+    implicit none 
+    
+    integer(psb_c_ipk_) :: res   
+    type(psb_c_object_type)  :: ph,ah,cdh
+    integer               :: info
+    type(mld_zprec_type), pointer  :: precp
+    type(psb_zspmat_type), pointer :: ap
+    type(psb_desc_type), pointer   :: descp
+    character(len=80)     :: fptype
+
+    res = -1
+
+    if (c_associated(cdh%item)) then 
+      call c_f_pointer(cdh%item,descp)
+    else
+      return 
+    end if
+    if (c_associated(ah%item)) then 
+      call c_f_pointer(ah%item,ap)
+    else
+      return 
+    end if
+    if (c_associated(ph%item)) then 
+      call c_f_pointer(ph%item,precp)
+    else
+      return 
+    end if
+
+    call mld_precbld(ap,descp,precp,info) 
+
+    res = MLDC_ERR_FILTER(info)
+    MLDC_ERR_HANDLE(res)
+
+    return
+  end function mld_c_zprecbld
+    
+  function  mld_c_zhierarchy_build(ah,cdh,ph) bind(c) result(res)
+    use psb_base_mod
+    use mld_prec_mod
+    implicit none 
+    
+    integer(psb_c_ipk_) :: res   
+    type(psb_c_object_type)  :: ph,ah,cdh
+    integer               :: info
+    type(mld_zprec_type), pointer  :: precp
+    type(psb_zspmat_type), pointer :: ap
+    type(psb_desc_type), pointer   :: descp
+    character(len=80)     :: fptype
+
+    res = -1
+
+    if (c_associated(cdh%item)) then 
+      call c_f_pointer(cdh%item,descp)
+    else
+      return 
+    end if
+    if (c_associated(ah%item)) then 
+      call c_f_pointer(ah%item,ap)
+    else
+      return 
+    end if
+    if (c_associated(ph%item)) then 
+      call c_f_pointer(ph%item,precp)
+    else
+      return 
+    end if
+
+    call precp%hierarchy_build(ap,descp,info) 
+
+    res = MLDC_ERR_FILTER(info)
+    MLDC_ERR_HANDLE(res)
+
+    return
+  end function mld_c_zhierarchy_build
+
+  function  mld_c_zsmoothers_build(ah,cdh,ph) bind(c) result(res)
+    use psb_base_mod
+    use mld_prec_mod
+    implicit none 
+    
+    integer(psb_c_ipk_) :: res   
+    type(psb_c_object_type)  :: ph,ah,cdh
+    integer               :: info
+    type(mld_zprec_type), pointer  :: precp
+    type(psb_zspmat_type), pointer :: ap
+    type(psb_desc_type), pointer   :: descp
+    character(len=80)     :: fptype
+
+    res = -1
+
+    if (c_associated(cdh%item)) then 
+      call c_f_pointer(cdh%item,descp)
+    else
+      return 
+    end if
+    if (c_associated(ah%item)) then 
+      call c_f_pointer(ah%item,ap)
+    else
+      return 
+    end if
+    if (c_associated(ph%item)) then 
+      call c_f_pointer(ph%item,precp)
+    else
+      return 
+    end if
+
+    call precp%smoothers_build(ap,descp,info) 
+
+    res = MLDC_ERR_FILTER(info)
+    MLDC_ERR_HANDLE(res)
+
+    return
+  end function mld_c_zsmoothers_build
+    
+  function  mld_c_zkrylov(methd,&
+       & ah,ph,bh,xh,cdh,options) bind(c) result(res)
+    use psb_base_mod
+    use psb_prec_mod
+    use psb_krylov_mod
+    use psb_prec_cbind_mod
+    use psb_zkrylov_cbind_mod
+    implicit none 
+    integer(psb_c_ipk_)          :: res
+    type(psb_c_object_type) :: ah,cdh,ph,bh,xh
+    character(c_char)       :: methd(*)
+    type(solveroptions)     :: options
+    
+    res= mld_c_zkrylov_opt(methd, ah, ph, bh, xh, options%eps,cdh,  &
+         & itmax=options%itmax, iter=options%iter,&
+         & itrace=options%itrace, istop=options%istop,&
+         & irst=options%irst, err=options%err)
+    
+  end function mld_c_zkrylov
+
+
+  function  mld_c_zkrylov_opt(methd,&
+       & ah,ph,bh,xh,eps,cdh,itmax,iter,err,itrace,irst,istop) bind(c) result(res)
+    use psb_base_mod
+    use psb_prec_mod
+    use psb_krylov_mod
+    use psb_objhandle_mod
+    use psb_prec_cbind_mod
+    use psb_base_string_cbind_mod
+    implicit none 
+    integer(psb_c_ipk_)          :: res
+    type(psb_c_object_type) :: ah,cdh,ph,bh,xh
+    integer(psb_c_ipk_), value :: itmax,itrace,irst,istop
+    real(c_double), value :: eps
+    integer(psb_c_ipk_)        :: iter
+    real(c_double)        :: err
+    character(c_char)       :: methd(*)
+    type(psb_desc_type), pointer   :: descp
+    type(psb_zspmat_type), pointer :: ap
+    type(mld_zprec_type), pointer  :: precp
+    type(psb_z_vect_type), pointer :: xp, bp
+
+    integer               :: info,fitmax,fitrace,first,fistop,fiter
+    character(len=20)     :: fmethd
+    real(kind(1.d0))      :: feps,ferr
+
+    res = -1
+    if (c_associated(cdh%item)) then 
+      call c_f_pointer(cdh%item,descp)
+    else
+      return 
+    end if
+    if (c_associated(xh%item)) then 
+      call c_f_pointer(xh%item,xp)
+    else
+      return 
+    end if
+    if (c_associated(bh%item)) then 
+      call c_f_pointer(bh%item,bp)
+    else
+      return 
+    end if
+    if (c_associated(ah%item)) then 
+      call c_f_pointer(ah%item,ap)
+    else
+      return 
+    end if
+    if (c_associated(ph%item)) then 
+      call c_f_pointer(ph%item,precp)
+    else
+      return 
+    end if
+
+    
+    call stringc2f(methd,fmethd)
+    feps    = eps
+    fitmax  = itmax
+    fitrace = itrace
+    first   = irst
+    fistop  = istop
+
+    call psb_krylov(fmethd, ap, precp, bp, xp, feps, &
+         & descp, info,&
+         & itmax=fitmax,iter=fiter,itrace=fitrace,istop=fistop,&
+         & irst=first, err=ferr)
+    iter = fiter
+    err  = ferr
+    res = min(info,0)
+    
+  end function mld_c_zkrylov_opt
+
+  function  mld_c_zprecfree(ph) bind(c) result(res)
+    use psb_base_mod
+    use mld_prec_mod
+    implicit none 
+    
+    integer(psb_c_ipk_) :: res   
+    type(psb_c_object_type) :: ph
+    integer               :: info
+    type(mld_zprec_type), pointer :: precp
+    character(len=80)     :: fptype
+
+    res = -1
+    if (c_associated(ph%item)) then 
+      call c_f_pointer(ph%item,precp)
+    else
+      return 
+    end if
+
+        
+    call precp%free(info) 
+     
+    res = MLDC_ERR_FILTER(info)
+    MLDC_ERR_HANDLE(res)
+    return
+  end function mld_c_zprecfree
+
+end module mld_zprec_cbind_mod
+