/************************************************************************
*	labelc -generate a line with a label on it			*
************************************************************************/
subroutine labelc(string)
include ratfor.def
character string(1)
 
call outstr(string)
call outtab
return
end