X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Funres.F;h=0039fcc967fec041653316549732243f4bfe8601;hb=52187c9365594597457799445140ea830f1141a3;hp=c3e8e235c6be3d4f5b542096c235f2fc5edcef8d;hpb=aebadf9023e437f497f92dfcf2303c16f60917c1;p=unres.git

diff --git a/source/unres/src_MD-M/unres.F b/source/unres/src_MD-M/unres.F
index c3e8e23..0039fcc 100644
--- a/source/unres/src_MD-M/unres.F
+++ b/source/unres/src_MD-M/unres.F
@@ -188,6 +188,7 @@ c---------------------------------------------------------------------------
       common /srutu/ icall
       double precision energy(0:n_ene)
       double precision energy_long(0:n_ene),energy_short(0:n_ene)
+      double precision varia(maxvar)
       if (indpdb.eq.0) call chainbuild
       time00=MPI_Wtime()
       call chainbuild_cart