source: PSPA/parmelaPSPA/trunk/ddate.f @ 409

Last change on this file since 409 was 12, checked in by lemeur, 12 years ago

parmela pspa initial

File size: 647 bytes
Line 
1c     version for alpha machine
2c     on vax machine remove ' compilation for/noop
3      subroutine ddate
4c------------------------------------------------------------------------
5c
6      include 'ucom.h'
7c
8      character*25 kvers
9      character dd*9,tt*8
10      common/version/kvers
11c-----------------------------------------------------------------------
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
19c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
Note: See TracBrowser for help on using the repository browser.