anchor.diff:        double complex zx(*), zy(*), z, zdotu
         integer n, incx, incy
         
  -      zdotu(n, zx, incx, zy, incy, z)
  -      wzdotu = zdotu
  +      z = zdotu(n, zx, incx, zy, incy)
  +      wzdotu = z
         
         return
         end
  
positive.code:       complex cx(*), cy(*), c, cdotu
        integer n, incx, incy
        
        cdotu(n, cx, incx, cy, incy, c)
        wzdotu = zdotu
        
        return
        end
  
negative.code:       double complex function wzdotc(n, zx, incx, zy, incy)
        double complex zx(*), zy(*), z
        double complex zdotc
        integer n, incx, incy
        
        z = zdotc(n, zx, incx, zy, incy)
        wzdotc = z
        
        end
        
  