/************************************************************************
*	dostat	generates code at end of loop				*
************************************************************************/
subroutine dostat(lab)
integer lab
call outcon(lab)
call outcon(lab+1)
return
end