/************************************************************************
*	repc	-generate code for beginning of a repeat		*
************************************************************************/
subroutine repc(lab)
integer lab,labgen
 
lab=labgen(3)
call outcon(0)		#generate a continue in case the repeat is labeled
call outcon(lab)	#generate a labeled continue
lab=lab+1
return
end