From 7f8ad482263ed38ef0c9cc1bd2a466b3de59b149 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 19 Jan 2006 14:09:20 +0000 Subject: [PATCH] Leave room for 64 bit pointers! --- src/modules/psb_prec_type.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/modules/psb_prec_type.f90 b/src/modules/psb_prec_type.f90 index e7d653aa..f4a1eb62 100644 --- a/src/modules/psb_prec_type.f90 +++ b/src/modules/psb_prec_type.f90 @@ -32,11 +32,12 @@ module psb_prec_type ! number of overlap layers, pointer to SuperLU factors, ! levels of fill in for ILU(N), integer, parameter :: p_type_=1, f_type_=2, restr_=3, prol_=4 - integer, parameter :: iren_=5, n_ovr_=6, slu_ptr_=7 + integer, parameter :: iren_=5, n_ovr_=6 integer, parameter :: ilu_fill_in_=8, jac_sweeps_=9, ml_type_=10 integer, parameter :: smth_pos_=11, aggr_alg_=12, smth_kind_=13 integer, parameter :: om_choice_=14, glb_smth_=15, coarse_mat_=16 - integer, parameter :: umf_symptr_=17, umf_numptr_=18 + !! 2 ints for 64 bit versions + integer, parameter :: slu_ptr_=17, umf_symptr_=17, umf_numptr_=19 integer, parameter :: ifpsz=20 ! Entries in dprcparm: ILU(E) epsilon, smoother omega integer, parameter :: fact_eps_=1, smooth_omega_=2