From becb04c2348919575e2f7bb62b8e79c1c7b33f42 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 16 Mar 2020 19:39:18 +0100
Subject: [PATCH] simpler ...

---
 src/math.f90 | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/math.f90 b/src/math.f90
index ae1626f62..a296dce31 100644
--- a/src/math.f90
+++ b/src/math.f90
@@ -89,7 +89,6 @@ contains
 !--------------------------------------------------------------------------------------------------
 subroutine math_init
 
-  integer :: i
   real(pReal), dimension(4) :: randTest
   integer :: randSize
   integer, dimension(:), allocatable :: randInit
@@ -106,11 +105,8 @@ subroutine math_init
     randInit(2:randSize) = randInit(1)
   endif
 
-  call random_seed(put=randInit)
-
-  do i = 1, 4
-    call random_number(randTest(i))
-  enddo
+  call random_seed(put = randInit)
+  call random_number(randTest)
 
   write(6,'(a,i2)')                ' size  of random seed:     ', randSize
   write(6,'(a,i0)')                ' value of random seed:     ', randInit(1)