sdot_f.c (1482B)
1 /** 2 * @license Apache-2.0 3 * 4 * Copyright (c) 2019 The Stdlib Authors. 5 * 6 * Licensed under the Apache License, Version 2.0 (the "License"); 7 * you may not use this file except in compliance with the License. 8 * You may obtain a copy of the License at 9 * 10 * http://www.apache.org/licenses/LICENSE-2.0 11 * 12 * Unless required by applicable law or agreed to in writing, software 13 * distributed under the License is distributed on an "AS IS" BASIS, 14 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 15 * See the License for the specific language governing permissions and 16 * limitations under the License. 17 */ 18 19 /** 20 * Compute the dot product of two single-precision floating-point vectors. 21 * 22 * @see <a href="http://www.netlib.org/lapack/expolore-html/df/d28/group__single__blas__level1.html">sdot</a> 23 */ 24 #include "stdlib/blas/base/sdot.h" 25 #include "stdlib/blas/base/sdot_fortran.h" 26 27 /** 28 * Computes the dot product of two single-precision floating-point vectors. 29 * 30 * Arguments are passed by reference to a Fortran subroutine implementing `sdot`. 31 * 32 * @param N number of values over which to compute the dot product 33 * @param X first array 34 * @param strideX X stride length 35 * @param Y second array 36 * @param strideY Y stride length 37 * @returns the dot product of X and Y 38 */ 39 float c_sdot( const int N, const float *X, const int strideX, const float *Y, const int strideY ) { 40 float dot; 41 sdotsub( &N, X, &strideX, Y, &strideY, &dot ); 42 return dot; 43 }