X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fsrc_MD%2Funres.F;h=053eec6ee1dacbd2eeffa4142d752ce3fb9a5c6f;hb=e11674c0a2345839beaea75df0a4c17f517e16c7;hp=02f3fb6b8a24650502f5414e414a26020073dc43;hpb=c51f4eb43d54ac93f92168b225453afc56383ba2;p=unres.git

diff --git a/source/unres/src_MD/unres.F b/source/unres/src_MD/unres.F
index 02f3fb6..053eec6 100644
--- a/source/unres/src_MD/unres.F
+++ b/source/unres/src_MD/unres.F
@@ -190,6 +190,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
 #ifdef MPI
       time00=MPI_Wtime()