Just terminate every "submodule" in bonded, deallocating arrays and disabling the potential terms
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ommp_bonded_type), | intent(inout) | :: | bds |
subroutine bonded_terminate(bds)
!! Just terminate every "submodule" in bonded,
!! deallocating arrays and disabling the potential terms
implicit none
type(ommp_bonded_type), intent(inout) :: bds
! Bonded potential data structure
call bond_terminate(bds)
call angle_terminate(bds)
call strbnd_terminate(bds)
call urey_terminate(bds)
call opb_terminate(bds)
call pitors_terminate(bds)
call torsion_terminate(bds)
call imptorsion_terminate(bds)
call tortor_terminate(bds)
call angtor_terminate(bds)
call strtor_terminate(bds)
end subroutine bonded_terminate