From ecc2920c9faac4011a5d004b9b46b4b3dfeeb414 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 25 Jan 2008 10:45:33 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_desc_type.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index ef3f9345..7471dd05 100644 --- a/base/modules/psb_desc_type.f90 +++ b/base/modules/psb_desc_type.f90 @@ -56,7 +56,7 @@ module psb_descriptor_type integer, parameter :: psb_ovt_xhal_ = 123, psb_ovt_asov_=psb_ovt_xhal_+1 ! - ! Entries and values in desc%matrix_data + ! Entries and values in desc%matrix_data ! integer, parameter :: psb_dec_type_=1, psb_m_=2,psb_n_=3 integer, parameter :: psb_n_row_=4, psb_n_col_=5,psb_ctxt_=6 @@ -80,6 +80,9 @@ module psb_descriptor_type integer, parameter :: psb_desc_large_=psb_desc_normal_+1 integer, parameter :: psb_cd_ovl_bld_=3399 integer, parameter :: psb_cd_ovl_asb_=psb_cd_ovl_bld_+1 + ! + ! Constants for hashing into desc%hashv(:) and desc%glb_lc(:,:) + ! integer, parameter :: psb_hash_bits=14 integer, parameter :: psb_hash_size=2**psb_hash_bits, psb_hash_mask=psb_hash_size-1 integer, parameter :: psb_default_large_threshold=512*1024 ! to be reviewed