diff options
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 |