--- rpl/lapack/blas/drotmg.f	2010/01/26 15:22:45	1.1.1.1
+++ rpl/lapack/blas/drotmg.f	2010/08/07 13:18:05	1.4
@@ -33,9 +33,9 @@
 *
 *  DD1    (input/output) DOUBLE PRECISION
 *
-*  DD2    (input/output) DOUBLE PRECISION 
+*  DD2    (input/output) DOUBLE PRECISION
 *
-*  DX1    (input/output) DOUBLE PRECISION 
+*  DX1    (input/output) DOUBLE PRECISION
 *
 *  DY1    (input) DOUBLE PRECISION
 *
@@ -71,8 +71,8 @@
       IF (.NOT.DP2.EQ.ZERO) GO TO 20
       DFLAG = -TWO
       GO TO 260
-*     REGULAR-CASE..
    20 CONTINUE
+*     REGULAR-CASE..
       DP1 = DD1*DX1
       DQ2 = DP2*DY1
       DQ1 = DP1*DX1
@@ -108,8 +108,8 @@
       DX1 = DY1*DU
 *         GO SCALE-CHECK
       GO TO 100
-*     PROCEDURE..ZERO-H-D-AND-DX1..
    60 CONTINUE
+*     PROCEDURE..ZERO-H-D-AND-DX1..
       DFLAG = -ONE
       DH11 = ZERO
       DH12 = ZERO
@@ -121,8 +121,8 @@
       DX1 = ZERO
 *         RETURN..
       GO TO 220
-*     PROCEDURE..FIX-H..
    70 CONTINUE
+*     PROCEDURE..FIX-H..
       IF (.NOT.DFLAG.GE.ZERO) GO TO 90
 *
       IF (.NOT.DFLAG.EQ.ZERO) GO TO 80
@@ -135,13 +135,14 @@
       DH12 = ONE
       DFLAG = -ONE
    90 CONTINUE
-      GO TO IGO(120,150,180,210)
-*     PROCEDURE..SCALE-CHECK
+      GO TO (150,180,210) IGO
+      GO TO 120
   100 CONTINUE
+*     PROCEDURE..SCALE-CHECK
   110 CONTINUE
       IF (.NOT.DD1.LE.RGAMSQ) GO TO 130
       IF (DD1.EQ.ZERO) GO TO 160
-      ASSIGN 120 TO IGO
+      IGO = 0
 *              FIX-H..
       GO TO 70
   120 CONTINUE
@@ -153,7 +154,7 @@
   130 CONTINUE
   140 CONTINUE
       IF (.NOT.DD1.GE.GAMSQ) GO TO 160
-      ASSIGN 150 TO IGO
+      IGO = 1
 *              FIX-H..
       GO TO 70
   150 CONTINUE
@@ -166,7 +167,7 @@
   170 CONTINUE
       IF (.NOT.DABS(DD2).LE.RGAMSQ) GO TO 190
       IF (DD2.EQ.ZERO) GO TO 220
-      ASSIGN 180 TO IGO
+      IGO = 2
 *              FIX-H..
       GO TO 70
   180 CONTINUE
@@ -177,7 +178,7 @@
   190 CONTINUE
   200 CONTINUE
       IF (.NOT.DABS(DD2).GE.GAMSQ) GO TO 220
-      ASSIGN 210 TO IGO
+      IGO = 3
 *              FIX-H..
       GO TO 70
   210 CONTINUE
@@ -186,7 +187,13 @@
       DH22 = DH22*GAM
       GO TO 200
   220 CONTINUE
-      IF (DFLAG) 250,230,240
+      IF (DFLAG.LT.ZERO) THEN
+         GO TO 250
+      ELSE IF (DFLAG.EQ.ZERO) THEN
+         GO TO 230 
+      ELSE
+         GO TO 240
+      END IF
   230 CONTINUE
       DPARAM(3) = DH21
       DPARAM(4) = DH12