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