"CODE" 34609;
"PROCEDURE" HSH3ROW3(L,U,UX,J,A1,A2,A3,A,B,X);
"VALUE"L,U,UX,J,A1,A2,A3;"INTEGER"L,J,U,UX;"REAL"A1,A2,A3;"ARRAY"A,B,X;
"IF" A2^=0 "OR" A3^=0 "THEN"
"BEGIN" "REAL" R,T,C;"ARRAY" V[J:J+2];"INTEGER" K;
    R:="IF" A1<0 "THEN" -SQRT(A1*A1+A2*A2+A3*A3)
    "ELSE" SQRT(A1*A1+A2*A2+A3*A3);
    T:=A1+R;C:=-T/R;V[J+2]:=1;V[J+1]:=A2/T;V[J]:=A3/T;
    HSHVECTAM(L,U,J,J+2,C,V,A);HSHVECTAM(L,U,J,J+2,C,V,B);
    HSHVECTAM(L,UX,J,J+2,C,V,X)
"END" HSH3ROW3;
        "EOP"