Skip to content

Commit 5bcd585

Browse files
committed
added comments symbols '*' in TESTING/LIN/zchkqp3rk.f
1 parent c64027a commit 5bcd585

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

TESTING/LIN/zchkqp3rk.f

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -720,10 +720,11 @@ SUBROUTINE ZCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
720720
DTEMP = (( ABS( A( (J-1)*M+J ) ) -
721721
$ ABS( A( (J)*M+J+1 ) ) ) /
722722
$ ABS( A(1) ) )
723-
723+
*
724724
IF( DTEMP.LT.ZERO ) THEN
725725
RESULT( 4 ) = BIGNUM
726726
END IF
727+
*
727728
END DO
728729
*
729730
* Print information about the tests that did not

0 commit comments

Comments
 (0)