#ifndef _nag_e04ucf_
#define _nag_e04ucf_

#define e04ucf  e04ucf_

/**
example of C-wrapper for function calls

check out first
/map/gfx0/tools/linux/src/naginclude/
some functions have been deprecated/replaced.

if the function you want is not listed there you may have to write 
your own wrapper based on the nag online documentation.


to do so, follow the example below.
please drop an email to gfxtools@cs when done.

gem@cs
**/



extern "C" void e04ucf(
		       int* N, 
		       int* NCLIN, 
		       int* NCNLN, 
		       int* LDA, 
		       int* LDCJ, 
		       int* LDR, 
		       Matr A, 
		       double BL[], 
		       double BU[],
		       void (*CONFUN)(int*, int*, int*, int*, int*,double*, double*, Matr, int*, int*, double*), 
		       void (*OBJFUN)(int*, int*, double*, double*, double*, int*, int*, double*), 
		       int* ITER, 
		       int* ISTATE, 
		       double* C, 
		       Matr CJAC, 
		       double* CLAMDA, 
		       double* OBJF, 
		       double* OBJGRD,
		       Matr R, 
		       double* X,
		       int* IWORK, 
		       int* LIWORK, 
		       double* WORK,
		       int* LWORK, 
		       int* IUSER, 
		       double* USER, 
		       int* IFAIL 
		       );

#endif