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

diff --git a/source/unres/prng_32.f90 b/source/unres/prng_32.f90
index 9807982..a991715 100644
--- 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