From d3ed5bf7503b07a7fad3de4b69a5badff9ffe175 Mon Sep 17 00:00:00 2001 From: Ian Giestas Pauli Date: Mon, 27 Jun 2022 15:05:04 -0300 Subject: [PATCH] Fixes issue with `rvs_normal` where it lacks the elemental property as noted in [https://github.com/fortran-lang/stdlib/pull/662#discussion_r907615242] --- src/stdlib_stats_distribution_normal.fypp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/stdlib_stats_distribution_normal.fypp b/src/stdlib_stats_distribution_normal.fypp index e21b7af14..de4f4b275 100644 --- a/src/stdlib_stats_distribution_normal.fypp +++ b/src/stdlib_stats_distribution_normal.fypp @@ -160,6 +160,7 @@ contains #:for k1, t1 in REAL_KINDS_TYPES + impure elemental & function rvs_norm_${t1[0]}$${k1}$(loc, scale) result(res) ! ! Normal random variate (loc, scale) @@ -178,6 +179,7 @@ contains #:for k1, t1 in CMPLX_KINDS_TYPES + impure elemental & function rvs_norm_${t1[0]}$${k1}$(loc, scale) result(res) ! ! Normally distributed complex. The real part and imaginary part are &