1 |
!! 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 |