blob: 315248fdc9b18a790dfdec46e921b9f17b1e689b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <nspp.h>
# INTT -- Test whether the argument is an integer (return true) or a real
# (return false). This works, hopefully, because legal NCAR metacode integers
# are always less than 2 ** 15, while real numbers will always appear to be
# large positive or negative integers.
bool procedure intt (value)
int value
begin
return (value > 0 && value < INTT_TESTVAL)
end
|
