diff -r 4b175f3347d1 include/petscblaslapack_uscore.h
--- a/include/petscblaslapack_uscore.h	Tue Apr 10 22:20:15 2012 -0500
+++ b/include/petscblaslapack_uscore.h	Wed Apr 11 21:58:28 2012 +0300
@@ -10,7 +10,19 @@
 #  define LAPACKgeqrf_ sgeqrf_
 #  define LAPACKungqr_ sorgqr_
 #  define LAPACKgetrf_ sgetrf_
+
+#define PETSC_SINGLE_DOT_RESULT_DOUBLE 1
+#ifdef PETSC_SINGLE_DOT_RESULT_DOUBLE
+EXTERN_C_BEGIN
+extern double sdot_(const PetscBLASInt*,const PetscScalar*,const PetscBLASInt*,const PetscScalar*,const PetscBLASInt*);
+PETSC_STATIC_INLINE PetscScalar BLASdot_(const PetscBLASInt *n,const PetscScalar *x,const PetscBLASInt *sx,const PetscScalar *y,const PetscBLASInt *sy) {
+  return (PetscScalar)sdot_(n,x,sx,y,sy);
+}
+EXTERN_C_END
+#else
 #  define BLASdot_     sdot_
+#endif
+
 #  define BLASnrm2_    snrm2_
 #  define BLASscal_    sscal_
 #  define BLAScopy_    scopy_