#
# $Id: c_example.gcl,v 1.6.2.1 1997/08/24 23:03:42 faa Exp $
#
PROCEDURE C_EXAMPLE
PARAMETERS COMP_FLAGS=String
LOCAL PARS RES OUTFILE
PARS=FIELDS()
PARS.R1=6.8
PARS.RA=DIMENSIONS(10)
FILL PARS.RA 1.0 10.0
PARS.S="The string \"abc\""
OUTFILE=__TMPFILE("c_example","so")
MODULE/COMPILE/C "c_example.c" COMP_FLAGS SYMBOLS="my_c_module" OUTPUT=OUTFILE
MODULE/LOAD OUTFILE
RES=MODULE:EXECUTE:C("my_c_module", PARS)
PRINTN RES
__UNLINK OUTFILE
ENDPROCEDURE
#