From 5641cfd477b0cce938e185f7a578f7bda81b2420 Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Fri, 7 Mar 2008 15:21:46 +0000
Subject: [PATCH] changed precision assignment to intrinsic (and standardized)
 "selected_*_kind"

---
 trunk/prec.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/trunk/prec.f90 b/trunk/prec.f90
index b41ff7a80..8078a828d 100644
--- a/trunk/prec.f90
+++ b/trunk/prec.f90
@@ -6,8 +6,8 @@
  implicit none
 
 !    *** Precision of real and integer variables ***
- integer, parameter :: pReal = 8
- integer, parameter :: pInt  = 4
+ 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
 
 !    *** Strain increment considered significant ***
  real(pReal), parameter :: relevantStrain = 1.0e-7_pReal