unres_package_Oct_2016 from emilial

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

diff --git a/source/unres/prng_32.f90 b/source/unres/prng_32.f90
index 9807982..a991715 100644 (file)
--- a/source/unres/prng_32.f90
+++ b/source/unres/prng_32.f90
@@ -951,8 +951,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
 !-----------------------------------------------------------------------------
@@ -979,10 +979,10 @@
       if(me.gt.nmax) me=mod(me,nmax)
       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
 !-----------------------------------------------------------------------------
@@ -1016,7 +1016,7 @@
       data m1,m2,m3,m4 / 0, 8037, 61950, 30779/
       if (me .lt. 0 .or. me .gt. nmax) then
          prng_next=-1.0
-        return
+         return
       endif
       l1=l(1,me)
       l2=l(2,me)
@@ -1059,11 +1059,11 @@
       if (me .lt. 0 .or. me .gt. nmax) then
          prng_chkpnt=.false.
       else
-        prng_chkpnt=.true.
-        iseed(1)=l(1,me)
-        iseed(2)=l(2,me)
-        iseed(3)=l(3,me)
-        iseed(4)=l(4,me)
+         prng_chkpnt=.true.
+         iseed(1)=l(1,me)
+         iseed(2)=l(2,me)
+         iseed(3)=l(3,me)
+         iseed(4)=l(4,me)
       endif
       return
       end function prng_chkpnt
@@ -1086,13 +1086,13 @@
 !el      common/ksrprng/l(16,0:nmax),n(16,0:nmax) 
       if (me .lt. 0 .or. me .gt. nmax) then
          prng_restart=.false.
-        return
+         return
       else
-        prng_restart=.true.
-        l(1,me)=iseed(1)
-        l(2,me)=iseed(2)
-        l(3,me)=iseed(3)
-        l(4,me)=iseed(4)
+        prng_restart=.true.
+         l(1,me)=iseed(1)
+         l(2,me)=iseed(2)
+         l(3,me)=iseed(3)
+         l(4,me)=iseed(4)
       endif
       return
       end function prng_restart