ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/branches/new_design/OOPSE-3.0/src/utils/definitions.F90
Revision: 1683
Committed: Thu Oct 28 22:34:02 2004 UTC (19 years, 8 months ago)
File size: 1027 byte(s)
Log Message:
This commit was manufactured by cvs2svn to create branch 'new_design'.

File Contents

# User Rev Content
1 gezelter 1612 !! Machine and compiler dependent definitions
2     !! Charles F. Vardeman II 2/26/02
3     !! PUBLIC VARIABLES
4     !! DEFAULT_INPUT default standard input
5     !! DEFAULT_OUTPUT default standard output
6     !! DEFAULT_ERROR default standard error
7     !! SP single precision type
8     !! DP double precision type
9     !! MAX_UNITS system dependend maximum number of open units
10    
11     module definitions
12     IMPLICIT NONE
13     PUBLIC
14    
15     !! Machine dependent input and output (fortran 2000 will fix this standard)
16     INTEGER, PARAMETER :: DEFAULT_INPUT = 5
17     INTEGER, PARAMETER :: DEFAULT_OUTPUT = 6
18     INTEGER, PARAMETER :: DEFAULT_ERROR = 0
19    
20     !! Various precision parameters
21    
22     INTEGER, PARAMETER :: SP = selected_real_kind(4)
23     INTEGER, PARAMETER :: DP = selected_real_kind(8)
24    
25    
26     !! Maximum number of fortran streams...
27     INTEGER, PARAMETER :: MAX_UNITS = 100
28    
29     !! number of dimensions in simulation
30     INTEGER, PARAMETER :: ndim = 3
31     !! Default Size parameter of nlists
32     INTEGER, PARAMETER :: nlistPrefactor = 80
33    
34     end module definitions