X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fgradient_p.F;h=af7978b1408c559079c98284b71b1c491bb0ec49;hb=43dfdc33f5b338546258b5a882326f97a76b5bd4;hp=67275ed61b439f3c53578cdbf8f461684456cfa0;hpb=68aa1d135805a14583695611acfcf637748b4466;p=unres.git

diff --git a/source/unres/src-HCD-5D/gradient_p.F b/source/unres/src-HCD-5D/gradient_p.F
index 67275ed..af7978b 100644
--- a/source/unres/src-HCD-5D/gradient_p.F
+++ b/source/unres/src-HCD-5D/gradient_p.F
@@ -210,6 +210,7 @@ C-------------------------------------------------------------------------
       include 'COMMON.IOUNITS'
       include 'COMMON.TIME1'
       integer i,j,kk
+      double precision time00,time01
 c
 c This subrouting calculates total Cartesian coordinate gradient. 
 c The subroutine chainbuild_cart and energy MUST be called beforehand.