From 11ecff3e7b10f0beeb47c4a159918d221501b7aa Mon Sep 17 00:00:00 2001 From: igor175 Date: Wed, 21 Dec 2011 06:49:03 +0000 Subject: [PATCH] corrected a typo from the previos commit: CALL pwd( PATH, NOUT ) replaced by CALL DERRSY( PATH, NOUT ) --- TESTING/LIN/dchksy.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/TESTING/LIN/dchksy.f b/TESTING/LIN/dchksy.f index 40efc54f..f3feb84a 100644 --- a/TESTING/LIN/dchksy.f +++ b/TESTING/LIN/dchksy.f @@ -255,7 +255,7 @@ * Test the error exits * IF( TSTERR ) - $ CALL pwd( PATH, NOUT ) + $ CALL DERRSY( PATH, NOUT ) INFOT = 0 * * Set the minimum block size for which the block routine should -- 2.34.1