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

include	<imhdr.h>

# IMGGS? -- Get a general section.

pointer procedure imggsi (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_INT, totpix)
	if (IM_PIXTYPE(imdes) != TY_INT)
	    call imupki (Memi[bp], Memi[bp], totpix, IM_PIXTYPE(imdes))
	return (bp)
end