Commit f98f3d3

authored

Merge pull request #665 from 14NGiestas/rvs_normal-issue

Fixes issue with `rvs_normal` where it lacks the elemental property

2 parents 78a680a + d4c72ee commit f98f3d3Copy full SHA for f98f3d3

File tree

-3

lines changed

-3

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -30,16 +30,16 @@ Note: the algorithm used for generating normal random variates is fundamentally`
`30`	`30`
`31`	`31`	`### Class`
`32`	`32`
`33`		`-Function`
	`33`	+Elemental function (passing both `loc` and `scale`).
`34`	`34`
`35`	`35`	`### Arguments`
`36`	`36`
`37`		-`array_size`: optional argument has `intent(in)` and is a scalar of type `integer`.
`38`		`-`
`39`	`37`	`loc`: optional argument has `intent(in)` and is a scalar of type `real` or `complex`.
`40`	`38`
`41`	`39`	`scale`: optional argument has `intent(in)` and is a scalar of type `real` or `complex`.
`42`	`40`
	`41`	+`array_size`: optional argument has `intent(in)` and is a scalar of type `integer`.
	`42`	`+`
`43`	`43`	`loc` and `scale` arguments must be of the same type.
`44`	`44`
`45`	`45`	`### Return value`

Lines changed: 2 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -160,6 +160,7 @@ contains`
`160`	`160`
`161`	`161`
`162`	`162`	`#:for k1, t1 in REAL_KINDS_TYPES`
	`163`	`+ impure elemental &`
`163`	`164`	`function rvs_norm_${t1[0]}$${k1}$(loc, scale) result(res)`
`164`	`165`	`!`
`165`	`166`	`! Normal random variate (loc, scale)`
`@@ -178,6 +179,7 @@ contains`
`178`	`179`
`179`	`180`
`180`	`181`	`#:for k1, t1 in CMPLX_KINDS_TYPES`
	`182`	`+ impure elemental &`
`181`	`183`	`function rvs_norm_${t1[0]}$${k1}$(loc, scale) result(res)`
`182`	`184`	`!`
`183`	`185`	`! Normally distributed complex. The real part and imaginary part are &`

Comments

(0)