summaryrefslogtreecommitdiff
path: root/TESTING/LIN/zchksy.f
diff options
context:
space:
mode:
authorigor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>2011-12-24 01:49:37 +0000
committerigor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>2011-12-24 01:49:37 +0000
commit907d76cce5557c965686792ed895c093175d7873 (patch)
treeefeb4ea87c8f5e649da88fc3af8fa6234381d1ef /TESTING/LIN/zchksy.f
parent1d12a003ebd733d73fec0b1eb9e78ba82e8998b1 (diff)
downloadlapack-907d76cce5557c965686792ed895c093175d7873.tar.gz
lapack-907d76cce5557c965686792ed895c093175d7873.tar.bz2
lapack-907d76cce5557c965686792ed895c093175d7873.zip
added a comment to schksy.f cchksy.f dchksy.f zchksy.f
Diffstat (limited to 'TESTING/LIN/zchksy.f')
-rw-r--r--TESTING/LIN/zchksy.f3
1 files changed, 3 insertions, 0 deletions
diff --git a/TESTING/LIN/zchksy.f b/TESTING/LIN/zchksy.f
index bd1eefe8..6ef38808 100644
--- a/TESTING/LIN/zchksy.f
+++ b/TESTING/LIN/zchksy.f
@@ -482,6 +482,9 @@
$ N, -1, -1, -1, IMAT, NFAIL, NERRS,
$ NOUT )
*
+* Compute the residual for a symmetric matrix times
+* its inverse.
+*
CALL ZSYT03( UPLO, N, A, LDA, AINV, LDA, WORK, LDA,
$ RWORK, RCONDC, RESULT( 2 ) )
NT = NT + 1