#
#  Input:        c0:8-vector, the computed solution. 
#  Output:       the infinity norm of the 7-vector whose components
#                are the value of determining functions evaluated at 
#                the input c0.
#
#                                        Ren-Cang Li, June 1, 1996
#                                        na.rcli@na-net.ornl.gov

ResiErr:=proc(c0:vector)
    local Fv, tmp, i, j;
    Fv:=vector(7,[]);
    for i from 1 to 7 do
        Fv[i]:=subs(c[1]=c0[1],c[2]=c0[2],c[3]=c0[3],c[4]=c0[4],
                    c[5]=c0[5],c[6]=c0[6],c[7]=c0[7],c[8]=c0[8],f[i]):
    od: 
    print(`Residual error of determining equations`);
    norm(Fv);
end:
