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 /Utilib/src/UPCKIC.f | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Utilib/src/UPCKIC.f')
| -rw-r--r-- | Utilib/src/UPCKIC.f | 31 |
1 files changed, 31 insertions, 0 deletions
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 |