blob: 7fd66597e04b94c5d6b89ac78e700dbd0e3c6e07 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "im2interpdef.h"
include <math/iminterp.h>
# MSIGETR -- Procedure to fetch an msi real parameter
real procedure msigetr (msi, param)
pointer msi # interpolant descriptor
int param # parameter to be fetched
begin
switch (param) {
case II_MSIBADVAL:
return (MSI_BADVAL(msi))
default:
call error (0, "MSIGETR: Unknown MSI parameter.")
}
end
|
