Commit 0c015f7d authored by rtoy's avatar rtoy
Browse files

Put back the original version with the "DO 10," expression.

parent bb1158b6
......@@ -38,7 +38,7 @@
* auxiliary routine:
* CALL DLASSQ( N, X, INCX, SCALE, SSQ )
*
DO 10 IX = 1, 1 + ( N - 1 )*INCX, INCX
DO 10, IX = 1, 1 + ( N - 1 )*INCX, INCX
IF( X( IX ).NE.ZERO )THEN
ABSXI = ABS( X( IX ) )
IF( SCALE.LT.ABSXI )THEN
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment