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

include	<imhdr.h>
include	<imio.h>

# IMBLN2 -- Get the length of the axes of a two dimensional subraster.
# Must be called immediately after the get or put call that created the
# buffer.

procedure imbln2 (imdes, nx, ny)

pointer	imdes
int	nx, ny
int	i, v[2]
pointer	bdes

begin
	# Get pointer to most recently used buffer descriptor.
	bdes = IM_LASTBDES(imdes)

	do i = 1, 2
	    v[i] = abs (BD_VE(bdes,i) - BD_VS(bdes,i)) + 1

	nx = v[1]
	ny = v[2]
end