ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/utils/definitions.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/utils/definitions.F90 (file contents):
Revision 2204 by gezelter, Fri Apr 15 22:04:00 2005 UTC vs.
Revision 2758 by gezelter, Wed May 17 19:54:27 2006 UTC

# Line 61 | Line 61 | module definitions
61    !! Various precision parameters
62  
63    INTEGER, PARAMETER :: SP = selected_real_kind(4)
64 + #ifdef SINGLE_PRECISION
65 +  INTEGER, PARAMETER :: DP = selected_real_kind(4)
66 + #else
67    INTEGER, PARAMETER :: DP = selected_real_kind(8)
68 + #endif
69  
66 –
70    !! Maximum number of fortran streams...
71    INTEGER, PARAMETER :: MAX_UNITS = 100
72  

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines