From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001
From: stainer_t <thomas.stainer@oecd-nea.org>
Date: Mon, 8 Sep 2025 13:48:49 +0200
Subject: Initial commit from Polytechnique Montreal

---
 Ganlib/src/KDRVER.f | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 Ganlib/src/KDRVER.f

(limited to 'Ganlib/src/KDRVER.f')

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
-- 
cgit v1.2.3