X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fcheckder_p.F;fp=source%2Funres%2Fsrc-HCD-5D%2Fcheckder_p.F;h=d0032daa582f93f07ddbcbee07c4f780608eb345;hb=58980cd5a21077fd523753ffccc036765ef70d82;hp=e1448dba018fe6ee4e4f1695c11f7572fb84a854;hpb=d02292725c202ff9c2749beac934bf1630f9017e;p=unres.git

diff --git a/source/unres/src-HCD-5D/checkder_p.F b/source/unres/src-HCD-5D/checkder_p.F
index e1448db..d0032da 100644
--- a/source/unres/src-HCD-5D/checkder_p.F
+++ b/source/unres/src-HCD-5D/checkder_p.F
@@ -364,6 +364,7 @@ c-------------------------------------------------------------------------
       double precision dnorm1,dnorm2,be
       double precision time00
       double precision dist,alpha,beta
+      double precision time01
       if (lprn) write (iout,'(/a)') 'Recalculated internal coordinates'
 #ifdef TIMING
       time01=MPI_Wtime()