diff --git a/code/math.f90 b/code/math.f90
index 5cdef7d54..8273b1820 100644
--- a/code/math.f90
+++ b/code/math.f90
@@ -193,11 +193,9 @@ subroutine math_init
                                                                                                     ! comment the first random_seed call out, set randSize to 1, and use ifort
  character(len=64) :: error_msg
 
- mainProcess: if (worldrank == 0) then 
-   write(6,'(/,a)')   ' <<<+-  math init  -+>>>'
-   write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
+ write(6,'(/,a)')   ' <<<+-  math init  -+>>>'
+ write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
- endif mainProcess
 
  call random_seed(size=randSize)
  if (allocated(randInit)) deallocate(randInit)
@@ -216,13 +214,11 @@ subroutine math_init
    call random_number(randTest(i))
  enddo
 
- mainProcess2: if (worldrank == 0) then 
-   write(6,*) 'size  of random seed:    ', randSize
-   do i =1, randSize
-     write(6,*) 'value of random seed:    ', i, randInit(i)
-   enddo
-   write(6,'(a,4(/,26x,f17.14),/)') ' start of random sequence: ', randTest
- endif mainProcess2 
+ write(6,'(a,I)') 'size  of random seed:    ', randSize
+ do i =1, randSize
+   write(6,'(a,I,I)') 'value of random seed:    ', i, randInit(i)
+ enddo
+ write(6,'(a,4(/,26x,f17.14),/)') ' start of random sequence: ', randTest
 
  call random_seed(put = randInit)