[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd fcnf
x real f (:,:) real [f] = fcnf(x) function [f] = fcnf(x)