make cp src-HCD-5D

[unres.git] / source / unres / src-HCD-5D / check_bond.f

diff --git a/source/unres/src-HCD-5D/check_bond.f b/source/unres/src-HCD-5D/check_bond.f
index c8a4ad1..1c46326 100644 (file)
--- 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