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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mii.h>
# MIIUPK -- Unpack a MII array of type mii_type into a SPP array of type
# spp_type. The mii_types are defined in mii.h.
procedure miiupk (mii, spp, nelems, mii_datatype, spp_datatype)
int mii[ARB] #I input MII format array
int spp[ARB] #O output SPP format array
int nelems #I number of integers to be converted
int mii_datatype #I MII datatype code
int spp_datatype #I SPP datatype code
begin
switch (mii_datatype) {
case MII_BYTE:
call miiupk8 (mii, spp, nelems, spp_datatype)
case MII_SHORT:
call miiupk16 (mii, spp, nelems, spp_datatype)
case MII_LONG:
call miiupk32 (mii, spp, nelems, spp_datatype)
case MII_REAL:
call miiupkr (mii, spp, nelems, spp_datatype)
case MII_DOUBLE:
call miiupkd (mii, spp, nelems, spp_datatype)
}
end
|
