sitesym_dealloc Subroutine

public subroutine sitesym_dealloc()

Uses

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

Arguments

None

Contents

Source Code


Source Code

  subroutine sitesym_dealloc
    !==================================================================!
    use w90_io, only: io_error

    implicit none

    integer :: ierr

    deallocate (ik2ir, stat=ierr)
    if (ierr /= 0) call io_error('Error in deallocating ik2ir in sitesym_dealloc')
    deallocate (ir2ik, stat=ierr)
    if (ierr /= 0) call io_error('Error in deallocating ir2ik in sitesym_dealloc')
    deallocate (kptsym, stat=ierr)
    if (ierr /= 0) call io_error('Error in deallocating kptsym in sitesym_dealloc')
    deallocate (d_matrix_band, stat=ierr)
    if (ierr /= 0) call io_error('Error in deallocating d_matrix_band in sitesym_dealloc')
    deallocate (d_matrix_wann, stat=ierr)
    if (ierr /= 0) call io_error('Error in deallocating d_matrix_wann in sitesym_dealloc')

    return
  end subroutine sitesym_dealloc