NUMAL Section 1.2.3
BEGIN SECTION : 1.2.3 (May, 1974)
AUTHOR : C.G. VAN DER LAAN.
CONTRIBUTORS : H.FIOLET, C.G. VAN DER LAAN.
INSTITUTE: MATHEMATICAL CENTRE.
RECEIVED: 730928.
BRIEF DESCRIPTION :
THIS SECTION CONTAINS THE PROCEDURES COMCOLCST AND COMROWCST.
COMCOLCST MULTIPLIES THE COMPLEX COLUMN-VECTOR GIVEN IN ARRAY
AR,AI[L:U,J:J] BY XR+I*XI.
COMROWCST MULTIPLIES THE COMPLEX ROW-VECTOR GIVEN IN ARRAY
AR,AI[I:I,L:U] BY XR+I*XI.
KEYWORDS :
COMPLEX VECTOR OPERATIONS,
MULTIPLICATION.
SUBSECTION: COMCOLCST.
CALLING SEQUENCE :
THE HEADING OF THE PROCEDURE READS:
"PROCEDURE" COMCOLCST(L,U,J,AR,AI,XR,XI);
"VALUE" L,U,J,XR,XI;"INTEGER" L,U,J;"REAL" XR,XI;
"ARRAY" AR,AI;
"CODE" 34352;
THE MEANING OF THE FORMAL PARAMETERS IS:
L,U: <ARITHMETIC EXPRESSION>;
LOWER AND UPPER BOUND OF THE COLUMN VECTOR;
J: <ARITHMETIC EXPRESSION>;
COLUMN-INDEX OF THE COLUMN VECTOR;
AR,AI: <ARRAY IDENTIFIER>;
"ARRAY" AR,AI[L:U,J:J]
ENTRY:
AR : REAL PART,
AI : IMAGINARY PART OF THE COLUMN VECTOR
EXIT:
THE TRANSFORMED COMPLEX COLUMN;
XR,XI: <ARITHMETIC EXPRESSION>;
ENTRY:
XR: REAL PART OF THE MULTIPLICATION FACTOR;
XI: IMAGINARY PART OF THE MULTIPLICATION FACTOR.
PROCEDURES USED: COMMUL = CP34341.
RUNNING TIME: ROUGHLY PROPORTIONAL TO (U-L+1).
LANGUAGE: ALGOL 60.
SUBSECTION: COMROWCST.
CALLING SEQUENCE :
THE HEADING OF THE PROCEDURE READS:
"PROCEDURE" COMROWCST(L, U, I, AR, AI, XR, XI);
"VALUE" L, U, I, XR, XI; "INTEGER" L, U, I; "REAL" XR, XI;
"ARRAY" AR, AI;
"CODE" 34353;
THE MEANING OF THE FORMAL PARAMETERS IS:
L,U: <ARITHMETIC EXPRESSION>;
LOWER AND UPPER BOUND OF THE ROW VECTOR;
I: <ARITHMETIC EXPRESSION>;
ROW-INDEX OF THE ROW VECTOR;
AR,AI: <ARRAY IDENTIFIER>;
"ARRAY"AR,AI[I:I,L:U];
ENTRY:
AR : REAL PART,
AI : IMAGINARY PART OF THE ROW VECTOR
EXIT:
THE TRANSFORMED COMPLEX ROW;
XR,XI: <ARITHMETIC EXPRESSION>;
XR: REAL PART OF THE MULTIPLICATION FACTOR;
XI: IMAGINARY PART OF THE MULTIPLICATION FACTOR.
PROCEDURES USED: COMMUL = CP34341.
RUNNING TIME: ROUGHLY PROPORTIONAL TO (U-L).
LANGUAGE: ALGOL 60.
SOURCE TEXT(S) :
"CODE" 34352;
"CODE" 34353;