fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_base_linmap_mod.f90
 base/modules/psb_c_linmap_mod.f90
 base/modules/psb_d_linmap_mod.f90
 base/modules/psb_s_linmap_mod.f90
 base/modules/psb_z_linmap_mod.f90

Defined and fixed clone method.
This commit is contained in:
Salvatore Filippone
2013-03-31 17:38:02 +00:00
parent 081222feeb
commit a50ce17bcb
5 changed files with 58 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_base_linmap_mod.f90
+22 -1
View File
@@ -52,6 +52,7 @@ module psb_base_linmap_mod
procedure, pass(map) :: get_kind => base_get_kind
procedure, pass(map) :: set_kind => base_set_kind
procedure, pass(map) :: free => base_free
procedure, pass(map) :: clone => base_clone
end type psb_base_linmap_type
@@ -60,7 +61,7 @@ module psb_base_linmap_mod
end interface
private :: base_map_sizeof, base_is_ok, base_is_asb,&
& base_get_kind, base_set_kind, base_free
& base_get_kind, base_set_kind, base_free, base_clone
contains
@@ -155,6 +156,26 @@ contains
end subroutine psb_base_linmap_transfer
subroutine base_clone(map,mapout,info)
use psb_desc_mod
implicit none
class(psb_base_linmap_type), intent(inout) :: map
class(psb_base_linmap_type), intent(out) :: mapout
integer(psb_ipk_) :: info
mapout%kind = map%kind
call psb_safe_ab_copy(map%iaggr,mapout%iaggr,info)
call psb_safe_ab_copy(map%naggr,mapout%naggr,info)
mapout%p_desc_X => map%p_desc_X
mapout%p_desc_Y => map%p_desc_Y
call map%desc_X%clone(mapout%desc_X,info)
call map%desc_Y%clone(mapout%desc_Y,info)
end subroutine base_clone
subroutine base_free(map,info)
implicit none
class(psb_base_linmap_type) :: map
base/modules/psb_c_linmap_mod.f90
+9 -8
View File
@@ -46,10 +46,10 @@ module psb_c_linmap_mod
type, extends(psb_base_linmap_type) :: psb_clinmap_type
type(psb_cspmat_type) :: map_X2Y, map_Y2X
contains
procedure, pass(map) :: sizeof => c_map_sizeof
procedure, pass(map) :: is_asb => c_is_asb
procedure, pass(map) :: free => c_free
procedure, pass(mapin) :: clone => c_clone
procedure, pass(map) :: sizeof => c_map_sizeof
procedure, pass(map) :: is_asb => c_is_asb
procedure, pass(map) :: free => c_free
procedure, pass(map) :: clone => c_clone
end type psb_clinmap_type
@@ -214,16 +214,17 @@ contains
end subroutine c_free
subroutine c_clone(mapin,mapout)
subroutine c_clone(map,mapout,info)
use psb_desc_mod
implicit none
class(psb_clinmap_type), intent(inout) :: mapin
class(psb_clinmap_type), intent(inout) :: map
class(psb_clinmap_type), intent(out) :: mapout
integer(psb_ipk_) :: info
! Base clone!
call mapin%map_X2Y%clone(mapout%map_X2Y,info)
call mapin%map_Y2X%clone(mapout%map_Y2X,info)
call map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
call map%map_X2Y%clone(mapout%map_X2Y,info)
call map%map_Y2X%clone(mapout%map_Y2X,info)
end subroutine c_clone
base/modules/psb_d_linmap_mod.f90
+9 -8
View File
@@ -46,10 +46,10 @@ module psb_d_linmap_mod
type, extends(psb_base_linmap_type) :: psb_dlinmap_type
type(psb_dspmat_type) :: map_X2Y, map_Y2X
contains
procedure, pass(map) :: sizeof => d_map_sizeof
procedure, pass(map) :: is_asb => d_is_asb
procedure, pass(map) :: free => d_free
procedure, pass(mapin) :: clone => d_clone
procedure, pass(map) :: sizeof => d_map_sizeof
procedure, pass(map) :: is_asb => d_is_asb
procedure, pass(map) :: free => d_free
procedure, pass(map) :: clone => d_clone
end type psb_dlinmap_type
@@ -214,16 +214,17 @@ contains
end subroutine d_free
subroutine d_clone(mapin,mapout)
subroutine d_clone(map,mapout,info)
use psb_desc_mod
implicit none
class(psb_dlinmap_type), intent(inout) :: mapin
class(psb_dlinmap_type), intent(inout) :: map
class(psb_dlinmap_type), intent(out) :: mapout
integer(psb_ipk_) :: info
! Base clone!
call mapin%map_X2Y%clone(mapout%map_X2Y,info)
call mapin%map_Y2X%clone(mapout%map_Y2X,info)
call map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
call map%map_X2Y%clone(mapout%map_X2Y,info)
call map%map_Y2X%clone(mapout%map_Y2X,info)
end subroutine d_clone
base/modules/psb_s_linmap_mod.f90
+9 -8
View File
@@ -46,10 +46,10 @@ module psb_s_linmap_mod
type, extends(psb_base_linmap_type) :: psb_slinmap_type
type(psb_sspmat_type) :: map_X2Y, map_Y2X
contains
procedure, pass(map) :: sizeof => s_map_sizeof
procedure, pass(map) :: is_asb => s_is_asb
procedure, pass(map) :: free => s_free
procedure, pass(mapin) :: clone => s_clone
procedure, pass(map) :: sizeof => s_map_sizeof
procedure, pass(map) :: is_asb => s_is_asb
procedure, pass(map) :: free => s_free
procedure, pass(map) :: clone => s_clone
end type psb_slinmap_type
@@ -214,16 +214,17 @@ contains
end subroutine s_free
subroutine s_clone(mapin,mapout)
subroutine s_clone(map,mapout,info)
use psb_desc_mod
implicit none
class(psb_slinmap_type), intent(inout) :: mapin
class(psb_slinmap_type), intent(inout) :: map
class(psb_slinmap_type), intent(out) :: mapout
integer(psb_ipk_) :: info
! Base clone!
call mapin%map_X2Y%clone(mapout%map_X2Y,info)
call mapin%map_Y2X%clone(mapout%map_Y2X,info)
call map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
call map%map_X2Y%clone(mapout%map_X2Y,info)
call map%map_Y2X%clone(mapout%map_Y2X,info)
end subroutine s_clone
base/modules/psb_z_linmap_mod.f90
+9 -8
View File
@@ -46,10 +46,10 @@ module psb_z_linmap_mod
type, extends(psb_base_linmap_type) :: psb_zlinmap_type
type(psb_zspmat_type) :: map_X2Y, map_Y2X
contains
procedure, pass(map) :: sizeof => z_map_sizeof
procedure, pass(map) :: is_asb => z_is_asb
procedure, pass(map) :: free => z_free
procedure, pass(mapin) :: clone => z_clone
procedure, pass(map) :: sizeof => z_map_sizeof
procedure, pass(map) :: is_asb => z_is_asb
procedure, pass(map) :: free => z_free
procedure, pass(map) :: clone => z_clone
end type psb_zlinmap_type
@@ -214,16 +214,17 @@ contains
end subroutine z_free
subroutine z_clone(mapin,mapout)
subroutine z_clone(map,mapout,info)
use psb_desc_mod
implicit none
class(psb_zlinmap_type), intent(inout) :: mapin
class(psb_zlinmap_type), intent(inout) :: map
class(psb_zlinmap_type), intent(out) :: mapout
integer(psb_ipk_) :: info
! Base clone!
call mapin%map_X2Y%clone(mapout%map_X2Y,info)
call mapin%map_Y2X%clone(mapout%map_Y2X,info)
call map%psb_base_linmap_type%clone(mapout%psb_base_linmap_type,info)
call map%map_X2Y%clone(mapout%map_X2Y,info)
call map%map_Y2X%clone(mapout%map_Y2X,info)
end subroutine z_clone