blob: 946708572f31ed66b3365f2a0e2a888964b4e67e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#define import_spp
#define import_knames
#include <iraf.h>
/* IPAK16 - Pack an array of native ints into and array of 16-bit short.
*/
void
IPAK16 (void *a, void *b, XINT *nelems)
{
/* MACHDEP - Works only for little-endian systems (e.g. x86)
*/
int i = 0;
int *ip = (int *) a;
short *op = (short *) b;
for (i=0; i < *nelems; i++) {
*op = (int) *ip;
op++, ip++;
}
}
|
