fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Take out precset interface

Browse Source
newG2L
Salvatore Filippone 4 years ago
parent 8bc575d319
commit ed58551ffd
4 changed files with 0 additions and 72 deletions
Show Stats Download Patch File Download Diff File

18
prec/psb_c_prec_mod.f90
Unescape Escape View File

@ -34,24 +34,6 @@ module psb_c_prec_mod
use psb_c_prec_type
use psb_c_base_prec_mod
interface psb_precset
subroutine psb_cprecseti(prec,what,val,info)
import :: psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type
implicit none
type(psb_cprec_type), intent(inout) :: prec
integer(psb_ipk_) :: what, val
integer(psb_ipk_), intent(out) :: info
end subroutine psb_cprecseti
subroutine psb_cprecsetr(prec,what,val,info)
import :: psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type
implicit none
type(psb_cprec_type), intent(inout) :: prec
integer(psb_ipk_) :: what
real(psb_spk_) :: val
integer(psb_ipk_), intent(out) :: info
end subroutine psb_cprecsetr
end interface
interface psb_ilu_fct
subroutine psb_cilu_fct(a,l,u,d,info,blck)
import :: psb_ipk_, psb_desc_type, psb_cspmat_type, &

18
prec/psb_d_prec_mod.f90
Unescape Escape View File

@ -34,24 +34,6 @@ module psb_d_prec_mod
use psb_d_prec_type
use psb_d_base_prec_mod
interface psb_precset
subroutine psb_dprecseti(prec,what,val,info)
import :: psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type
implicit none
type(psb_dprec_type), intent(inout) :: prec
integer(psb_ipk_) :: what, val
integer(psb_ipk_), intent(out) :: info
end subroutine psb_dprecseti
subroutine psb_dprecsetr(prec,what,val,info)
import :: psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type
implicit none
type(psb_dprec_type), intent(inout) :: prec
integer(psb_ipk_) :: what
real(psb_dpk_) :: val
integer(psb_ipk_), intent(out) :: info
end subroutine psb_dprecsetr
end interface
interface psb_ilu_fct
subroutine psb_dilu_fct(a,l,u,d,info,blck)
import :: psb_ipk_, psb_desc_type, psb_dspmat_type, &

18
prec/psb_s_prec_mod.f90
Unescape Escape View File

@ -34,24 +34,6 @@ module psb_s_prec_mod
use psb_s_prec_type
use psb_s_base_prec_mod
interface psb_precset
subroutine psb_sprecseti(prec,what,val,info)
import :: psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type
implicit none
type(psb_sprec_type), intent(inout) :: prec
integer(psb_ipk_) :: what, val
integer(psb_ipk_), intent(out) :: info
end subroutine psb_sprecseti
subroutine psb_sprecsetr(prec,what,val,info)
import :: psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type
implicit none
type(psb_sprec_type), intent(inout) :: prec
integer(psb_ipk_) :: what
real(psb_spk_) :: val
integer(psb_ipk_), intent(out) :: info
end subroutine psb_sprecsetr
end interface
interface psb_ilu_fct
subroutine psb_silu_fct(a,l,u,d,info,blck)
import :: psb_ipk_, psb_desc_type, psb_sspmat_type, &

18
prec/psb_z_prec_mod.f90
Unescape Escape View File

@ -34,24 +34,6 @@ module psb_z_prec_mod
use psb_z_prec_type
use psb_z_base_prec_mod
interface psb_precset
subroutine psb_zprecseti(prec,what,val,info)
import :: psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type
implicit none
type(psb_zprec_type), intent(inout) :: prec
integer(psb_ipk_) :: what, val
integer(psb_ipk_), intent(out) :: info
end subroutine psb_zprecseti
subroutine psb_zprecsetr(prec,what,val,info)
import :: psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type
implicit none
type(psb_zprec_type), intent(inout) :: prec
integer(psb_ipk_) :: what
real(psb_dpk_) :: val
integer(psb_ipk_), intent(out) :: info
end subroutine psb_zprecsetr
end interface
interface psb_ilu_fct
subroutine psb_zilu_fct(a,l,u,d,info,blck)
import :: psb_ipk_, psb_desc_type, psb_zspmat_type, &

Write Preview
Loading…
Cancel
Save