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