fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Take out obsolete interface for csetr in AS.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-10-23 13:58:20 +01:00
parent ad03a7ba70
commit 1cf4b354dc
4 changed files with 0 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_c_as_smoother.f90
-12
View File
@@ -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
-12
View File
@@ -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
-12
View File
@@ -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
-12
View File
@@ -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, &