NUMAL Section 1.1.7

BEGIN SECTION : 1.1.7 (December, 1979)

AUTHOR:     P.A.BEENTJES.

INSTITUTE:  MATHEMATICAL CENTRE.

RECEIVED:   730715.

BRIEF DESCRIPTION:

    THIS SECTION CONTAINS TWO PROCEDURES.
    ROTCOL REPLACES THE COLUMN VECTOR X GIVEN IN ARRAY  A[L:U, I:I] AND
    THE  COLUMN VECTOR  Y  GIVEN IN ARRAY  A[L:U, J:J]  BY  THE VECTORS
    CX + SY AND CY - SX.
    ROTROW REPLACES THE ROW VECTOR X GIVEN IN ARRAY A[I:I, L:U] AND THE
    ROW VECTOR Y GIVEN IN ARRAY A[J:J, L:U] BY THE VECTORS CX + SY  AND
    CY - SX.

KEYWORDS:

    ELEMENTARY PROCEDURE,
    VECTOR OPERATIONS,
    ROTATION.


SUBSECTION: ROTCOL.

CALLING SEQUENCE:

    HEADING:
    "PROCEDURE" ROTCOL(L, U, I, J, A, C, S); "VALUE" L,U,I,J,C,S;
    "INTEGER" L,U,I,J; "REAL" C,S; "ARRAY" A;
    "CODE" 34040;

    FORMAL PARAMETERS:
    L,U:    <ARITHMETIC EXPRESSION>;
            LOWER AND UPPER BOUND OF THE RUNNING SUBSCRIPT;
    I,J:    <ARITHMETIC EXPRESSION>;
            COLUMN-INDICES OF THE COLUMN VECTORS OF ARRAY A;
    A:      <ARRAY IDENTIFIER>;
            "ARRAY" A[L : U, P : Q]; P AND Q SHOULD SATISFY:  P  <=  I,
            P <= J, Q >= I AND Q >= J;
    C,S:    <ARITHMETIC EXPRESSION>;
            ROTATION FACTORS.

LANGUAGE: COMPASS.


SUBSECTION: ROTROW.

CALLING SEQUENCE:

    HEADING:
    "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;
    "CODE" 34041;

    FORMAL PARAMETERS:
    L,U:    <ARITHMETIC EXPRESSION>;
            LOWER AND UPPER BOUND OF THE RUNNING SUBSCRIPT;
    I,J:    <ARITHMETIC EXPRESSION>;
            ROW-INDICES OF THE ROW-VECTORS OF ARRAY A;
    A:      <ARRAY IDENTIFIER>;
            "ARRAY" A[P : Q, L : U]; P AND Q SHOULD SATISFY:  P  <=  I,
            P <= J, Q >= I AND Q >= J;
    C,S:    <ARITHMETIC EXPRESSION>;
            ROTATION FACTORS.

LANGUAGE: COMPASS.

REFERENCES:

    [1].T.J.DEKKER.
        ALGOL 60 PROCEDURES IN NUMERICAL ALGEBRA, PART 1,
        MATHEMATICAL CENTRE TRACT 22, AMSTERDAM (1970).

SOURCE TEXT(S):

THE FOLLOWING PROCEDURES ARE WRITTEN IN COMPASS, AN EQUIVALENT ALGOL 60
TEXT OF THESE COMPASS ROUTINES IS GIVEN.

"CODE" 34040;

"CODE" 34041;