anchor.diff:  
   
         IF(N.LE.0)RETURN
  -      IF (INCX.EQ.INCY) IF(INCX.lt.1) GOTO 5
  -      IF (INCX.EQ.INCY) IF(INCX.eq.1) GOTO 20
  +      IF (INCX.EQ.INCY .AND. INCX.lt.1) GOTO 5
  +      IF (INCX.EQ.INCY .AND. INCX.eq.1) GOTO 20
         GOTO 60
       5 CONTINUE
   
  
positive.code: 
  
        IF(N.LE.0.OR.DA.EQ.0.D0) RETURN
        IF (INCX.EQ.INCY) IF(INCX.lt.1) GOTO 5
        IF (INCX.EQ.INCY) IF(INCX.eq.1) GOTO 20
        GOTO 60
      5 CONTINUE
  
  
negative.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
  
  