changed pLongInt to 8

This commit is contained in:
Franz Roters 2009-03-31 09:07:30 +00:00
parent a5a2fdb306
commit 51cc6714d0
1 changed files with 1 additions and 1 deletions

View File

@ -8,7 +8,7 @@
! *** Precision of real and integer variables *** ! *** Precision of real and integer variables ***
integer, parameter :: pReal = selected_real_kind(15,300) ! 15 significant digits, up to 1e+-300 integer, parameter :: pReal = selected_real_kind(15,300) ! 15 significant digits, up to 1e+-300
integer, parameter :: pInt = selected_int_kind(9) ! up to +- 1e9 integer, parameter :: pInt = selected_int_kind(9) ! up to +- 1e9
integer, parameter :: pLongInt = 4 ! should be 64bit integer, parameter :: pLongInt = 8 ! should be 64bit
type :: p_vec type :: p_vec