From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- pkg/xtools/ranges/rgorder.x | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 pkg/xtools/ranges/rgorder.x (limited to 'pkg/xtools/ranges/rgorder.x') diff --git a/pkg/xtools/ranges/rgorder.x b/pkg/xtools/ranges/rgorder.x new file mode 100644 index 00000000..7864ecb2 --- /dev/null +++ b/pkg/xtools/ranges/rgorder.x @@ -0,0 +1,43 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include + +# RG_ORDER -- Make all ranges increasing and order by the starting point. + +procedure rg_order (rg) + +pointer rg # Ranges + +int i, j, temp + +begin + # Error check the range pointer. + + if (rg == NULL) + call error (0, "Range descriptor undefined") + + # Make all ranges increasing. + + do i = 1, RG_NRGS(rg) { + if (RG_X1(rg, i) > RG_X2(rg, i)) { + temp = RG_X1(rg, i) + RG_X1(rg, i) = RG_X2(rg, i) + RG_X2(rg, i) = temp + } + } + + # Sort the ranges in increasing order. + + do i = 1, RG_NRGS(rg) - 1 { + do j = i + 1, RG_NRGS(rg) { + if (RG_X1(rg, i) > RG_X1(rg, j)) { + temp = RG_X1(rg, i) + RG_X1(rg, i) = RG_X1(rg, j) + RG_X1(rg, j) = temp + temp = RG_X2(rg, i) + RG_X2(rg, i) = RG_X2(rg, j) + RG_X2(rg, j) = temp + } + } + } +end -- cgit