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 |
!! Public functions |
12 |
!! machdep_lnblnk |
13 |
!! machdep_flus flush given unit number |
14 |
|
15 |
|
16 |
|
17 |
module definitions |
18 |
IMPLICIT NONE |
19 |
PUBLIC |
20 |
|
21 |
|
22 |
!! Machine dependent input and output (fortran 2000 will fix this standard) |
23 |
INTEGER, PARAMETER :: DEFAULT_INPUT = 5 |
24 |
INTEGER, PARAMETER :: DEFAULT_OUTPUT = 6 |
25 |
INTEGER, PARAMETER :: DEFAULT_ERROR = 0 |
26 |
|
27 |
!! Various precision parameters |
28 |
|
29 |
INTEGER, PARAMETER :: SP = selected_real_kind(4) |
30 |
INTEGER, PARAMETER :: DP = selected_real_kind(8) |
31 |
|
32 |
|
33 |
!! Maximum number of fortran streams... |
34 |
INTEGER, PARAMETER :: MAX_UNITS = 100 |
35 |
|
36 |
!! number of dimensions in simulation |
37 |
INTEGER, PARAMETER :: ndim = 3 |
38 |
!! Default Size parameter of nlists |
39 |
INTEGER, PARAMETER :: nlistPrefactor = 80 |
40 |
|
41 |
contains |
42 |
|
43 |
subroutine machdep_init() |
44 |
return |
45 |
end subroutine machdep_init |
46 |
|
47 |
subroutine machdep_flush(unit) |
48 |
integer unit |
49 |
|
50 |
call flush(unit) |
51 |
|
52 |
return |
53 |
end subroutine machdep_flush |
54 |
|
55 |
integer function machdep_lnblnk(a1) |
56 |
|
57 |
character(len=*) a1 |
58 |
|
59 |
integer lnblnk |
60 |
external lnblnk |
61 |
|
62 |
machdep_lnblnk = lnblnk(a1) |
63 |
|
64 |
return |
65 |
end function machdep_lnblnk |
66 |
|
67 |
|
68 |
end module definitions |