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

psblas3-dev:

Browse Source 
base/modules/psb_c_linmap_mod.f90
 base/modules/psb_d_linmap_mod.f90
 base/modules/psb_linmap_mod.f90
 base/modules/psb_linmap_type_mod.f90
 base/modules/psb_s_linmap_mod.f90
 base/modules/psb_z_linmap_mod.f90

Switching order of USE PSB_DESC_TYPE is a workaround for PR 46448. 
Go figure....
This commit is contained in:
Salvatore Filippone
2010-12-31 23:42:57 +00:00
parent 2cb5d704da
commit 0fdaaaccf1
6 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_linmap_mod.f90
+3 -2
View File
@@ -195,7 +195,8 @@ contains
end function psb_clinmap_sizeof
subroutine psb_c_linmap_sub(out_map,map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr)
subroutine psb_c_linmap_sub(out_map,map_kind,desc_X, desc_Y,&
& map_X2Y, map_Y2X,iaggr,naggr)
use psb_linmap_type_mod
implicit none
type(psb_clinmap_type), intent(out) :: out_map
@@ -208,8 +209,8 @@ contains
subroutine psb_clinmap_transfer(mapin,mapout,info)
use psb_realloc_mod
use psb_mat_mod, only : psb_move_alloc
use psb_descriptor_type
use psb_mat_mod, only : psb_move_alloc
implicit none
type(psb_clinmap_type) :: mapin,mapout
integer, intent(out) :: info
base/modules/psb_d_linmap_mod.f90
+2 -1
View File
@@ -196,7 +196,8 @@ contains
end function psb_dlinmap_sizeof
subroutine psb_d_linmap_sub(out_map,map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr)
subroutine psb_d_linmap_sub(out_map,map_kind,desc_X, desc_Y,&
& map_X2Y, map_Y2X,iaggr,naggr)
use psb_linmap_type_mod
implicit none
type(psb_dlinmap_type), intent(out) :: out_map
base/modules/psb_linmap_mod.f90
+1 -1
View File
@@ -38,7 +38,7 @@
module psb_linmap_mod
use psb_const_mod
use psb_descriptor_type
!!$ use psb_descriptor_type
use psb_linmap_type_mod
use psb_s_linmap_mod
use psb_d_linmap_mod
base/modules/psb_linmap_type_mod.f90
+4 -4
View File
@@ -55,16 +55,16 @@ module psb_linmap_type_mod
type psb_slinmap_type
integer, allocatable :: itd_data(:), iaggr(:), naggr(:)
integer, allocatable :: itd_data(:), iaggr(:), naggr(:)
type(psb_desc_type), pointer :: p_desc_X=>null(), p_desc_Y=>null()
type(psb_desc_type) :: desc_X, desc_Y
type(psb_desc_type) :: desc_X, desc_Y
type(psb_sspmat_type) :: map_X2Y, map_Y2X
end type psb_slinmap_type
type psb_dlinmap_type
integer, allocatable :: itd_data(:), iaggr(:), naggr(:)
integer, allocatable :: itd_data(:), iaggr(:), naggr(:)
type(psb_desc_type), pointer :: p_desc_X=>null(), p_desc_Y=>null()
type(psb_desc_type) :: desc_X, desc_Y
type(psb_desc_type) :: desc_X, desc_Y
type(psb_dspmat_type) :: map_X2Y, map_Y2X
end type psb_dlinmap_type
base/modules/psb_s_linmap_mod.f90
+2 -1
View File
@@ -198,7 +198,8 @@ contains
end function psb_slinmap_sizeof
subroutine psb_s_linmap_sub(out_map,map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr)
subroutine psb_s_linmap_sub(out_map,map_kind,desc_X, desc_Y,&
& map_X2Y, map_Y2X,iaggr,naggr)
use psb_linmap_type_mod
implicit none
type(psb_slinmap_type), intent(out) :: out_map
base/modules/psb_z_linmap_mod.f90
+4 -3
View File
@@ -176,8 +176,8 @@ contains
end function psb_is_ok_zlinmap
function psb_zlinmap_sizeof(map) result(val)
use psb_mat_mod, only : psb_sizeof
use psb_descriptor_type
use psb_mat_mod, only : psb_sizeof
implicit none
type(psb_zlinmap_type), intent(in) :: map
integer(psb_long_int_k_) :: val
@@ -196,7 +196,8 @@ contains
end function psb_zlinmap_sizeof
subroutine psb_z_linmap_sub(out_map,map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr)
subroutine psb_z_linmap_sub(out_map,map_kind,desc_X, desc_Y,&
& map_X2Y, map_Y2X,iaggr,naggr)
use psb_linmap_type_mod
implicit none
type(psb_zlinmap_type), intent(out) :: out_map
@@ -209,8 +210,8 @@ contains
subroutine psb_zlinmap_transfer(mapin,mapout,info)
use psb_realloc_mod
use psb_mat_mod, only : psb_move_alloc
use psb_descriptor_type
use psb_mat_mod, only : psb_move_alloc
implicit none
type(psb_zlinmap_type) :: mapin,mapout
integer, intent(out) :: info