blob: 1eb16d1a206478f80f7ebf383a10e4f57d757a56 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
# MIILEN -- Determine the number of SPP integers to store nelems of type
# mii_type. The mii_type are defined in mii.h.
#
# THIS PROCEDURE HAS BEEN OBSOLETED BY MIIPAKLEN.
int procedure miilen (nelems, mii_datatype)
int nelems #I number of MII data elements
int mii_datatype #I datatype of MII data
begin
return (((nelems * abs(mii_datatype) / NBITS_BYTE + SZB_CHAR - 1) /
SZB_CHAR + SZ_INT32 - 1) / SZ_INT32)
end
|
