223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/prec.f90
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