fixed initialization of seed

m3g · Nov 28, 2016 · be02041 · be02041
1 parent 8ba0b72
commit be02041
Showing 1 changed file with 5 additions and 5 deletions.
diff --git 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))