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