anchor.diff:        end if
       end if
     end do
  -  dnrm2 = scale * sqrt( ssq )
  +  dnrm2 = scale * dsqrt( ssq )
   end function dnrm2
positive.code:   ssq = 1.0d0
    do i = 1,1+((N-1)*stride),stride
      if ( dx( i ) /= 0.0d0 ) then
        ax = abs( dx( i ) )
        if ( scale < ax ) then
          ssq = 1.0d0 + ( ssq * (scale/ax)**2 )
          scale = ax
  
negative.code:   end if
    !..
    if ( N == 1 ) then
      dnrm2 = dabs( dx( 1 ) )
      return
    end if
    ! ..
  