destroy_xc Subroutine

  1. m_psml_core.F90
  2. m_psml_core
  3. destroy_xc

private subroutine destroy_xc(xp)

Arguments

Type IntentOptional AttributesName
type(xc_t), intent(inout) :: xp

Contents

Source Code

destroy_xc

Source Code

subroutine destroy_xc(xp)
type(xc_t), intent(inout) :: xp

if (allocated(xp%libxc_name)) deallocate(xp%libxc_name)
if (allocated(xp%libxc_type)) deallocate(xp%libxc_type)
if (allocated(xp%libxc_id)) deallocate(xp%libxc_id)
if (allocated(xp%libxc_weight)) deallocate(xp%libxc_weight)
call ps_clean_annotation(xp%annotation)

end subroutine destroy_xc