blob: 3a1d7f440ff98254f67cab176c74996542557a03 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
c CHRUPK -- Unpack bytes into XCHAR (integer*2). Should work on most byte
c addressable machines. The input and output arrays may be the same.
subroutine chrupk (a, aoff, b, boff, nchars)
character*1 a(*)
integer*2 b(*)
integer aoff, boff, nchars, i
do 10 i = 0, nchars-1
b(boff+i) = ichar (a(aoff+i))
10 continue
end
|
