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

Merged MixedI8 in new branch (to be later merged into development)

Browse Source
This commit is contained in:
Salvatore Filippone
2018-12-10 11:42:40 +00:00
parent 5371e39c16
commit 8d489f8ce2
921 changed files with 172036 additions and 57462 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/comm/psb_base_linmap_mod.f90
+5 -5
View File
@@ -42,7 +42,7 @@ module psb_base_linmap_mod
type psb_base_linmap_type
integer(psb_ipk_) :: kind
integer(psb_ipk_), allocatable :: iaggr(:), naggr(:)
integer(psb_lpk_), allocatable :: iaggr(:), naggr(:)
type(psb_desc_type), pointer :: p_desc_X=>null(), p_desc_Y=>null()
type(psb_desc_type) :: desc_X, desc_Y
contains
@@ -124,13 +124,13 @@ contains
use psb_desc_mod
implicit none
class(psb_base_linmap_type), intent(in) :: map
integer(psb_long_int_k_) :: val
integer(psb_epk_) :: val
val = psb_sizeof_int
val = psb_sizeof_ip
if (allocated(map%iaggr)) &
& val = val + psb_sizeof_int*size(map%iaggr)
& val = val + psb_sizeof_lp*size(map%iaggr)
if (allocated(map%naggr)) &
& val = val + psb_sizeof_int*size(map%naggr)
& val = val + psb_sizeof_lp*size(map%naggr)
val = val + map%desc_X%sizeof()
val = val + map%desc_Y%sizeof()