Enable nonbonded part of pontential
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ommp_system), | intent(inout), | target | :: | sys_obj |
The object to be initialized |
subroutine mmpol_init_bonded(sys_obj)
!! Enable nonbonded part of pontential
implicit none
type(ommp_system), intent(inout), target :: sys_obj
!! The object to be initialized
allocate(sys_obj%bds)
sys_obj%use_bonded = .true.
sys_obj%bds%top => sys_obj%top
end subroutine mmpol_init_bonded