[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd fcn
n integer x (n) real fvec (n) real iflag integer [fvec,iflag] = fcn(n,x,iflag) function [fvec,iflag] = fcn(n,x,iflag)