code 34211;
   procedure RNK1UPD(H, N, V, C);value N, C; integer N;
   real C;array H, V;
    begin integer J, K;
        K:= 0;
        for J:= 1, J + K while K < N do 
        begin K:= K +1 ;
            ELMVEC(J, J + K - 1, 1 - J, H, V, V[K] * C)
        end 
    end RNK1UPD;
        eop