blob: 57cdd07fca84d6d41c615b884f91294d7c319049 (
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 "im1interpdef.h"
include <math/iminterp.h>
# ASIGETR -- Procedure to fetch an msi real parameter
real procedure asigetr (asi, param)
pointer asi # interpolant descriptor
int param # parameter to be fetched
begin
switch (param) {
case II_ASIBADVAL:
return (ASI_BADVAL(asi))
default:
call error (0, "ASIGETR: Unknown ASI parameter.")
}
end
|
