X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Ftogether.F;h=099c4692b7458b55df740b186a297b57c3bfe57e;hb=56489e050f290e7b3570c2793c9a2b5a64ec2621;hp=8bc9d7a4b7215c336513a58ef6ba42cabdedb696;hpb=b040214d28c2c5aea0971f69b6866f1a42c84e69;p=unres.git

diff --git a/source/unres/src_CSA_DiL/together.F b/source/unres/src_CSA_DiL/together.F
index 8bc9d7a..099c469 100644
--- a/source/unres/src_CSA_DiL/together.F
+++ b/source/unres/src_CSA_DiL/together.F
@@ -878,6 +878,7 @@ c  receives and stores data from soldiers
       include 'COMMON.CHAIN'
       include 'COMMON.CONTACTS'
       dimension ind(9),xout(maxvar),eout(mxch*(mxch+1)/2+1)
+      dimension cout(2)
 cjlee
       double precision przes(3),obr(3,3)
       logical non_conv