code 34280;
procedure SOLSVDOVR(U, VAL, V, M, N, X, EM);
value M, N; integer M, N; array U, VAL, V, X, EM;
begin integer I;
    real MIN;
    array X1[1:N];
    MIN:= EM[6];
    for I:= 1 step 1 until N do 
    X1[I]:= if VAL[I] <= MIN then 0 else TAMVEC(1, M, I, U, X) /
    VAL[I];
    for I:= 1 step 1 until N do 
    X[I]:= MATVEC(1, N, I, V, X1)
end SOLSVDOVR;
        eop