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/rgdump.x | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 pkg/xtools/ranges/rgdump.x (limited to 'pkg/xtools/ranges/rgdump.x') diff --git a/pkg/xtools/ranges/rgdump.x b/pkg/xtools/ranges/rgdump.x new file mode 100644 index 00000000..97c3a89b --- /dev/null +++ b/pkg/xtools/ranges/rgdump.x @@ -0,0 +1,28 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + + +include + +# RG_DUMP -- Dump the contents of a range structure. + +procedure rg_dump (rg) + +pointer rg # Ranges + +int i + +begin + if (rg == NULL) + call printf ("RG_DUMP: The range pointer is NULL\n") + else { + call printf ("RG_DUMP: NPTS = %d, NRGS = %d\n") + call pargi (RG_NPTS(rg)) + call pargi (RG_NRGS(rg)) + do i = 1, RG_NRGS(rg) { + call printf (" %4d - %4d\n") + call pargi (RG_X1(rg, i)) + call pargi (RG_X2(rg, i)) + } + } + call flush (STDOUT) +end -- cgit