Remove outdated compiler directives

diff --git a/SRC/dlaebz.f b/SRC/dlaebz.f
index bb799de..3edea85 100644 (file)
--- a/SRC/dlaebz.f
+++ b/SRC/dlaebz.f
@@ -407,21 +407,6 @@
                   TMP2 = MIN( TMP2, -PIVMIN )
                END IF
 *
-*              A series of compiler directives to defeat vectorization
-*              for the next loop
-*
-*$PL$ CMCHAR=' '
-CDIR$          NEXTSCALAR
-C$DIR          SCALAR
-CDIR$          NEXT SCALAR
-CVD$L          NOVECTOR
-CDEC$          NOVECTOR
-CVD$           NOVECTOR
-*VDIR          NOVECTOR
-*VOCL          LOOP,SCALAR
-CIBM           PREFER SCALAR
-*$PL$ CMCHAR='*'
-*
                DO 90 J = 2, N
                   TMP2 = D( J ) - E2( J-1 ) / TMP2 - TMP1
                   IF( TMP2.LE.PIVMIN ) THEN
@@ -487,8 +472,6 @@ CIBM           PREFER SCALAR
   100       CONTINUE
             KL = KLNEW
 *
-*           End of Serial Version of the loop
-*
          END IF
 *
 *        Check for convergence

diff --git a/SRC/dstebz.f b/SRC/dstebz.f
index 0e0e24b..634a9a8 100644 (file)
--- a/SRC/dstebz.f
+++ b/SRC/dstebz.f
@@ -301,7 +301,6 @@
       WORK( N ) = ZERO
       PIVMIN = ONE
 *
-*DIR$ NOVECTOR
       DO 10 J = 2, N
          TMP1 = E( J-1 )**2
          IF( ABS( D( J )*D( J-1 ) )*ULP**2+SAFEMN.GT.TMP1 ) THEN

diff --git a/SRC/dtgevc.f b/SRC/dtgevc.f
index 44d0120..920f76d 100644 (file)
--- a/SRC/dtgevc.f
+++ b/SRC/dtgevc.f
@@ -631,35 +631,7 @@
 *              to underflow.  (E.g., less than SMALL.)
 *
 *
-*              A series of compiler directives to defeat vectorization
-*              for the next loop
-*
-*$PL$ CMCHAR=' '
-CDIR$          NEXTSCALAR
-C$DIR          SCALAR
-CDIR$          NEXT SCALAR
-CVD$L          NOVECTOR
-CDEC$          NOVECTOR
-CVD$           NOVECTOR
-*VDIR          NOVECTOR
-*VOCL          LOOP,SCALAR
-CIBM           PREFER SCALAR
-*$PL$ CMCHAR='*'
-*
                DO 120 JW = 1, NW
-*
-*$PL$ CMCHAR=' '
-CDIR$             NEXTSCALAR
-C$DIR             SCALAR
-CDIR$             NEXT SCALAR
-CVD$L             NOVECTOR
-CDEC$             NOVECTOR
-CVD$              NOVECTOR
-*VDIR             NOVECTOR
-*VOCL             LOOP,SCALAR
-CIBM              PREFER SCALAR
-*$PL$ CMCHAR='*'
-*
                   DO 110 JA = 1, NA
                      SUMS( JA, JW ) = ZERO
                      SUMP( JA, JW ) = ZERO
@@ -675,18 +647,6 @@ CIBM              PREFER SCALAR
   110             CONTINUE
   120          CONTINUE
 *
-*$PL$ CMCHAR=' '
-CDIR$          NEXTSCALAR
-C$DIR          SCALAR
-CDIR$          NEXT SCALAR
-CVD$L          NOVECTOR
-CDEC$          NOVECTOR
-CVD$           NOVECTOR
-*VDIR          NOVECTOR
-*VOCL          LOOP,SCALAR
-CIBM           PREFER SCALAR
-*$PL$ CMCHAR='*'
-*
                DO 130 JA = 1, NA
                   IF( ILCPLX ) THEN
                      SUM( JA, 1 ) = -ACOEF*SUMS( JA, 1 ) +

