blob: 14c1a649bc1b003d5f99eeaccb52a2e13d5bc7c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
*DECK KDRVER
SUBROUTINE KDRVER(REV,DATE)
*
*-----------------------------------------------------------------------
*
*Purpose:
* To extract CVS or SVN version and production date.
*
*Copyright:
* Copyright (C) 2006 Ecole Polytechnique de Montreal
*
*Author(s): A. Hebert
*
*Parameters: output
* REV revision character identification
* DATE revision character date
*
*-----------------------------------------------------------------------
*
CHARACTER REV*48,DATE*64
*
REV='Version 5.1.0'
DATE='$Date: 2025-09-11 09:15:00 -0400 (Thurs, 11 Sep 2025) $'
IF(REV(22:).EQ.'ion$)') THEN
* CVS or SVN keyword expansion not performed
REV='Version 5.1.0'
DATE='September 11, 2025'
ENDIF
RETURN
END
|
