X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres-dock%2Fgenerator.f;h=ffdb2c10585c5fbf8ceee82e9d12f07abda9f48d;hb=2b5b31b91fbcfa097ce0cd47309661ae5943d13e;hp=a8dd761df09a5c1c4383c3161f9a5dc4083c3dc0;hpb=c844b7d5a2e7835de404e9fd038218924794d709;p=unres.git

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