From be91663bbc3e38d7debd10ea3dda660f85ff69fe Mon Sep 17 00:00:00 2001 From: langou Date: Sat, 14 Nov 2009 19:22:15 +0000 Subject: [PATCH] some more typos --- TESTING/LIN/ddrvab.f | 4 ++-- TESTING/LIN/zdrvab.f | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f index e33b21437..2fcc12124 100644 --- 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 07c318087..bafbd564b 100644 --- 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)