bugfix for sdsdot

Author: wernsaar

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

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;
 

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 $@