X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fcheck_bond.f;h=1c463267291c9b314368032941bab526383a51be;hb=34afc6bc75a1158d5a5a7f08c5a7d84c8c1fb7c4;hp=c8a4ad1d78ba71aaf48e3878f7269f26ce3688f3;hpb=020e579626d686ec20ecd9f0cc4c8313f474e152;p=unres.git

diff --git a/source/unres/src-HCD-5D/check_bond.f b/source/unres/src-HCD-5D/check_bond.f
index c8a4ad1..1c46326 100644
--- a/source/unres/src-HCD-5D/check_bond.f
+++ b/source/unres/src-HCD-5D/check_bond.f
@@ -1,4 +1,6 @@
        subroutine check_bond
+       implicit none
+       integer i,it
 C Subroutine is checking if the fitted function which describs sc_rot_pot
 C is correct, printing, alpha,beta, energy, data - for some known theta. 
 C theta angle is read from the input file. Sc_rot_pot are printed