From 51cc6714d09f66b9e2b29ba5fbe8848a04e220ca Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Tue, 31 Mar 2009 09:07:30 +0000 Subject: [PATCH] changed pLongInt to 8 --- trunk/prec.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/trunk/prec.f90 b/trunk/prec.f90 index 3d4b1abb0..5aef6e736 100644 --- a/trunk/prec.f90 +++ b/trunk/prec.f90 @@ -8,7 +8,7 @@ ! *** Precision of real and integer variables *** 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 :: pLongInt = 4 ! should be 64bit + integer, parameter :: pLongInt = 8 ! should be 64bit type :: p_vec