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

psblas3:

Browse Source 
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.
psblas3-final
Salvatore Filippone 12 years ago
parent a4de149a76
commit c479b29a12
4 changed files with 60 additions and 32 deletions
Show Stats Download Patch File Download Diff File

23
prec/psb_c_prec_type.f90
Unescape Escape View File

@ -48,15 +48,13 @@ module psb_c_prec_type
generic, public :: apply => psb_c_apply2v, psb_c_apply1v,& generic, public :: apply => psb_c_apply2v, psb_c_apply1v,&
& psb_c_apply1_vect, psb_c_apply2_vect & psb_c_apply1_vect, psb_c_apply2_vect
procedure, pass(prec) :: sizeof => psb_cprec_sizeof procedure, pass(prec) :: sizeof => psb_cprec_sizeof
procedure, pass(prec) :: clone => psb_c_prec_clone
end type psb_cprec_type end type psb_cprec_type
interface psb_precfree interface psb_precfree
module procedure psb_c_precfree module procedure psb_c_precfree
end interface end interface
interface psb_nullify_prec
module procedure psb_nullify_cprec
end interface
interface psb_precdescr interface psb_precdescr
module procedure psb_cfile_prec_descr module procedure psb_cfile_prec_descr
@ -192,11 +190,6 @@ contains
return return
end subroutine psb_c_precfree 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) function psb_cprec_sizeof(prec) result(val)
class(psb_cprec_type), intent(in) :: prec class(psb_cprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val integer(psb_long_int_k_) :: val
@ -209,4 +202,18 @@ contains
end function psb_cprec_sizeof 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 end module psb_c_prec_type

23
prec/psb_d_prec_type.f90
Unescape Escape View File

@ -48,15 +48,13 @@ module psb_d_prec_type
generic, public :: apply => psb_d_apply2v, psb_d_apply1v,& generic, public :: apply => psb_d_apply2v, psb_d_apply1v,&
& psb_d_apply1_vect, psb_d_apply2_vect & psb_d_apply1_vect, psb_d_apply2_vect
procedure, pass(prec) :: sizeof => psb_dprec_sizeof procedure, pass(prec) :: sizeof => psb_dprec_sizeof
procedure, pass(prec) :: clone => psb_d_prec_clone
end type psb_dprec_type end type psb_dprec_type
interface psb_precfree interface psb_precfree
module procedure psb_d_precfree module procedure psb_d_precfree
end interface end interface
interface psb_nullify_prec
module procedure psb_nullify_cprec
end interface
interface psb_precdescr interface psb_precdescr
module procedure psb_dfile_prec_descr module procedure psb_dfile_prec_descr
@ -192,11 +190,6 @@ contains
return return
end subroutine psb_d_precfree 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) function psb_dprec_sizeof(prec) result(val)
class(psb_dprec_type), intent(in) :: prec class(psb_dprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val integer(psb_long_int_k_) :: val
@ -209,4 +202,18 @@ contains
end function psb_dprec_sizeof 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 end module psb_d_prec_type

23
prec/psb_s_prec_type.f90
Unescape Escape View File

@ -48,15 +48,13 @@ module psb_s_prec_type
generic, public :: apply => psb_s_apply2v, psb_s_apply1v,& generic, public :: apply => psb_s_apply2v, psb_s_apply1v,&
& psb_s_apply1_vect, psb_s_apply2_vect & psb_s_apply1_vect, psb_s_apply2_vect
procedure, pass(prec) :: sizeof => psb_sprec_sizeof procedure, pass(prec) :: sizeof => psb_sprec_sizeof
procedure, pass(prec) :: clone => psb_s_prec_clone
end type psb_sprec_type end type psb_sprec_type
interface psb_precfree interface psb_precfree
module procedure psb_s_precfree module procedure psb_s_precfree
end interface end interface
interface psb_nullify_prec
module procedure psb_nullify_cprec
end interface
interface psb_precdescr interface psb_precdescr
module procedure psb_sfile_prec_descr module procedure psb_sfile_prec_descr
@ -192,11 +190,6 @@ contains
return return
end subroutine psb_s_precfree 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) function psb_sprec_sizeof(prec) result(val)
class(psb_sprec_type), intent(in) :: prec class(psb_sprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val integer(psb_long_int_k_) :: val
@ -209,4 +202,18 @@ contains
end function psb_sprec_sizeof 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 end module psb_s_prec_type

23
prec/psb_z_prec_type.f90
Unescape Escape View File

@ -48,15 +48,13 @@ module psb_z_prec_type
generic, public :: apply => psb_z_apply2v, psb_z_apply1v,& generic, public :: apply => psb_z_apply2v, psb_z_apply1v,&
& psb_z_apply1_vect, psb_z_apply2_vect & psb_z_apply1_vect, psb_z_apply2_vect
procedure, pass(prec) :: sizeof => psb_zprec_sizeof procedure, pass(prec) :: sizeof => psb_zprec_sizeof
procedure, pass(prec) :: clone => psb_z_prec_clone
end type psb_zprec_type end type psb_zprec_type
interface psb_precfree interface psb_precfree
module procedure psb_z_precfree module procedure psb_z_precfree
end interface end interface
interface psb_nullify_prec
module procedure psb_nullify_cprec
end interface
interface psb_precdescr interface psb_precdescr
module procedure psb_zfile_prec_descr module procedure psb_zfile_prec_descr
@ -192,11 +190,6 @@ contains
return return
end subroutine psb_z_precfree 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) function psb_zprec_sizeof(prec) result(val)
class(psb_zprec_type), intent(in) :: prec class(psb_zprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val integer(psb_long_int_k_) :: val
@ -209,4 +202,18 @@ contains
end function psb_zprec_sizeof 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 end module psb_z_prec_type

Write Preview
Loading…
Cancel
Save