We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 448fbdb commit 7f2bb28Copy full SHA for 7f2bb28
doc/specs/stdlib_stats_distribution_normal.md
@@ -71,6 +71,7 @@ program demo_normal_rvs
71
a(:,:,:) = 1.0
72
b(:,:,:) = 1.0
73
print *, norm(a,b) ! a rank 3 random variates array
74
+
75
![0.152776539, -7.51764774E-02, 1.47208166, 0.180561781, 1.32407105,
76
! 1.20383692, 0.123445868, -0.455737948, -0.469808221, 1.60750175,
77
! 1.05748117, 0.720934749, 0.407810807, 1.48165631, 2.31749439,
@@ -127,7 +128,7 @@ program demo_normal_pdf
127
128
norm => normal_distribution_rvs
129
130
implicit none
- real :: x(3,4,5),a(3,4,5),b(3,4,5)
131
+ real :: x(2,3,4),a(2,3,4),b(2,3,4)
132
complx :: loc, scale
133
integer :: seed_put, seed_get
134
@@ -143,7 +144,7 @@ program demo_normal_pdf
143
144
145
!6.47588000E-02
146
- x = reshape(norm(0.0, 1.0, 60),[3,4,5])
147
+ x = reshape(norm(0.0, 1.0, 24),[2,3,4])
148
! standard normal random variates array
149
150
a(:,:,:) = 0.0
0 commit comments