*** empty log message ***

15 years ago · 22876a972f
parent 802546ceb3
commit 22876a972f
1 changed files with 4 additions and 1 deletions
--- 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)
  !