Initial commit

1 files changed, 33 insertions, 0 deletions

diff --git a/pkg/images/imutil/src/t_imaxes.x b/pkg/images/imutil/src/t_imaxes.x
new file mode 100644
index 00000000..86d32fbd
--- /dev/null
+++ b/pkg/images/imutil/src/t_imaxes.x
@@ -0,0 +1,33 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<imhdr.h>
+
+define	SZ_PARAM	5
+
+
+# IMAXES -- Determine the number and lengths of the axes of an image.
+# Called from CL scripts.  This routine will go away when we get DBIO
+# access from the CL.
+
+procedure t_imaxes()
+
+char	imname[SZ_FNAME]
+char	param[SZ_PARAM]
+int	i
+pointer	im
+pointer	immap()
+
+begin
+	call clgstr ("image", imname, SZ_FNAME)
+	im = immap (imname, READ_ONLY, 0)
+
+	call clputi ("ndim", IM_NDIM(im))
+
+	do i = 1, IM_MAXDIM {
+	    call sprintf (param, SZ_PARAM, "len%d")
+		call pargi (i)
+	    call clputl (param, IM_LEN(im,i))
+	}
+
+	call imunmap (im)
+end