diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Ganlib/src/KDRVER.f | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Ganlib/src/KDRVER.f')
| -rw-r--r-- | Ganlib/src/KDRVER.f | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Ganlib/src/KDRVER.f b/Ganlib/src/KDRVER.f new file mode 100644 index 0000000..75f5acd --- /dev/null +++ b/Ganlib/src/KDRVER.f @@ -0,0 +1,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.0.12 ($Revision: 3956 $)' + DATE='$Date: 2025-09-05 09:32:25 -0400 (Fri, 05 Sep 2025) $' + IF(REV(22:).EQ.'ion$)') THEN +* CVS or SVN keyword expansion not performed + REV='Version 5.0.12' + DATE='September 5, 2025' + ENDIF + RETURN + END |