bugfix for sdsdot

diff --git a/common_s.h b/common_s.h
index db8d69a..267c5f3 100644 (file)
--- 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 8540be6..168468c 100644 (file)
--- 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 b08664a..667145c 100644 (file)
--- 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 $@