# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include	<imhdr.h>

# IMGGS? -- Get a general section.

pointer procedure imggs$t (imdes, vs, ve, ndim)

pointer	imdes
long	vs[IM_MAXDIM], ve[IM_MAXDIM]
int	ndim
long	totpix
pointer	bp, imggsc()
errchk	imggsc

begin
	bp = imggsc (imdes, vs, ve, ndim, TY_PIXEL, totpix)
	if (IM_PIXTYPE(imdes) != TY_PIXEL)
	    call imupk$t (Mem$t[bp], Mem$t[bp], totpix, IM_PIXTYPE(imdes))
	return (bp)
end