w90_readwrite_get_smearing_type Function

public function w90_readwrite_get_smearing_type(smearing_index)

This function returns a string describing the type of smearing associated to a given smr_index integer value.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: smearing_index

The integer index for which we want to get the string

Return Value character(len=80)


Called by

proc~~w90_readwrite_get_smearing_type~~CalledByGraph proc~w90_readwrite_get_smearing_type w90_readwrite_get_smearing_type proc~calctdfanddos calcTDFandDOS proc~calctdfanddos->proc~w90_readwrite_get_smearing_type proc~w90_postw90_readwrite_write w90_postw90_readwrite_write proc~w90_postw90_readwrite_write->proc~w90_readwrite_get_smearing_type proc~boltzwann_main boltzwann_main proc~boltzwann_main->proc~calctdfanddos program~postw90 postw90 program~postw90->proc~w90_postw90_readwrite_write program~postw90->proc~boltzwann_main

Source Code

  function w90_readwrite_get_smearing_type(smearing_index)
    !! This function returns a string describing the type of smearing
    !! associated to a given smr_index integer value.
    integer, intent(in) :: smearing_index
    !! The integer index for which we want to get the string
    character(len=80) :: w90_readwrite_get_smearing_type
    character(len=4) :: orderstr

    if (smearing_index > 0) then
      write (orderstr, '(I0)') smearing_index
      w90_readwrite_get_smearing_type = "Methfessel-Paxton of order "//trim(orderstr)
    else if (smearing_index .eq. 0) then
      w90_readwrite_get_smearing_type = "Gaussian"
    else if (smearing_index .eq. -1) then
      w90_readwrite_get_smearing_type = "Marzari-Vanderbilt cold smearing"
    else if (smearing_index .eq. -99) then
      w90_readwrite_get_smearing_type = "Fermi-Dirac smearing"
    else
      w90_readwrite_get_smearing_type = "Unknown type of smearing"
    end if

  end function w90_readwrite_get_smearing_type