X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres-dock%2Fgenerator.f;fp=source%2Funres-dock%2Fgenerator.f;h=ffdb2c10585c5fbf8ceee82e9d12f07abda9f48d;hb=94435096dcb0d0bc436de0b75558b1ff4746f618;hp=a8dd761df09a5c1c4383c3161f9a5dc4083c3dc0;hpb=e5464f1c5c33a0c805a086cdb0e51c4df86e29fe;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