some more typos

diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f
index e33b214..2fcc121 100644 (file)
--- a/TESTING/LIN/ddrvab.f
+++ b/TESTING/LIN/ddrvab.f
@@ -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)

diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f
index 07c3180..bafbd56 100644 (file)
--- a/TESTING/LIN/zdrvab.f
+++ b/TESTING/LIN/zdrvab.f
@@ -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)