phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some more typos

Browse Source
This commit is contained in:
langou
2009-11-14 19:22:15 +00:00
parent 745f8f6328
commit be91663bbc
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TESTING/LIN/ddrvab.f
+2 -2
View File
@@ -264,10 +264,10 @@
*
* If iterative refinement has been used and claimed to
* be successful (ITER>0), we want
* NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1
* NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1
*
* If double precision has been used (ITER<0), we want
* NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS) < THRES
* NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS) < THRES
* (Cf. the linear solver testing routines)
*
IF ((THRESH.LE.0.0E+00)
TESTING/LIN/zdrvab.f
+2 -2
View File
@@ -265,10 +265,10 @@
*
* If iterative refinement has been used and claimed to
* be successful (ITER>0), we want
* NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1
* NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1
*
* If double precision has been used (ITER<0), we want
* NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS) < THRES
* NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS) < THRES
* (Cf. the linear solver testing routines)
*
IF ((THRESH.LE.0.0E+00)