Commit 84667482 authored by ofgeorg's avatar ofgeorg

removed double seed init

parent 381c9739
......@@ -443,6 +443,10 @@
IF (.NOT. options%use_seed) THEN
CALL SYSTEM_CLOCK(options%seed)
#ifdef __HAVE_MPI__
WRITE(proc,'(I10)') MY_RANK
options%seed = options%seed + MY_RANK**2 !making sure that every proc has different seed
#endif
ELSE
!-----------------------------------------------------------------------------
! open the file
......
......@@ -162,21 +162,10 @@
! Initialize Particle Swarm Update variables
!-------------------------------------------------------------------------
CALL pso_init(input%N)
!-------------------------------------------------------------------------
! Random Generator Seed
!-------------------------------------------------------------------------
CALL ZBQLINI(options%seed+MY_RANK**2)
#else
! variable from mpi_mod
proc = ''
!-------------------------------------------------------------------------
! Random Generator Seed
!-------------------------------------------------------------------------
CALL ZBQLINI(options%seed)
#endif
!-------------------------------------------------------------------------
......
......@@ -51,10 +51,10 @@
! Initialize MPI
#ifdef __HAVE_MPI__
! Init random number generator
CALL ZBQLINI(options%seed)
WRITE(proc,'(I10)') MY_RANK
IF (.NOT. options%use_seed) THEN
CALL ZBQLINI(options%seed)
options%seed = options%seed+MY_RANK**2
tmpint = options%seed + 1 +MY_RANK**2
options%seed = tmpint
END IF
!CALL SYSTEM_CLOCK(options%seed)
......@@ -70,12 +70,8 @@
#else
! Init random number generator
CALL ZBQLINI(options%seed)
IF (.NOT. options%use_seed) THEN
CALL ZBQLINI(options%seed)
END IF
tmpint = options%seed + 1
options%seed = tmpint
DO i = 1,options%dimensions
IF (options%use_init_bounds ) THEN
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment