diff --git a/common_s.h b/common_s.h index db8d69a0f..267c5f381 100644 --- a/common_s.h +++ b/common_s.h @@ -17,7 +17,7 @@ #define SCOPY_K scopy_k #define SDOTU_K sdot_k #define SDOTC_K sdot_k -#define SDSDOT_K sdot_k +#define SDSDOT_K dsdot_k #define DSDOT_K dsdot_k #define SNRM2_K snrm2_k #define SSCAL_K sscal_k @@ -162,7 +162,7 @@ #define SCOPY_K gotoblas -> scopy_k #define SDOTU_K gotoblas -> sdot_k #define SDOTC_K gotoblas -> sdot_k -#define SDSDOT_K gotoblas -> sdot_k +#define SDSDOT_K gotoblas -> dsdot_k #define DSDOT_K gotoblas -> dsdot_k #define SNRM2_K gotoblas -> snrm2_k #define SSCAL_K gotoblas -> sscal_k diff --git a/interface/sdsdot.c b/interface/sdsdot.c index 8540be660..168468c3a 100644 --- a/interface/sdsdot.c +++ b/interface/sdsdot.c @@ -52,8 +52,8 @@ FLOATRET NAME(blasint *N, FLOAT *a, FLOAT *x, blasint *INCX, FLOAT *y, blasint * FLOATRET ret; PRINT_DEBUG_NAME; - - if (n <= 0) return 0.; + + if (n <= 0) return(*a) ; IDEBUG_START; @@ -80,7 +80,7 @@ FLOAT CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint in PRINT_DEBUG_CNAME; - if (n <= 0) return 0.; + if (n <= 0) return (alpha); IDEBUG_START; diff --git a/kernel/Makefile.L1 b/kernel/Makefile.L1 index b08664a8e..667145c4e 100644 --- a/kernel/Makefile.L1 +++ b/kernel/Makefile.L1 @@ -674,7 +674,7 @@ $(KDIR)sdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)sdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNEL $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE $< -o $@ $(KDIR)sdsdot_k$(TSUFFIX).$(SUFFIX) $(KDIR)sdsdot_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(SDOTKERNEL) - $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE $< -o $@ + $(CC) -c $(CFLAGS) -UCOMPLEX -UDOUBLE -DDSDOT $< -o $@ $(KDIR)zdotu_k$(TSUFFIX).$(SUFFIX) $(KDIR)zdotu_k$(TPSUFFIX).$(PSUFFIX) : $(KERNELDIR)/$(ZDOTKERNEL) $(CC) -c $(CFLAGS) -DCOMPLEX -DDOUBLE -UCONJ $< -o $@