<commit_before>!> Wraps dasum as a subroutine.
!
! @param {integer} N - number of values to sum
! @param {Array<double>} dx - input array
! @param {integer} stride - stride length
! @param {double} sum - output variable reference
!<
subroutine dasumsub( N, dx, stride, sum )
  implicit none
  ! ..
  ! External functions:
  external dasum
  double precision :: dasum
  ! ..
  ! Scalar arguments:
  integer :: stride, N
  double precision :: sum
  ! ..
  ! Array arguments:
  double precision :: dx(*)
  ! ..
  ! Compute the sum of absolute values:
  sum = dasum( N, dx, stride )
  return
end subroutine dasumsub<commit_msg>Add interface block<commit_after>!> Wraps dasum as a subroutine.
!
! @param {integer} N - number of values to sum
! @param {Array<double>} dx - input array
! @param {integer} stride - stride length
! @param {double} sum - output variable reference
!<
subroutine dasumsub( N, dx, stride, sum )
  implicit none
  ! ..
  ! External functions:
  interface
    double precision function dasum( N, dx, stride )
      integer :: stride, N
      double precision :: dx(*)
    end function dasum
  end interface
  ! ..
  ! Scalar arguments:
  integer :: stride, N
  double precision :: sum
  ! ..
  ! Array arguments:
  double precision :: dx(*)
  ! ..
  ! Compute the sum of absolute values:
  sum = dasum( N, dx, stride )
  return
end subroutine dasumsub
{'fraction_non_alphanumeric': 0.11386861313868613, 'fraction_numerical': 0.0, 'mean_word_length': 3.1419939577039275, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, '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': '4740212', 'n_tokens_mistral': 435, 'n_tokens_neox': 432, 'n_words': 161}