From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Tue, 10 Mar 2020 22:33:15 +0000 (+0100)
Subject: UNRES-Dock generator real rand
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=2b5b31b91fbcfa097ce0cd47309661ae5943d13e

UNRES-Dock generator real rand
---

diff --git a/source/unres-dock/generator.f b/source/unres-dock/generator.f
index a8dd761..ffdb2c1 100644
--- a/source/unres-dock/generator.f
+++ b/source/unres-dock/generator.f
@@ -8,7 +8,8 @@
       integer numera1(90000),numerr1(90000),numera2(90000)
       integer glys1, glys2, glye1, glye2, ilee
       integer no_models, seed1, seed11, seed12, seed13
-      real*8 rand, r, boxx, boxy, boxz, dist2acm, dist1acm, b(4), t(3)
+      real rand
+      real*8 r, boxx, boxy, boxz, dist2acm, dist1acm, b(4), t(3)
       real*8 minx1, miny1, minz1, maxx1, maxy1, maxz1
       real*8 minx2, miny2, minz2, maxx2, maxy2, maxz2
       real*8 distx1, disty1, distz1, distx2, disty2, distz2