blob: 126f4e399b98cce4aa636a28e20d87c4ae97550f (
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.
# sets sequential interpolator type
procedure asiset(coeff,interptype)
include "interpdef.h"
include "asidef.h"
int interptype
real coeff[ARB]
begin
if(interptype <= 0 || interptype > ITNIT)
call error(ASITYPEERR,"illegal interpolator type")
else
TYPEI = interptype
return
end
|
