<commit_before>/**
* Compute the sum of absolute values.
*
* This file provides an interface to the BLAS Level 1 routine `dasum`.
*
* @see <a href="http://www.netlib.org/lapack/explore-html/de/da4/group__double__blas__level1.html">dasum</a>
*/
#include "dasum.h"
#include "dasum_fortran.h"

/**
* Computes the sum of absolute values.
*
* Arguments are passed by reference to a Fortran subroutine implementing `dasum`.
*
* @param N       number of elements to sum
* @param X       input array
* @param stride  stride length
* @return        sum of absolute values
*/
double c_dasum(const int N, const double *X, const int stride) {
	double sum;
	dasumsub(&N, X, &stride, &sum);
	return sum;
}<commit_msg>Add spaces<commit_after>/**
* Compute the sum of absolute values.
*
* This file provides an interface to the BLAS Level 1 routine `dasum`.
*
* @see <a href="http://www.netlib.org/lapack/explore-html/de/da4/group__double__blas__level1.html">dasum</a>
*/
#include "dasum.h"
#include "dasum_fortran.h"

/**
* Computes the sum of absolute values.
*
* Arguments are passed by reference to a Fortran subroutine implementing `dasum`.
*
* @param N       number of elements to sum
* @param X       input array
* @param stride  stride length
* @return        sum of absolute values
*/
double c_dasum( const int N, const double *X, const int stride ) {
	double sum;
	dasumsub( &N, X, &stride, &sum );
	return sum;
}
{'fraction_non_alphanumeric': 0.12082444918265814, 'fraction_numerical': 0.0042643923240938165, 'mean_word_length': 3.7891156462585034, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '414990', 'n_tokens_mistral': 475, 'n_tokens_neox': 469, 'n_words': 165}