anchor.diff:      else
         iy = 0
       endif
  -    ! ..
       do i = 1, N
         stemp = stemp + ( sx( ix ) * sy( iy ) )
         ix = ix + strideX
  
positive.code: ! limitations under the License.
  !<
  
  !> Computes the dot product of two vectors
  !
  ! ## Notes
  !
  
negative.code:     return
    end if
    ! ..
    ! If both strides are equal to `1`, use unrolled loops...
    if ( strideX == 1 .AND. strideY == 1 ) then
      m = mod( N, 5 )
     ! ..
      ! If we have a remainder, do a clean-up loop...
      if ( m /= 0 ) then
        do i = 1, m
          stemp = stemp + ( sx( i ) + sy( i ) )
        end do
      end if
      if ( N < M ) then
        sdot = stemp
        return
      end if
      mp1 = m + 1
      do i = mp1, N, 5
        stemp = stemp + &
          ( sx( i ) * sy( i ) ) + &
          ( sx( i+1 ) * sy( i+1 ) ) + &
  