anchor.diff:  
   
         IF(N.LE.0.OR.DA.EQ.0.D0) RETURN
  -      IF (INCX.EQ.INCY .AND. INCX.lt.1) GOTO 5
  -      IF (INCX.EQ.INCY .AND. INCX.eq.1) GOTO 20
  -      GOTO 60
  +      IF (INCX.EQ.INCY) THEN
  +         IF (INCX.lt.1) GOTO 5
  +         IF (INCX.eq.1) GOTO 20
  +         GOTO 60
  +      END IF
       5 CONTINUE
   
   C        CODE FOR NONEQUAL OR NONPOSITIVE INCREMENTS.
  
positive.code: 
  
        IF(N.LE.0)RETURN
        IF (INCX.EQ.INCY .AND. INCX.lt.1) GOTO 5
        IF (INCX.EQ.INCY .AND. INCX.eq.1) GOTO 20
        GOTO 60
      5 CONTINUE
  
  C       CODE FOR UNEQUAL OR NONPOSITIVE INCREMENTS.
  
negative.code: 
  
        IF(N.LE.0)RETURN
        IF (INCX.EQ.INCY) THEN
           IF (INCX.lt.1) GOTO 5
           IF (INCX.eq.1) GOTO 20
           GOTO 60
        END IF
      5 CONTINUE
  
  C        CODE FOR UNEQUAL OR NONPOSITIVE INCREMENTS.
  