w90_readwrite_get_convention_type Function

public function w90_readwrite_get_convention_type(sc_phase_conv)

This function returns a string describing the convention associated to a sc_phase_conv integer value.

Arguments

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

The integer index for which we want to get the string

Return Value character(len=80)


Called by

proc~~w90_readwrite_get_convention_type~~CalledByGraph proc~w90_readwrite_get_convention_type w90_readwrite_get_convention_type proc~w90_postw90_readwrite_write w90_postw90_readwrite_write proc~w90_postw90_readwrite_write->proc~w90_readwrite_get_convention_type program~postw90 postw90 program~postw90->proc~w90_postw90_readwrite_write

Source Code

  function w90_readwrite_get_convention_type(sc_phase_conv)
    !! This function returns a string describing the convention
    !! associated to a sc_phase_conv integer value.
    integer, intent(in) :: sc_phase_conv
    !! The integer index for which we want to get the string
    character(len=80) :: w90_readwrite_get_convention_type

    if (sc_phase_conv .eq. 1) then
      w90_readwrite_get_convention_type = "Tight-binding convention"
    else if (sc_phase_conv .eq. 2) then
      w90_readwrite_get_convention_type = "Wannier90 convention"
    else
      w90_readwrite_get_convention_type = "Unknown type of convention"
    end if

  end function w90_readwrite_get_convention_type