template_blas_dot.h
Go to the documentation of this file.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035 #ifndef TEMPLATE_BLAS_DOT_HEADER
00036 #define TEMPLATE_BLAS_DOT_HEADER
00037
00038 #include "template_blas_common.h"
00039
00040 template<class Treal>
00041 Treal template_blas_dot(const integer *n, const Treal *dx, const integer *incx, const Treal *dy,
00042 const integer *incy)
00043 {
00044
00045 integer i__1;
00046 Treal ret_val;
00047
00048 integer i__, m;
00049 Treal dtemp;
00050 integer ix, iy, mp1;
00051
00052
00053
00054
00055
00056 --dy;
00057 --dx;
00058
00059 ret_val = 0.;
00060 dtemp = 0.;
00061 if (*n <= 0) {
00062 return ret_val;
00063 }
00064 if (*incx == 1 && *incy == 1) {
00065 goto L20;
00066 }
00067
00068
00069 ix = 1;
00070 iy = 1;
00071 if (*incx < 0) {
00072 ix = (-(*n) + 1) * *incx + 1;
00073 }
00074 if (*incy < 0) {
00075 iy = (-(*n) + 1) * *incy + 1;
00076 }
00077 i__1 = *n;
00078 for (i__ = 1; i__ <= i__1; ++i__) {
00079 dtemp += dx[ix] * dy[iy];
00080 ix += *incx;
00081 iy += *incy;
00082
00083 }
00084 ret_val = dtemp;
00085 return ret_val;
00086
00087
00088 L20:
00089 m = *n % 5;
00090 if (m == 0) {
00091 goto L40;
00092 }
00093 i__1 = m;
00094 for (i__ = 1; i__ <= i__1; ++i__) {
00095 dtemp += dx[i__] * dy[i__];
00096
00097 }
00098 if (*n < 5) {
00099 goto L60;
00100 }
00101 L40:
00102 mp1 = m + 1;
00103 i__1 = *n;
00104 for (i__ = mp1; i__ <= i__1; i__ += 5) {
00105 dtemp = dtemp + dx[i__] * dy[i__] + dx[i__ + 1] * dy[i__ + 1] + dx[
00106 i__ + 2] * dy[i__ + 2] + dx[i__ + 3] * dy[i__ + 3] + dx[i__ +
00107 4] * dy[i__ + 4];
00108
00109 }
00110 L60:
00111 ret_val = dtemp;
00112 return ret_val;
00113 }
00114
00115 #endif