include ratfor.def
/************************************************************************
*	untilc	-generate code for an until				*
************************************************************************/
subroutine untilc(lab)
integer lab
 
call outtab
call outstr('IF(.NOT.')
call balpar
call outstr(')GO TO ')
call outnum(lab)
call outdon
call outcon(lab+1)
return
end