On entry, the solution matrix X, as computed by CPPTRS.
Definition at line 173 of file cpprfs.f.
179 * .. Scalar Arguments ..
183 * .. Array Arguments ..
191 * .. Parameters ..
203 * .. Local Scalars ..
209 * .. Local Arrays ..
212 * .. External Subroutines ..
218 * .. External Functions ..
223 * .. Statement Functions ..
226 * .. Statement Function definitions ..
229 * .. Executable Statements ..
231 * Test the input parameters.
277 * Loop until stopping criterion is satisfied.
291 * numerator and denominator before dividing.
297 * Compute abs(A)*abs(X) + abs(B).
344 * 3) At most ITMAX iterations tried.
346 IF( berr( j ).GT.eps .AND. two*berr( j ).LE.lstres .AND.
349 * Update solution and try again.
374 * abs(A)*abs(X) + abs(B) is less than SAFE2.
395 * Multiply by diag(W)*inv(A**H).
403 * Multiply by inv(A)*diag(W).