Change new label number in DLASD7 to keep the order consistent

Author: Maarten Baert

SRC/dlasd7.f

@@ -494,9 +494,9 @@ SUBROUTINE DLASD7( ICOMPQ, NL, NR, SQRE, K, D, Z, ZW, VF, VFW,
 *           If J - JPREV is greater than 1, the indices in between
 *           must be shifted to preserve the correct output order.
 *
-            DO 130 JP = JPREV, J - 1
+            DO 85 JP = JPREV, J - 1
                IDXP( K2 + J - 1 - JP ) = JP
-  130       CONTINUE
+   85       CONTINUE
             JPREV = J
          ELSE
             K = K + 1