sitesym_dealloc Subroutine

public subroutine sitesym_dealloc(sitesym, error, comm)

Uses

  • proc~~sitesym_dealloc~~UsesGraph proc~sitesym_dealloc sitesym_dealloc module~w90_wannier90_types w90_wannier90_types proc~sitesym_dealloc->module~w90_wannier90_types module~w90_constants w90_constants module~w90_wannier90_types->module~w90_constants

Arguments

Type IntentOptional Attributes Name
type(sitesym_type), intent(inout) :: sitesym
type(w90_error_type), intent(out), allocatable :: error
type(w90_comm_type), intent(in) :: comm

Calls

proc~~sitesym_dealloc~~CallsGraph proc~sitesym_dealloc sitesym_dealloc proc~set_error_dealloc set_error_dealloc proc~sitesym_dealloc->proc~set_error_dealloc proc~comms_sync_error comms_sync_error proc~set_error_dealloc->proc~comms_sync_error proc~set_base_error set_base_error proc~set_error_dealloc->proc~set_base_error

Source Code

  subroutine sitesym_dealloc(sitesym, error, comm)
    !================================================!

    use w90_wannier90_types, only: sitesym_type

    implicit none

    type(sitesym_type), intent(inout) :: sitesym
    type(w90_error_type), allocatable, intent(out) :: error
    type(w90_comm_type), intent(in) :: comm
    integer :: ierr

    deallocate (sitesym%ik2ir, stat=ierr)
    if (ierr /= 0) then
      call set_error_dealloc(error, 'Error in deallocating sitesym%ik2ir in sitesym_dealloc', comm)
      return
    end if
    deallocate (sitesym%ir2ik, stat=ierr)
    if (ierr /= 0) then
      call set_error_dealloc(error, 'Error in deallocating sitesym%ir2ik in sitesym_dealloc', comm)
      return
    end if
    deallocate (sitesym%kptsym, stat=ierr)
    if (ierr /= 0) then
      call set_error_dealloc(error, 'Error in deallocating sitesym%kptsym in sitesym_dealloc', comm)
      return
    end if
    deallocate (sitesym%d_matrix_band, stat=ierr)
    if (ierr /= 0) then
      call set_error_dealloc(error, 'Error in deallocating sitesym%d_matrix_band in sitesym_dealloc', comm)
      return
    end if
    deallocate (sitesym%d_matrix_wann, stat=ierr)
    if (ierr /= 0) then
      call set_error_dealloc(error, 'Error in deallocating sitesym%d_matrix_wann in sitesym_dealloc', comm)
      return
    end if

    return
  end subroutine sitesym_dealloc