fix unbalanced parentheses syntax error

chrwarm · Apr 23, 2021 · 091e7d5 · 091e7d5
1 parent a5fd876
commit 091e7d5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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