"CODE" 34608;
"PROCEDURE" HSH2ROW2(LA,LB,UA,UB,J,A1,A2,A,B);"VALUE"LA,LB,UA,UB,
J,A1,A2;"INTEGER" LA,LB,UA,UB,J;"REAL" A1,A2;"ARRAY" A,B;
"IF"A2^=0 "THEN"
"BEGIN" "REAL" R,T,C;"INTEGER" K;"ARRAY" V[J:J+1];
    R:="IF" A1<0 "THEN" -SQRT(A1*A1+A2*A2) "ELSE" SQRT(A1*A1+A2*A2);
    T:=A1+R;C:=-T/R;V[J+1]:=1;V[J]:=A2/T;
    HSHVECTAM(LA,UA,J,J+1,C,V,A);HSHVECTAM(LB,UB,J,J+1,C,V,B)
"END" HSH2ROW2;
        "EOP"