unres_package_Oct_2016 from emilial

[unres4.git] / source / unres / prng.f90

diff --git a/source/unres/prng.f90 b/source/unres/prng.f90
index 61df634..a3ced54 100644 (file)
--- a/source/unres/prng.f90
+++ b/source/unres/prng.f90
@@ -501,8 +501,8 @@
       if (me .lt. 0 .or. me .gt. nmax) then
          prng_chkpnt=.false.
       else
-        prng_chkpnt=.true.
-        iseed=iparam(1,me)
+         prng_chkpnt=.true.
+         iseed=iparam(1,me)
       endif
       end function prng_chkpnt
 !-----------------------------------------------------------------------------
@@ -527,10 +527,10 @@
 
       if (me .lt. 0 .or. me .gt. nmax) then
          prng_restart=.false.
-        return
+         return
       else
-        prng_restart=.true.
-        iparam(1,me)=iseed
+         prng_restart=.true.
+         iparam(1,me)=iseed
       endif
       end function prng_restart
 !-----------------------------------------------------------------------------