w90_get_spreads Subroutine

public subroutine w90_get_spreads(common_data, spreads)

probes w90 library for (current) wannier spreads

Arguments

Type IntentOptional Attributes Name
type(lib_common_type), intent(in) :: common_data

library data object
real(kind=dp), intent(out) :: spreads(:)

must be allocated with size >= n_wannier

Called by

proc~~w90_get_spreads~2~~CalledByGraph proc~w90_get_spreads~2 w90_get_spreads proc~w90_get_spreads w90_get_spreads proc~w90_get_spreads->proc~w90_get_spreads~2

Source Code

  subroutine w90_get_spreads(common_data, spreads)
    !! probes w90 library for (current) wannier spreads
    implicit none

    real(kind=dp), intent(out) :: spreads(:)
    !! must be allocated with size >= n_wannier
    type(lib_common_type), intent(in) :: common_data
    !! library data object

    spreads = common_data%wannier_data%spreads
  end subroutine w90_get_spreads