fix cpptrf.f unbalanced parentheses error

Matthew-Badin · Matthew-Badin · commit bd02149cb307 · 2021-04-23T15:04:07.000-07:00
diff --git a/SRC/cpptrf.f b/SRC/cpptrf.f
@@ -189,8 +189,8 @@ SUBROUTINE CPPTRF( UPLO, N, AP, INFO )
 *
 *           Compute U(J,J) and test for non-positive-definiteness.
 *
-            AJJ = REAL( REAL( AP( JJ ) ) - CDOTC( J-1, AP( JC ), 1, AP( JC ),
-     $            1 ) )
+            AJJ = REAL( REAL( AP( JJ ) ) - CDOTC( J-1,
+     $            AP( JC ), 1, AP( JC ), 1 ) )
             IF( AJJ.LE.ZERO ) THEN
                AP( JJ ) = AJJ
                GO TO 30

Original file line number	Diff line number	Diff line change
`@@ -189,8 +189,8 @@ SUBROUTINE CPPTRF( UPLO, N, AP, INFO )`
`189`	`189`	`*`
`190`	`190`	`* Compute U(J,J) and test for non-positive-definiteness.`
`191`	`191`	`*`
`192`		`- AJJ = REAL( REAL( AP( JJ ) ) - CDOTC( J-1, AP( JC ), 1, AP( JC ),`
`193`		`- $ 1 ) )`
	`192`	`+ AJJ = REAL( REAL( AP( JJ ) ) - CDOTC( J-1,`
	`193`	`+ $ AP( JC ), 1, AP( JC ), 1 ) )`
`194`	`194`	`IF( AJJ.LE.ZERO ) THEN`
`195`	`195`	`AP( JJ ) = AJJ`
`196`	`196`	`GO TO 30`