More debugging.

tilmantroester · Dec 4, 2019 · 0cfe3f8 · 0cfe3f8
1 parent 8f37820
commit 0cfe3f8
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/polychord/random_utils.F90 b/src/polychord/random_utils.F90
@@ -41,7 +41,8 @@ subroutine initialise_random(mpi_communicator,seed_input)
         integer :: size_seed
         integer :: dt(8)
         integer(int64) :: t
-        integer :: i
+        integer :: i, ierr
+        character(len=512) :: serr
 
 
 
@@ -84,7 +85,10 @@ subroutine initialise_random(mpi_communicator,seed_input)
 
         call random_seed(size=size_seed)
         ! size_seed = 64
-        allocate(seed(size_seed))
+        allocate(seed(size_seed), stat=ierr, errmsg=serr)
+        if(ierr /= 0) then
+            write(*,*) "Could not allocate seed:", ierr, serr
+        end if
 
         ! set up the seeds for the better generator
         do i=1,size_seed
@@ -95,7 +99,8 @@ subroutine initialise_random(mpi_communicator,seed_input)
             ! write(*,*) seed(i)
         ! end do
         write(*,*) "size_seed:", size_seed
-        write(*,*) "sahpe(seed):", shape(seed)
+        write(*,*) "shape(seed):", shape(seed)
+        write(*,*) "seed:", seed
         ! Seed the better generator
         call random_seed(put=seed)
         deallocate (seed)