mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-07 07:04:57 +00:00
psblas3:
prec/psb_c_prec_type.f90 prec/psb_d_prec_type.f90 prec/psb_s_prec_type.f90 prec/psb_z_prec_type.f90 Fixed clone method for outer prec type.
This commit is contained in:
Salvatore Filippone
@@ -48,15 +48,13 @@ module psb_c_prec_type
|
||||
generic, public :: apply => psb_c_apply2v, psb_c_apply1v,&
|
||||
& psb_c_apply1_vect, psb_c_apply2_vect
|
||||
procedure, pass(prec) :: sizeof => psb_cprec_sizeof
|
||||
procedure, pass(prec) :: clone => psb_c_prec_clone
|
||||
end type psb_cprec_type
|
||||
|
||||
interface psb_precfree
|
||||
module procedure psb_c_precfree
|
||||
end interface
|
||||
|
||||
interface psb_nullify_prec
|
||||
module procedure psb_nullify_cprec
|
||||
end interface
|
||||
|
||||
interface psb_precdescr
|
||||
module procedure psb_cfile_prec_descr
|
||||
@@ -192,11 +190,6 @@ contains
|
||||
return
|
||||
end subroutine psb_c_precfree
|
||||
|
||||
subroutine psb_nullify_cprec(p)
|
||||
type(psb_cprec_type), intent(inout) :: p
|
||||
|
||||
end subroutine psb_nullify_cprec
|
||||
|
||||
function psb_cprec_sizeof(prec) result(val)
|
||||
class(psb_cprec_type), intent(in) :: prec
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -209,4 +202,18 @@ contains
|
||||
|
||||
end function psb_cprec_sizeof
|
||||
|
||||
subroutine psb_c_prec_clone(prec,precout,info)
|
||||
implicit none
|
||||
class(psb_cprec_type), intent(inout) :: prec
|
||||
class(psb_cprec_type), intent(out) :: precout
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
|
||||
info = psb_success_
|
||||
|
||||
if (allocated(prec%prec)) then
|
||||
call prec%prec%clone(precout%prec,info)
|
||||
end if
|
||||
|
||||
end subroutine psb_c_prec_clone
|
||||
|
||||
end module psb_c_prec_type
|
||||
|
||||
@@ -48,15 +48,13 @@ module psb_d_prec_type
|
||||
generic, public :: apply => psb_d_apply2v, psb_d_apply1v,&
|
||||
& psb_d_apply1_vect, psb_d_apply2_vect
|
||||
procedure, pass(prec) :: sizeof => psb_dprec_sizeof
|
||||
procedure, pass(prec) :: clone => psb_d_prec_clone
|
||||
end type psb_dprec_type
|
||||
|
||||
interface psb_precfree
|
||||
module procedure psb_d_precfree
|
||||
end interface
|
||||
|
||||
interface psb_nullify_prec
|
||||
module procedure psb_nullify_cprec
|
||||
end interface
|
||||
|
||||
interface psb_precdescr
|
||||
module procedure psb_dfile_prec_descr
|
||||
@@ -192,11 +190,6 @@ contains
|
||||
return
|
||||
end subroutine psb_d_precfree
|
||||
|
||||
subroutine psb_nullify_cprec(p)
|
||||
type(psb_dprec_type), intent(inout) :: p
|
||||
|
||||
end subroutine psb_nullify_cprec
|
||||
|
||||
function psb_dprec_sizeof(prec) result(val)
|
||||
class(psb_dprec_type), intent(in) :: prec
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -209,4 +202,18 @@ contains
|
||||
|
||||
end function psb_dprec_sizeof
|
||||
|
||||
subroutine psb_d_prec_clone(prec,precout,info)
|
||||
implicit none
|
||||
class(psb_dprec_type), intent(inout) :: prec
|
||||
class(psb_dprec_type), intent(out) :: precout
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
|
||||
info = psb_success_
|
||||
|
||||
if (allocated(prec%prec)) then
|
||||
call prec%prec%clone(precout%prec,info)
|
||||
end if
|
||||
|
||||
end subroutine psb_d_prec_clone
|
||||
|
||||
end module psb_d_prec_type
|
||||
|
||||
@@ -48,15 +48,13 @@ module psb_s_prec_type
|
||||
generic, public :: apply => psb_s_apply2v, psb_s_apply1v,&
|
||||
& psb_s_apply1_vect, psb_s_apply2_vect
|
||||
procedure, pass(prec) :: sizeof => psb_sprec_sizeof
|
||||
procedure, pass(prec) :: clone => psb_s_prec_clone
|
||||
end type psb_sprec_type
|
||||
|
||||
interface psb_precfree
|
||||
module procedure psb_s_precfree
|
||||
end interface
|
||||
|
||||
interface psb_nullify_prec
|
||||
module procedure psb_nullify_cprec
|
||||
end interface
|
||||
|
||||
interface psb_precdescr
|
||||
module procedure psb_sfile_prec_descr
|
||||
@@ -192,11 +190,6 @@ contains
|
||||
return
|
||||
end subroutine psb_s_precfree
|
||||
|
||||
subroutine psb_nullify_cprec(p)
|
||||
type(psb_sprec_type), intent(inout) :: p
|
||||
|
||||
end subroutine psb_nullify_cprec
|
||||
|
||||
function psb_sprec_sizeof(prec) result(val)
|
||||
class(psb_sprec_type), intent(in) :: prec
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -209,4 +202,18 @@ contains
|
||||
|
||||
end function psb_sprec_sizeof
|
||||
|
||||
subroutine psb_s_prec_clone(prec,precout,info)
|
||||
implicit none
|
||||
class(psb_sprec_type), intent(inout) :: prec
|
||||
class(psb_sprec_type), intent(out) :: precout
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
|
||||
info = psb_success_
|
||||
|
||||
if (allocated(prec%prec)) then
|
||||
call prec%prec%clone(precout%prec,info)
|
||||
end if
|
||||
|
||||
end subroutine psb_s_prec_clone
|
||||
|
||||
end module psb_s_prec_type
|
||||
|
||||
@@ -48,15 +48,13 @@ module psb_z_prec_type
|
||||
generic, public :: apply => psb_z_apply2v, psb_z_apply1v,&
|
||||
& psb_z_apply1_vect, psb_z_apply2_vect
|
||||
procedure, pass(prec) :: sizeof => psb_zprec_sizeof
|
||||
procedure, pass(prec) :: clone => psb_z_prec_clone
|
||||
end type psb_zprec_type
|
||||
|
||||
interface psb_precfree
|
||||
module procedure psb_z_precfree
|
||||
end interface
|
||||
|
||||
interface psb_nullify_prec
|
||||
module procedure psb_nullify_cprec
|
||||
end interface
|
||||
|
||||
interface psb_precdescr
|
||||
module procedure psb_zfile_prec_descr
|
||||
@@ -192,11 +190,6 @@ contains
|
||||
return
|
||||
end subroutine psb_z_precfree
|
||||
|
||||
subroutine psb_nullify_cprec(p)
|
||||
type(psb_zprec_type), intent(inout) :: p
|
||||
|
||||
end subroutine psb_nullify_cprec
|
||||
|
||||
function psb_zprec_sizeof(prec) result(val)
|
||||
class(psb_zprec_type), intent(in) :: prec
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -209,4 +202,18 @@ contains
|
||||
|
||||
end function psb_zprec_sizeof
|
||||
|
||||
subroutine psb_z_prec_clone(prec,precout,info)
|
||||
implicit none
|
||||
class(psb_zprec_type), intent(inout) :: prec
|
||||
class(psb_zprec_type), intent(out) :: precout
|
||||
integer(psb_ipk_), intent(out) :: info
|
||||
|
||||
info = psb_success_
|
||||
|
||||
if (allocated(prec%prec)) then
|
||||
call prec%prec%clone(precout%prec,info)
|
||||
end if
|
||||
|
||||
end subroutine psb_z_prec_clone
|
||||
|
||||
end module psb_z_prec_type
|
||||
|
||||
Reference in New Issue
Block a user