use names
!-----------------------------------------------------------------------------
! Max. number of energy intervals
use names
!-----------------------------------------------------------------------------
! Max. number of energy intervals
!-----------------------------------------------------------------------------
! Maximum number of terms in SC bond-stretching potential
integer,parameter :: maxbondterm=3
!-----------------------------------------------------------------------------
! Maximum number of terms in SC bond-stretching potential
integer,parameter :: maxbondterm=3