*** empty log message ***

krylov/psb_krylov_mod.f90

@@ -40,23 +40,6 @@ Module psb_krylov_mod
 
   interface psb_krylov
     
-    Subroutine psb_skrylov(method,a,prec,b,x,eps,desc_a,info,&
-         & itmax,iter,err,itrace,irst,istop,cond)
-      use psb_base_mod, only  : psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_
-      use psb_prec_mod,only : psb_sprec_type
-      
-      character(len=*)                   :: method
-      Type(psb_sspmat_type), Intent(in)  :: a
-      Type(psb_desc_type), Intent(in)    :: desc_a
-      class(psb_sprec_type), intent(in)   :: prec 
-      Real(psb_spk_), Intent(in)       :: b(:)
-      Real(psb_spk_), Intent(inout)    :: x(:)
-      Real(psb_spk_), Intent(in)       :: eps
-      integer(psb_ipk_), intent(out)               :: info
-      integer(psb_ipk_), Optional, Intent(in)      :: itmax, itrace, irst,istop
-      integer(psb_ipk_), Optional, Intent(out)     :: iter
-      Real(psb_spk_), Optional, Intent(out) :: err,cond
-    end Subroutine psb_skrylov
     Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
          & itmax,iter,err,itrace,irst,istop,cond)
       
@@ -77,22 +60,7 @@ Module psb_krylov_mod
       Real(psb_spk_), Optional, Intent(out) :: err,cond
 
     end Subroutine psb_skrylov_vect
-    Subroutine psb_ckrylov(method,a,prec,b,x,eps,desc_a,info,&
-         & itmax,iter,err,itrace,irst,istop)
-      use psb_base_mod, only  : psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_
-      use psb_prec_mod, only : psb_cprec_type
-      character(len=*)                   :: method
-      Type(psb_cspmat_type), Intent(in)  :: a
-      Type(psb_desc_type), Intent(in)    :: desc_a
-      class(psb_cprec_type), intent(in)   :: prec 
-      complex(psb_spk_), Intent(in)      :: b(:)
-      complex(psb_spk_), Intent(inout)   :: x(:)
-      Real(psb_spk_), Intent(in)         :: eps
-      integer(psb_ipk_), intent(out)               :: info
-      integer(psb_ipk_), Optional, Intent(in)      :: itmax, itrace, irst,istop
-      integer(psb_ipk_), Optional, Intent(out)     :: iter
-      Real(psb_spk_), Optional, Intent(out) :: err
-    end Subroutine psb_ckrylov
+
     Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
          & itmax,iter,err,itrace,irst,istop,cond)
       
@@ -113,25 +81,7 @@ Module psb_krylov_mod
       Real(psb_spk_), Optional, Intent(out) :: err,cond
 
     end Subroutine psb_ckrylov_vect
-    Subroutine psb_dkrylov(method,a,prec,b,x,eps,desc_a,info,&
-         & itmax,iter,err,itrace,irst,istop,cond)
-      
-      use psb_base_mod, only  : psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_
-      use psb_prec_mod, only : psb_dprec_type
-      
-      character(len=*)                   :: method
-      Type(psb_dspmat_type), Intent(in)  :: a
-      Type(psb_desc_type), Intent(in)    :: desc_a
-      class(psb_dprec_type), intent(in)  :: prec 
-      Real(psb_dpk_), Intent(in)         :: b(:)
-      Real(psb_dpk_), Intent(inout)      :: x(:)
-      Real(psb_dpk_), Intent(in)         :: eps
-      integer(psb_ipk_), intent(out)               :: info
-      integer(psb_ipk_), Optional, Intent(in)      :: itmax, itrace, irst,istop
-      integer(psb_ipk_), Optional, Intent(out)     :: iter
-      Real(psb_dpk_), Optional, Intent(out) :: err,cond
 
-    end Subroutine psb_dkrylov
     Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
          & itmax,iter,err,itrace,irst,istop,cond)
       
@@ -152,22 +102,7 @@ Module psb_krylov_mod
       Real(psb_dpk_), Optional, Intent(out) :: err,cond
 
     end Subroutine psb_dkrylov_vect
-    Subroutine psb_zkrylov(method,a,prec,b,x,eps,desc_a,info,&
-         & itmax,iter,err,itrace,irst,istop)
-      use psb_base_mod, only  : psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_
-      use psb_prec_mod, only : psb_zprec_type
-      character(len=*)                   :: method
-      Type(psb_zspmat_type), Intent(in)  :: a
-      Type(psb_desc_type), Intent(in)    :: desc_a
-      class(psb_zprec_type), intent(in)   :: prec 
-      complex(psb_dpk_), Intent(in)    :: b(:)
-      complex(psb_dpk_), Intent(inout) :: x(:)
-      Real(psb_dpk_), Intent(in)       :: eps
-      integer(psb_ipk_), intent(out)               :: info
-      integer(psb_ipk_), Optional, Intent(in)      :: itmax, itrace, irst,istop
-      integer(psb_ipk_), Optional, Intent(out)     :: iter
-      Real(psb_dpk_), Optional, Intent(out) :: err
-    end Subroutine psb_zkrylov
+
     Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,&
          & itmax,iter,err,itrace,irst,istop,cond)