poprawki w COMMONAch

[unres.git] / source / unres / src_CSA / together.F

diff --git a/source/unres/src_CSA/together.F b/source/unres/src_CSA/together.F
index 8bc9d7a..099c469 100644 (file)
--- a/source/unres/src_CSA/together.F
+++ b/source/unres/src_CSA/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