From 091e7d56bb486a99c86ad6b4ccc2035502b9868d Mon Sep 17 00:00:00 2001
From: Matthew Badin <mbadin@apple.com>
Date: Fri, 23 Apr 2021 14:53:35 -0700
Subject: [PATCH] fix unbalanced parentheses syntax error

---
 SRC/claic1.f | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/SRC/claic1.f b/SRC/claic1.f
index ab988ac479..773c718d1d 100644
--- a/SRC/claic1.f
+++ b/SRC/claic1.f
@@ -252,7 +252,8 @@ SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C )
 *
             SINE = -( ALPHA / ABSEST ) / T
             COSINE = -( GAMMA / ABSEST ) / ( ONE+T )
-            TMP = REAL( SQRT( SINE*CONJG( SINE )+COSINE*CONJG( COSINE ) ) )
+            TMP = REAL( SQRT( SINE * CONJG( SINE )
+     $        + COSINE * CONJG( COSINE ) ) )
             S = SINE / TMP
             C = COSINE / TMP
             SESTPR = SQRT( T+ONE )*ABSEST
@@ -354,7 +355,8 @@ SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C )
                COSINE = -( GAMMA / ABSEST ) / ( ONE+T )
                SESTPR = SQRT( ONE+T+FOUR*EPS*EPS*NORMA )*ABSEST
             END IF
-            TMP = REAL( SQRT( SINE*CONJG( SINE )+COSINE*CONJG( COSINE ) ) )
+            TMP = REAL( SQRT( SINE * CONJG( SINE )
+     $        + COSINE * CONJG( COSINE ) ) )
             S = SINE / TMP
             C = COSINE / TMP
             RETURN