/************************************************************************
*	labgen	-return a group of label numbers			*
*									*
*	useage:	foo = labgen(n)						*
*	where:	n	=the number of labels to allocate		*
*		labgen	=the first number to use as a label		*
************************************************************************/
integer function labgen(n)
common/lab/lab
integer lab,n
 
labgen=lab
lab=lab+n
return
end