Return to zla_gercond_x.f CVS log | Up to [local] / rpl / lapack / lapack |
version 1.2, 2010/08/07 13:22:36 | version 1.5, 2011/07/22 07:38:16 |
---|---|
Line 178 | Line 178 |
END DO | END DO |
ELSE | ELSE |
* | * |
* Multiply by inv(X'). | * Multiply by inv(X**H). |
* | * |
DO I = 1, N | DO I = 1, N |
WORK( I ) = WORK( I ) / X( I ) | WORK( I ) = WORK( I ) / X( I ) |