Line | |
---|
1 | c version for alpha machine |
---|
2 | c on vax machine remove ' compilation for/noop |
---|
3 | subroutine ddate |
---|
4 | c------------------------------------------------------------------------ |
---|
5 | c |
---|
6 | include 'ucom.h' |
---|
7 | c |
---|
8 | character*25 kvers |
---|
9 | character dd*9,tt*8 |
---|
10 | common/version/kvers |
---|
11 | c----------------------------------------------------------------------- |
---|
12 | call datime(dd,tt) |
---|
13 | write (nnout,910) kvers |
---|
14 | 910 format(' "PARMELA OSF/LINUX" Version ',a) |
---|
15 | write(nnout,920) dd,tt |
---|
16 | 920 format(' Date and time of this run: ',a9,' ',a8) |
---|
17 | return |
---|
18 | end |
---|
19 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
---|
Note: See
TracBrowser
for help on using the repository browser.