[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd objfun(see also e04dgf)
mode integer n integer x (n) real objf real objgrd (n) real nstate integer [mode,objf,objgrd] = objfun(mode,n,x,objgrd,nstate) function [mode,objf,objgrd] = objfun(mode,n,x,objgrd,nstate)