param_get_convention_type Function

  1. parameters.F90
  2. w90_parameters
  3. param_get_convention_type

public function param_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 AttributesName
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~~param_get_convention_type~~CalledByGraph proc~param_get_convention_type param_get_convention_type proc~param_postw90_write param_postw90_write proc~param_postw90_write->proc~param_get_convention_type program~postw90 postw90 program~postw90->proc~param_postw90_write

Contents

Source Code

param_get_convention_type

Source Code

  function param_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)   :: param_get_convention_type

    character(len=4)   :: orderstr

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

  end function param_get_convention_type