From be02041793074d5bcbf8c90c936baf086645f457 Mon Sep 17 00:00:00 2001
From: Leandro Martinez <leandromartinez98@gmail.com>
Date: Mon, 28 Nov 2016 13:58:51 -0200
Subject: [PATCH] fixed initialization of seed

---
 src/topolink.f90 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/topolink.f90 b/src/topolink.f90
index 7053134..213a424 100644
--- a/src/topolink.f90
+++ b/src/topolink.f90
@@ -65,11 +65,6 @@ program topolink
     stop
   end if
 
-  ! Random number initialization
-  
-  if ( seed == 0 ) call seed_from_time(seed)
-  call init_random_number(seed)
- 
   ! Default input parametes
 
   pdbfile = 'none'
@@ -241,6 +236,11 @@ program topolink
   end if
   rewind(10)
 
+  ! Random number initialization
+  
+  if ( seed == 0 ) call seed_from_time(seed)
+  call init_random_number(seed)
+ 
   ! Print input parameters
 
   write(*,"(a,a)") '  PDB input file: ', trim(adjustl(pdbfile))