code 31070;
procedure HSHVECMAT(LR, UR, LC, UC, X, U, A);
value LR, UR, LC, UC, X; integer LR, UR, LC, UC;
real X; array U, A;
begin 
    for LC:= LC step 1 until UC do 
    ELMCOLVEC(LR, UR, LC, A, U, TAMVEC(LR, UR, LC, A, U) * X)
end;
        eop