blob: 4d9f93d1c8f15b6ed51f5a3648d5fbf9c7afabad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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
|
