X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fprng.f90;h=a3ced54b820adf86ffdeecc083cef178ba30337a;hb=705644e0cbb7678faefd6fe1bc436159d38ad85d;hp=61df634de5a23af93df7de4c6cd9f0f22544ad1f;hpb=35f220f409bd5d21be33a402d79da2c23d3e0c3a;p=unres4.git

diff --git a/source/unres/prng.f90 b/source/unres/prng.f90
index 61df634..a3ced54 100644
--- 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
 !-----------------------------------------------------------------------------