# flcount -- count image names in list
# This task opens an image template just to determine the number of entries.
# The number of images in the list is written to the cl parameter "number".
#
# Phil Hodge, 14-Mar-1990  Task created.

procedure flcount()

int	number		# o: number of images in list
#--
pointer ilist		# pointer to imt struct
pointer imtopenp()
int	imtlen()

begin
	ilist = imtopenp ("input")
	number = imtlen (ilist)
	call imtclose (ilist)
	call clputi ("number", number)
end