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