blob: 5ff14bfcbf457a916bfd67892ec9e768525a0551 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "im2interpdef.h"
include <math/iminterp.h>
# MSIGETI -- Procedure to fetch an asi integer parameter
int procedure msigeti (msi, param)
pointer msi # interpolant descriptor
int param # parameter to be fetched
begin
switch (param) {
case II_MSITYPE:
return (MSI_TYPE(msi))
case II_MSINSAVE:
return (MSI_NXCOEFF(msi) * MSI_NYCOEFF(msi) + MSI_SAVECOEFF)
case II_MSINSINC:
return (MSI_NSINC(msi))
default:
call error (0, "MSIGETI: Unknown MSI parameter.")
}
end
|
