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

---
 Utilib/src/UPCKIC.f | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 Utilib/src/UPCKIC.f

(limited to 'Utilib/src/UPCKIC.f')

diff --git a/Utilib/src/UPCKIC.f b/Utilib/src/UPCKIC.f
new file mode 100644
index 0000000..4d9f93d
--- /dev/null
+++ b/Utilib/src/UPCKIC.f
@@ -0,0 +1,31 @@
+*DECK UPCKIC
+      SUBROUTINE UPCKIC(IV,VC,N)
+C----
+C  UNPACK CHARACTERS FROM AN INTEGER ARRAY 4 AT A TIME
+C----
+      IMPLICIT   NONE
+      INTEGER    NANSI
+      PARAMETER (NANSI=256)
+      INTEGER    N,I,J,K,II,KK,NUM,ND,NR
+      INTEGER    IV(*)
+      CHARACTER  VC(N)*8
+C----
+C  UNPACK ANSI CHARACTER FROM INTEGER VECTOR
+C----
+      II = 1
+      DO 10 I = 1, N
+        KK = 1
+        DO 20 J = 1, 2
+          NUM = IV(II)
+          II = II + 1
+          DO 30 K = 1, 4
+            ND = NUM/NANSI
+            NR = NUM -NANSI*ND
+            NUM = ND
+            VC(I)(KK:KK)=CHAR(NR)
+            KK = KK + 1
+ 30       CONTINUE
+ 20     CONTINUE
+ 10   CONTINUE
+      RETURN
+      END
-- 
cgit v1.2.3