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