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 <nmi.h>
# NMIUPK -- Unpack a NMI array of type nmi_type into a SPP array of type
# spp_type. The nmi_types are defined in nmi.h.
procedure nmiupk (nmi, spp, nelems, nmi_datatype, spp_datatype)
int nmi[ARB] #I input NMI format array
int spp[ARB] #O output SPP format array
int nelems #I number of integers to be converted
int nmi_datatype #I NMI datatype code
int spp_datatype #I SPP datatype code
begin
switch (nmi_datatype) {
case NMI_BYTE:
call nmiupk8 (nmi, spp, nelems, spp_datatype)
case NMI_SHORT:
call nmiupk16 (nmi, spp, nelems, spp_datatype)
case NMI_LONG:
call nmiupk32 (nmi, spp, nelems, spp_datatype)
case NMI_REAL:
call nmiupkr (nmi, spp, nelems, spp_datatype)
case NMI_DOUBLE:
call nmiupkd (nmi, spp, nelems, spp_datatype)
}
end
|