diff --git a/SRC/slaebz.f b/SRC/slaebz.f
index 596b7b1..aea39bd 100644 (file)
--- a/SRC/slaebz.f
+++ b/SRC/slaebz.f
@@ -251,7 +251,6 @@
 *        Compute the number of eigenvalues in the initial intervals.
 *
          MOUT = 0
-CDIR$ NOVECTOR
          DO 30 JI = 1, MINP
             DO 20 JP = 1, 2
                TMP1 = D( 1 ) - AB( JI, JP )
@@ -407,21 +406,6 @@ CDIR$ NOVECTOR
                   TMP2 = MIN( TMP2, -PIVMIN )
                END IF
 *
-*              A series of compiler directives to defeat vectorization
-*              for the next loop
-*
-*$PL$ CMCHAR=' '
-CDIR$          NEXTSCALAR
-C$DIR          SCALAR
-CDIR$          NEXT SCALAR
-CVD$L          NOVECTOR
-CDEC$          NOVECTOR
-CVD$           NOVECTOR
-*VDIR          NOVECTOR
-*VOCL          LOOP,SCALAR
-CIBM           PREFER SCALAR
-*$PL$ CMCHAR='*'
-*
                DO 90 J = 2, N
                   TMP2 = D( J ) - E2( J-1 ) / TMP2 - TMP1
                   IF( TMP2.LE.PIVMIN ) THEN
@@ -487,8 +471,6 @@ CIBM           PREFER SCALAR
   100       CONTINUE
             KL = KLNEW
 *
-*           End of Serial Version of the loop
-*
          END IF
 *
 *        Check for convergence

diff --git a/SRC/sstebz.f b/SRC/sstebz.f
index 429de95..13496e7 100644 (file)
--- a/SRC/sstebz.f
+++ b/SRC/sstebz.f
@@ -300,7 +300,6 @@
       WORK( N ) = ZERO
       PIVMIN = ONE
 *
-CDIR$ NOVECTOR
       DO 10 J = 2, N
          TMP1 = E( J-1 )**2
          IF( ABS( D( J )*D( J-1 ) )*ULP**2+SAFEMN.GT.TMP1 ) THEN

diff --git a/SRC/stgevc.f b/SRC/stgevc.f
index 78b6651..d9fbf88 100644 (file)
--- a/SRC/stgevc.f
+++ b/SRC/stgevc.f
@@ -631,35 +631,7 @@
 *              to underflow.  (E.g., less than SMALL.)
 *
 *
-*              A series of compiler directives to defeat vectorization
-*              for the next loop
-*
-*$PL$ CMCHAR=' '
-CDIR$          NEXTSCALAR
-C$DIR          SCALAR
-CDIR$          NEXT SCALAR
-CVD$L          NOVECTOR
-CDEC$          NOVECTOR
-CVD$           NOVECTOR
-*VDIR          NOVECTOR
-*VOCL          LOOP,SCALAR
-CIBM           PREFER SCALAR
-*$PL$ CMCHAR='*'
-*
                DO 120 JW = 1, NW
-*
-*$PL$ CMCHAR=' '
-CDIR$             NEXTSCALAR
-C$DIR             SCALAR
-CDIR$             NEXT SCALAR
-CVD$L             NOVECTOR
-CDEC$             NOVECTOR
-CVD$              NOVECTOR
-*VDIR             NOVECTOR
-*VOCL             LOOP,SCALAR
-CIBM              PREFER SCALAR
-*$PL$ CMCHAR='*'
-*
                   DO 110 JA = 1, NA
                      SUMS( JA, JW ) = ZERO
                      SUMP( JA, JW ) = ZERO
@@ -675,18 +647,6 @@ CIBM              PREFER SCALAR
   110             CONTINUE
   120          CONTINUE
 *
-*$PL$ CMCHAR=' '
-CDIR$          NEXTSCALAR
-C$DIR          SCALAR
-CDIR$          NEXT SCALAR
-CVD$L          NOVECTOR
-CDEC$          NOVECTOR
-CVD$           NOVECTOR
-*VDIR          NOVECTOR
-*VOCL          LOOP,SCALAR
-CIBM           PREFER SCALAR
-*$PL$ CMCHAR='*'
-*
                DO 130 JA = 1, NA
                   IF( ILCPLX ) THEN
                      SUM( JA, 1 ) = -ACOEF*SUMS( JA, 1 ) +