code 34282;
procedure SOLSVDUND(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, N, I, V, X) /
    VAL[I];
    for I:= 1 step 1 until M do 
    X[I]:= MATVEC(1, N, I, U, X1)
end SOLSVDUND;
        eop