X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Ftogether.F;h=b0e0997f1728f637f6c6ae75aaec9628a7b71357;hb=5ba2a6014fbd859202ed28885b66520ac09bb77d;hp=d94d221853944e617b7ce30b78666a14ff917ecb;hpb=d4fe3918e39a5786f5271071ca6490c61ccea178;p=unres.git

diff --git a/source/unres/src_MD-M/together.F b/source/unres/src_MD-M/together.F
index d94d221..b0e0997 100644
--- a/source/unres/src_MD-M/together.F
+++ b/source/unres/src_MD-M/together.F
@@ -810,7 +810,7 @@ c  receives and stores data from soldiers
       include 'COMMON.CONTACTS'
       dimension ind(9),xout(maxvar),eout(mxch*(mxch+1)/2+1)
 cjlee
-      double precision przes(3),obr(3,3)
+      double precision przes(3),obr(3,3),cout(2)
       logical non_conv
 cjlee
       iw_pdb=2