source:
PSPA/parmelaPSPA/trunk/datime.f
@
465
Last change on this file since 465 was 12, checked in by , 12 years ago | |
---|---|
File size: 437 bytes |
Line | |
---|---|
1 | subroutine datime(dbuf,tbuf) |
2 | c-- subroutine date and time |
3 | c-- calls date and time inclued here as they may be machine dependent |
4 | c--alpha |
5 | c character Istart_date*9,Iend_date*9,Istart_time*8,Iend_time*8 |
6 | c |
7 | c call date_and_time(Istart_date) ! get date vms |
8 | c--hp ux |
9 | character dbuf*9,tbuf*8 |
10 | c |
11 | print*, ' datime : date et time a programmer ' |
12 | c call date(dbuf) |
13 | c call time(tbuf) |
14 | |
15 | return |
16 | end |
Note: See TracBrowser
for help on using the repository browser.