while (ul_lssol)

         while ( (j  > 0)&&(n - (*nfree) < nfixed ) ) {
            if (istate[j-1]  > 0) {
               jadd = j;	/* +1:in kx[] Fortran data*/
               for ( ifix = *nfree; ifix >= 1; ifix--) {
                  if (kx[ifix-1] == jadd) break;    /* a Fortran style loop */
                  }

/*              Add bound jadd.*/

               lsadd ( unitQ, inform, ifix, iadd, jadd,	
                       nactv, *nZ, *nfree, nRank, nres,
		       ngQ,    n, ldA, ldQ, ldR,
		       ldT,    kx, condmx, A, R,
		       T, res, &gQm, Q, w, c, s );

               *nfree -= 1;
               *nZ    -= 1;
	       *inform = 7;   /* uninitialized iadd is in use. 22-Apr-2014 */
		uninV  = 2;/* the index of iadd in the uninit. variable list */
               }
            j = j - 1;
            }      	/* end of while */
	 }
      else  {   
/*        ---------------------------------------------------------------
        R is of full rank,  or is not specified.
        --------------------------------------------------------------