/********************************************************
*	ifcode	-generate code for an if statement	*
*							*
*	useage:	call ifcode(lab)			*
*	where:	lab	=the label that if us using	*
********************************************************/
subroutine ifcode(lab)
integer labgen,lab
 
define	IFNOT		'IF(.NOT.'
define	GOTO		')GOTO'

lab=labgen(2)
call outtab
call outchs(IFNOT)
call balpar
call outchs(GOTO)
call outnum(lab)
call outdon
return
end