code 34041;
    procedure ROTROW(L, U, I, J, A, C, S); value L,U,I,J,C,S;
    integer L,U,I,J; real C,S; array A;
    begin real X, Y;
        for L:= L step 1 until U do 
        begin X:= A[I,L]; Y:= A[J,L]; A[I,L]:= X * C + Y * S;
            A[J,L]:= Y * C - X * S
        end 
    end ROTROW;
        eop