Take out obsolete interface for csetr in AS.

mlprec/mld_c_as_smoother.f90

@@ -277,18 +277,6 @@ module mld_c_as_smoother
     end subroutine mld_c_as_smoother_csetc
   end interface
   
-  interface 
-    subroutine mld_c_as_smoother_csetr(sm,what,val,info)
-      import :: psb_cspmat_type, psb_c_vect_type, psb_c_base_vect_type, &
-           & psb_spk_, mld_c_as_smoother_type, psb_epk_, psb_desc_type, psb_ipk_
-      implicit none 
-      class(mld_c_as_smoother_type), intent(inout) :: sm 
-      character(len=*), intent(in)                   :: what 
-      real(psb_spk_), intent(in)                      :: val
-      integer(psb_ipk_), intent(out)                 :: info
-    end subroutine mld_c_as_smoother_csetr
-  end interface
-  
   interface 
     subroutine mld_c_as_smoother_free(sm,info)
       import :: psb_cspmat_type, psb_c_vect_type, psb_c_base_vect_type, &

mlprec/mld_d_as_smoother.f90

@@ -277,18 +277,6 @@ module mld_d_as_smoother
     end subroutine mld_d_as_smoother_csetc
   end interface
   
-  interface 
-    subroutine mld_d_as_smoother_csetr(sm,what,val,info)
-      import :: psb_dspmat_type, psb_d_vect_type, psb_d_base_vect_type, &
-           & psb_dpk_, mld_d_as_smoother_type, psb_epk_, psb_desc_type, psb_ipk_
-      implicit none 
-      class(mld_d_as_smoother_type), intent(inout) :: sm 
-      character(len=*), intent(in)                   :: what 
-      real(psb_dpk_), intent(in)                      :: val
-      integer(psb_ipk_), intent(out)                 :: info
-    end subroutine mld_d_as_smoother_csetr
-  end interface
-  
   interface 
     subroutine mld_d_as_smoother_free(sm,info)
       import :: psb_dspmat_type, psb_d_vect_type, psb_d_base_vect_type, &

mlprec/mld_s_as_smoother.f90

@@ -277,18 +277,6 @@ module mld_s_as_smoother
     end subroutine mld_s_as_smoother_csetc
   end interface
   
-  interface 
-    subroutine mld_s_as_smoother_csetr(sm,what,val,info)
-      import :: psb_sspmat_type, psb_s_vect_type, psb_s_base_vect_type, &
-           & psb_spk_, mld_s_as_smoother_type, psb_epk_, psb_desc_type, psb_ipk_
-      implicit none 
-      class(mld_s_as_smoother_type), intent(inout) :: sm 
-      character(len=*), intent(in)                   :: what 
-      real(psb_spk_), intent(in)                      :: val
-      integer(psb_ipk_), intent(out)                 :: info
-    end subroutine mld_s_as_smoother_csetr
-  end interface
-  
   interface 
     subroutine mld_s_as_smoother_free(sm,info)
       import :: psb_sspmat_type, psb_s_vect_type, psb_s_base_vect_type, &

mlprec/mld_z_as_smoother.f90

@@ -277,18 +277,6 @@ module mld_z_as_smoother
     end subroutine mld_z_as_smoother_csetc
   end interface
   
-  interface 
-    subroutine mld_z_as_smoother_csetr(sm,what,val,info)
-      import :: psb_zspmat_type, psb_z_vect_type, psb_z_base_vect_type, &
-           & psb_dpk_, mld_z_as_smoother_type, psb_epk_, psb_desc_type, psb_ipk_
-      implicit none 
-      class(mld_z_as_smoother_type), intent(inout) :: sm 
-      character(len=*), intent(in)                   :: what 
-      real(psb_dpk_), intent(in)                      :: val
-      integer(psb_ipk_), intent(out)                 :: info
-    end subroutine mld_z_as_smoother_csetr
-  end interface
-  
   interface 
     subroutine mld_z_as_smoother_free(sm,info)
       import :: psb_zspmat_type, psb_z_vect_type, psb_z_base_vect_type, &