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