changed precision assignment to intrinsic (and standardized)

"selected_*_kind"
This commit is contained in:
Philip Eisenlohr 2008-03-07 15:21:46 +00:00
parent c74e071f5e
commit 5641cfd477
1 changed files with 2 additions and 2 deletions

View File

@ -6,8 +6,8 @@
implicit none implicit none
! *** Precision of real and integer variables *** ! *** Precision of real and integer variables ***
integer, parameter :: pReal = 8 integer, parameter :: pReal = selected_real_kind(15,300) ! 15 significant digits, up to 1e+-300
integer, parameter :: pInt = 4 integer, parameter :: pInt = selected_int_kind(9) ! up to +- 1e9
! *** Strain increment considered significant *** ! *** Strain increment considered significant ***
real(pReal), parameter :: relevantStrain = 1.0e-7_pReal real(pReal), parameter :: relevantStrain = 1.0e-7_pReal