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