function dix_dcl_parse_table(string,my_get_input,quiet)
        implicit none
c
c A shell around cli$dix_dcl_parse, since vax/alpha/ia64 have different 
c  calling for externals
c
	include 'dix_def.inc'
        character*(*) string	!:i: the line to parse
	integer*4 my_get_input  !:i: the routine to get input
	logical*4 quiet		!:i: ingore messages
	external my_get_input	!
        integer dix_dcl_parse_table	!:f: result
c#
        integer cli$dcl_parse
c
	external dix_cld
	external ignore_message
c
	if(quiet) call lib$establish(ignore_message)
	dix_dcl_parse_table = cli$dcl_parse(string,dix_cld,
     1          my_get_input,my_get_input)
	if(quiet) call lib$revert
        return
        end
	function dix_dcl_parse_table_int(string,my_get_input,quiet)
        implicit none
c
c A shell around cli$dix_dcl_parse, since vax/alpha/ia64 have different 
c  calling for externals
c
	include 'dix_def.inc'
        character*(*) string		!:i: the line to parse
	integer*4 my_get_input  !:i: the routine to get input
	external my_get_input	!
	logical*4 quiet		!:i: ingore messages
        integer dix_dcl_parse_table_int	!:f: result
c#
        integer cli$dcl_parse
c
	external dix_int_cld
	external ignore_message
c
	if(quiet) call lib$establish(ignore_message)
	dix_dcl_parse_table_int = cli$dcl_parse(string,dix_int_cld,
     1          my_get_input,my_get_input)
	if(quiet) call lib$revert
        return
        end