function auto_parse(line)
	implicit none
	character(*) line
	integer*4 auto_parse
c
cdec$	attributes extern :: 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
cdec$	attributes extern :: ctl$ag_clitable
        integer*4 ctl$ag_clitable
c
        get_dcl_table = %loc(ctl$ag_clitable)
        return
        end