function auto_parse(line)
	implicit none
	character*(*) line
	integer*4 auto_parse
c
	external auto_cld
	integer*4 auto_cld
c
	integer*4 cli$dcl_parse
c
	auto_parse = cli$dcl_parse(line,auto_cld)
	return
	end
	function get_dcl_table()
	implicit none
c
	integer*4 get_dcl_table
c
	external ctl$ag_clitable
	integer*4 ctl$ag_clitable
c
	get_dcl_table = %loc(ctl$ag_clitable)
	return
	end