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

psblas3

Browse Source 
psb_base_linmap_mod.f90
 psb_desc_type.f90
 psb_linmap_mod.f90

Internal cosmetic changes.
This commit is contained in:
Salvatore Filippone
2012-05-04 15:20:03 +00:00
parent 05ed51b1a4
commit 4fd3247f92
3 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_base_linmap_mod.f90
+2 -2
View File
@@ -140,8 +140,8 @@ contains
use psb_descriptor_type
use psb_mat_mod, only : psb_move_alloc
implicit none
type(psb_base_linmap_type) :: mapin,mapout
integer(psb_ipk_), intent(out) :: info
type(psb_base_linmap_type), intent(inout) :: mapin,mapout
integer(psb_ipk_), intent(out) :: info
mapout%kind = mapin%kind
call psb_move_alloc(mapin%iaggr,mapout%iaggr,info)
base/modules/psb_desc_type.f90
+8 -8
View File
@@ -199,16 +199,16 @@ module psb_descriptor_type
type psb_desc_type
integer(psb_ipk_), allocatable :: halo_index(:)
integer(psb_ipk_), allocatable :: ext_index(:)
integer(psb_ipk_), allocatable :: ovrlap_index(:)
integer(psb_ipk_), allocatable :: ovrlap_elem(:,:)
integer(psb_ipk_), allocatable :: ovr_mst_idx(:)
integer(psb_ipk_), allocatable :: bnd_elem(:)
integer(psb_ipk_), allocatable :: halo_index(:)
integer(psb_ipk_), allocatable :: ext_index(:)
integer(psb_ipk_), allocatable :: ovrlap_index(:)
integer(psb_ipk_), allocatable :: ovrlap_elem(:,:)
integer(psb_ipk_), allocatable :: ovr_mst_idx(:)
integer(psb_ipk_), allocatable :: bnd_elem(:)
class(psb_indx_map), allocatable :: indxmap
integer(psb_ipk_), allocatable :: lprm(:)
integer(psb_ipk_), allocatable :: lprm(:)
type(psb_desc_type), pointer :: base_desc => null()
integer(psb_ipk_), allocatable :: idx_space(:)
integer(psb_ipk_), allocatable :: idx_space(:)
contains
procedure, pass(desc) :: is_ok => psb_is_ok_desc
procedure, pass(desc) :: is_valid => psb_is_valid_desc
base/modules/psb_linmap_mod.f90
-2
View File
@@ -38,8 +38,6 @@
module psb_linmap_mod
use psb_const_mod
!!$ use psb_descriptor_type
!!$ use psb_linmap_type_mod
use psb_s_linmap_mod
use psb_d_linmap_mod
use psb_c_linmap_mod