6 use geometry, only: chainbuild
7 use energy, only: etotal
9 !-----------------------------------------------------------------------------
11 !-----------------------------------------------------------------------------
13 !-----------------------------------------------------------------------------
15 ! Subroutine is checking if the fitted function which describs sc_rot_pot
16 ! is correct, printing, alpha,beta, energy, data - for some known theta.
17 ! theta angle is read from the input file. Sc_rot_pot are printed
18 ! for the second residue in sequance.
19 ! include 'DIMENSIONS'
20 ! include 'COMMON.VAR'
21 ! include 'COMMON.GEO'
22 ! include 'COMMON.INTERACT'
23 ! include 'COMMON.CHAIN'
24 real(kind=8),dimension(0:n_ene) :: energia
30 vbld(nres+2)=0.5d0+0.05d0*(i-1)
33 write (2,*) vbld(nres+2),energia(17)
36 end subroutine check_bond
38 end module check_bond_