From 22876a972f23e58be41eea05fe73eb815bda6878 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 21 Apr 2010 16:41:04 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_const_mod.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/base/modules/psb_const_mod.f90 b/base/modules/psb_const_mod.f90 index 71a310d9..38416cb0 100644 --- a/base/modules/psb_const_mod.f90 +++ b/base/modules/psb_const_mod.f90 @@ -31,7 +31,10 @@ !!$ module psb_const_mod - ! This should be integer(8), and normally different from default integer. + ! This is the default integer + integer, parameter :: ndig=8 + integer, parameter :: psb_int_k_ = selected_int_kind(ndig) + ! This is an 8-byte integer, and normally different from default integer. integer, parameter :: longndig=12 integer, parameter :: psb_long_int_k_ = selected_int_kind(longndig) !