From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/xtools/ranges/rginrange.x | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 pkg/xtools/ranges/rginrange.x (limited to 'pkg/xtools/ranges/rginrange.x') diff --git a/pkg/xtools/ranges/rginrange.x b/pkg/xtools/ranges/rginrange.x new file mode 100644 index 00000000..7dd946ae --- /dev/null +++ b/pkg/xtools/ranges/rginrange.x @@ -0,0 +1,29 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include + +# RG_INRANGE -- Is value in the ranges? + +int procedure rg_inrange (rg, rval) + +pointer rg # Ranges +int rval # Range value to test + +int i + +begin + # Error check the range pointer. + + if (rg == NULL) + call error (0, "Range descriptor undefined") + + do i = 1, RG_NRGS(rg) { + if ((RG_X1(rg, i) <= RG_X2(rg, i)) && (rval >= RG_X1(rg, i)) && + (rval <= RG_X2(rg, i))) + return (YES) + else if ((rval >= RG_X2(rg, i)) && (rval <= RG_X1(rg, i))) + return (YES) + } + + return (NO) +end -- cgit