From: igor175 Date: Sun, 25 Dec 2011 23:50:19 +0000 (+0000) Subject: changed the variable name in TESTING/LIN/schksy_rook.f X-Git-Tag: accepted/tizen/5.0/unified/20181102.024111~656 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=14a4c068593221445ea46c480d382c901532ffa1;p=platform%2Fupstream%2Flapack.git changed the variable name in TESTING/LIN/schksy_rook.f --- diff --git a/TESTING/LIN/schksy_rook.f b/TESTING/LIN/schksy_rook.f index 3639bcc..c4a4220 100644 --- a/TESTING/LIN/schksy_rook.f +++ b/TESTING/LIN/schksy_rook.f @@ -216,7 +216,7 @@ * .. Local Arrays .. CHARACTER UPLOS( 2 ) INTEGER IDUMMY( 1 ), ISEED( 4 ), ISEEDY( 4 ) - REAL DDUMMY( 1 ), RESULT( NTESTS ) + REAL RESULT( NTESTS ), SDUMMY( 1 ) * .. * .. External Functions .. REAL SGET06, SLANGE, SLANSY @@ -625,7 +625,7 @@ CALL SSYEVX( 'N', 'A', UPLO, 2, $ AINV( ( K-2 )*LDA+K-1 ), LDA, STEMP, $ STEMP, ITEMP, ITEMP, ZERO, ITEMP, - $ RWORK, DDUMMY, 1, WORK, 16, + $ RWORK, SDUMMY, 1, WORK, 16, $ IWORK( N+1 ), IDUMMY, INFO ) * LAM_MAX = MAX( ABS( RWORK( 1 ) ), @@ -663,7 +663,7 @@ CALL SSYEVX( 'N', 'A', UPLO, 2, $ AINV( ( K-1 )*LDA+K ), LDA, STEMP, $ STEMP, ITEMP, ITEMP, ZERO, ITEMP, - $ RWORK, DDUMMY, 1, WORK, 16, + $ RWORK, SDUMMY, 1, WORK, 16, $ IWORK( N+1 ), IDUMMY, INFO ) * LAM_MAX = MAX( ABS( RWORK( 1 ) ),