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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2010-04-21 16:41:04 +00:00
parent 802546ceb3
commit 22876a972f
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_const_mod.f90
+4 -1
View File
@@ -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)
!