blob: fbf1ddc1566a9c060daa61449896966cb01e0266 (
plain) (
blame)
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "im1interpdef.h"
include <math/iminterp.h>
# ASIGETI -- Procedure to fetch an asi integer parameter
int procedure asigeti (asi, param)
pointer asi # interpolant descriptor
int param # parameter to be fetched
begin
switch (param) {
case II_ASITYPE:
return (ASI_TYPE(asi))
case II_ASINSAVE:
return (ASI_NSINC(asi) * ASI_NINCR(asi) + ASI_NCOEFF(asi) +
ASI_SAVECOEFF)
case II_ASINSINC:
return (ASI_NSINC(asi))
default:
call error (0, "ASIGETI: Unknown ASI parameter.")
}
end
|
