"CODE" 34605;
"PROCEDURE" HSH2COL(LA,LB,U,I,A1,A2,A,B);"VALUE" LA,LB,U,I,A1,A2;
"INTEGER" LA,LB,U,I;"REAL" A1,A2;"ARRAY" A,B;
"IF"A2^=0 "THEN"
"BEGIN" "REAL" R,T,C;"ARRAY" V[I:I+1];
    R:="IF" A1<0 "THEN" -SQRT(A1*A1+A2*A2) "ELSE" SQRT(A1*A1+A2*A2);
    T:=A1+R;C:=-T/R;V[I]:=1;V[I+1]:=A2/T;
    HSHVECMAT(I,I+1,LA,U,C,V,A);HSHVECMAT(I,I+1,LB,U,C,V,B)
"END" HSH2COL;
        "EOP"