# findrow -- find current row in rownum string
# This routine searches the string value of the ROWNUM keyword from the
# input header to find the current row number.  If found YES is returned
# as the function value; otherwise, NO is returned.
#
# Phil Hodge,  8-May-1990  Function created.

int procedure findrow (rownum, k)

char	rownum[ARB]	# i: list of row numbers separated by spaces
int	k		# i: look for this number in rownum
#--
int	ip		# index for ctoi
int	i		# value returned by ctoi
int	ctoi()

begin
	ip = 1
	while (ctoi (rownum, ip, i) > 0) {
	    if (i == k)
		return (YES)
	}
	return (NO)
end