diff options
| author | julie <julielangou@users.noreply.github.com> | 2010-01-28 18:44:38 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2010-01-28 18:44:38 +0000 |
| commit | 616eee3f2d29f2438fef25e1d044b000a3990c0f (patch) | |
| tree | 38a83abb9258ab1583d789673e39035c7afff66f /SRC/sla_lin_berr.f | |
| parent | f020b6fd2f76145b2f4dae5112dc7d4e94383e7b (diff) | |
| download | lapack-616eee3f2d29f2438fef25e1d044b000a3990c0f.tar.gz lapack-616eee3f2d29f2438fef25e1d044b000a3990c0f.tar.bz2 lapack-616eee3f2d29f2438fef25e1d044b000a3990c0f.zip | |
Polish some comments, etc.. for the C wrapper
Diffstat (limited to 'SRC/sla_lin_berr.f')
| -rw-r--r-- | SRC/sla_lin_berr.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/sla_lin_berr.f b/SRC/sla_lin_berr.f index 7a67e5f8..d228187b 100644 --- a/SRC/sla_lin_berr.f +++ b/SRC/sla_lin_berr.f @@ -51,7 +51,7 @@ * the matrix abs(op(A_s))*abs(Y) + abs(B_s). The matrices A, Y, and B * are from iterative refinement (see sla_gerfsx_extended.f). * -* RES (output) REAL array, dimension (NRHS) +* BERR (output) REAL array, dimension (NRHS) * The componentwise relative backward error from the formula above. * * ===================================================================== @@ -90,4 +90,4 @@ * END DO END DO - END SUBROUTINE + END |