From: julie Date: Wed, 12 Jan 2011 17:34:06 +0000 (+0000) Subject: Remove outdated compiler directives X-Git-Tag: accepted/tizen/5.0/unified/20181102.024111~870 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=eae5157da618f4208ab6d728f66f4812a5d5bb9f;p=platform%2Fupstream%2Flapack.git Remove outdated compiler directives --- diff --git a/SRC/dlaebz.f b/SRC/dlaebz.f index bb799de..3edea85 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 ) +