%N llsqusol %F $MIR/src/subs/lsqu1.for
%D Solve the "large" linear least square routines.
%P rjs
%: least-squares, fitting
%B
        subroutine LlsquSol(x,B,n,ifail,pivot)

        implicit none
        integer n,ifail
        real B(n,n),x(n),pivot(n)

  Input:
    n          Number of unknowns.
  Input/Output:
    B          On input, this contains statistics accumulated by LlsquAcc.
               These statistics are destroyed in solving the problem.
    x          On input, this contains statistics accumulated by LlsquAcc.
               On output, it contains the solutions to the lsqu problem.

    ifail      Success status:
                 0     Finished OK.
                 1     Singular matrix encountered.
  Scratch:
    pivot
