fun9_xaxpy.cpp 866 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. //
  2. // File: xaxpy.cpp
  3. //
  4. // MATLAB Coder version : 5.2
  5. // C/C++ source code generated on : 24-Mar-2023 11:40:08
  6. //
  7. // Include Files
  8. #include "fun9_xaxpy.h"
  9. #include "rt_nonfinite.h"
  10. #include "coder_array.h"
  11. // Function Definitions
  12. //
  13. // Arguments : int n
  14. // double a
  15. // int ix0
  16. // ::coder::array<double, 2U> &y
  17. // int iy0
  18. // Return Type : void
  19. //
  20. namespace coder {
  21. namespace internal {
  22. namespace blas {
  23. void xaxpy(int n, double a, int ix0, ::coder::array<double, 2U> &y, int iy0)
  24. {
  25. if ((n >= 1) && (!(a == 0.0))) {
  26. int i;
  27. i = n - 1;
  28. for (int k{0}; k <= i; k++) {
  29. int i1;
  30. i1 = (iy0 + k) - 1;
  31. y[i1] = y[i1] + a * y[(ix0 + k) - 1];
  32. }
  33. }
  34. }
  35. } // namespace blas
  36. } // namespace internal
  37. } // namespace coder
  38. //
  39. // File trailer for xaxpy.cpp
  40. //
  41. // [EOF]
  42. //