From ab0f475ce47850a95d5efb8b9fa356501859fd8e Mon Sep 17 00:00:00 2001
From: Sebastian Wouters <sebastianwouters@gmail.com>
Date: Wed, 27 Mar 2024 13:20:29 +0100
Subject: [PATCH] Replace GAM**2 by existing GAMSQ

---
 BLAS/SRC/drotmg.f | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/BLAS/SRC/drotmg.f b/BLAS/SRC/drotmg.f
index 920734ae7b..b032755866 100644
--- a/BLAS/SRC/drotmg.f
+++ b/BLAS/SRC/drotmg.f
@@ -201,12 +201,12 @@ SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM)
                   DFLAG = -ONE
                END IF
                IF (DD1.LE.RGAMSQ) THEN
-                  DD1 = DD1*GAM**2
+                  DD1 = DD1*GAMSQ
                   DX1 = DX1/GAM
                   DH11 = DH11/GAM
                   DH12 = DH12/GAM
                ELSE
-                  DD1 = DD1/GAM**2
+                  DD1 = DD1/GAMSQ
                   DX1 = DX1*GAM
                   DH11 = DH11*GAM
                   DH12 = DH12*GAM
@@ -226,11 +226,11 @@ SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM)
                   DFLAG = -ONE
                END IF
                IF (DABS(DD2).LE.RGAMSQ) THEN
-                  DD2 = DD2*GAM**2
+                  DD2 = DD2*GAMSQ
                   DH21 = DH21/GAM
                   DH22 = DH22/GAM
                ELSE
-                  DD2 = DD2/GAM**2
+                  DD2 = DD2/GAMSQ
                   DH21 = DH21*GAM
                   DH22 = DH22*GAM
                END IF