code 34285;
integer procedure HOMSOL(A, M, N, V, EM);
value M, N; integer M, N; array A, V, EM;
begin integer I;
    array VAL[1:N];

    HOMSOL:= I:= QRISNGVALDEC(A, M, N, VAL, V, EM);
    if I = 0 then HOMSOLSVD(A, VAL, V, M, N)
end HOMSOL;
        eop