Skip to content

Commit 7f2bb28

Browse files
Update stdlib_stats_distribution_normal.md
1 parent 448fbdb commit 7f2bb28

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

doc/specs/stdlib_stats_distribution_normal.md

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -71,6 +71,7 @@ program demo_normal_rvs
7171
a(:,:,:) = 1.0
7272
b(:,:,:) = 1.0
7373
print *, norm(a,b) ! a rank 3 random variates array
74+
7475
![0.152776539, -7.51764774E-02, 1.47208166, 0.180561781, 1.32407105,
7576
! 1.20383692, 0.123445868, -0.455737948, -0.469808221, 1.60750175,
7677
! 1.05748117, 0.720934749, 0.407810807, 1.48165631, 2.31749439,
@@ -127,7 +128,7 @@ program demo_normal_pdf
127128
norm => normal_distribution_rvs
128129
129130
implicit none
130-
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)
131132
complx :: loc, scale
132133
integer :: seed_put, seed_get
133134
@@ -143,7 +144,7 @@ program demo_normal_pdf
143144
144145
!6.47588000E-02
145146
146-
x = reshape(norm(0.0, 1.0, 60),[3,4,5])
147+
x = reshape(norm(0.0, 1.0, 24),[2,3,4])
147148
! standard normal random variates array
148149
149150
a(:,:,:) = 0.0

0 commit comments

Comments
 (0)