utility_lowercase Function

public function utility_lowercase(string)

Uses

  • proc~~utility_lowercase~~UsesGraph proc~utility_lowercase utility_lowercase module~w90_constants w90_constants proc~utility_lowercase->module~w90_constants

Takes a string and converts to lowercase characters

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string

Return Value character(len=maxlen)


Called by

proc~~utility_lowercase~~CalledByGraph proc~utility_lowercase utility_lowercase proc~w90_readwrite_in_file w90_readwrite_in_file proc~w90_readwrite_in_file->proc~utility_lowercase proc~w90_readwrite_set_atoms w90_readwrite_set_atoms proc~w90_readwrite_set_atoms->proc~utility_lowercase proc~input_reader_special input_reader_special proc~input_reader_special->proc~w90_readwrite_in_file proc~w90_wannier90_readwrite_read_special w90_wannier90_readwrite_read_special proc~input_reader_special->proc~w90_wannier90_readwrite_read_special proc~w90_input_reader~2 w90_input_reader proc~w90_input_reader~2->proc~w90_readwrite_in_file proc~w90_readwrite_read_atoms w90_readwrite_read_atoms proc~w90_readwrite_read_atoms->proc~w90_readwrite_set_atoms program~postw90 postw90 program~postw90->proc~w90_readwrite_in_file proc~w90_postw90_readwrite_read w90_postw90_readwrite_read program~postw90->proc~w90_postw90_readwrite_read proc~w90_input_reader w90_input_reader proc~w90_input_reader->proc~w90_input_reader~2 proc~w90_postw90_readwrite_read->proc~w90_readwrite_read_atoms proc~w90_wannier90_readwrite_read_special->proc~w90_readwrite_read_atoms program~wannier wannier program~wannier->proc~input_reader_special program~wannier->proc~w90_input_reader~2 proc~w90_input_setopt w90_input_setopt proc~w90_input_setopt->proc~w90_wannier90_readwrite_read_special proc~w90_input_setopt_f w90_input_setopt_f proc~w90_input_setopt_f->proc~w90_input_setopt

Source Code

  function utility_lowercase(string)!
    !================================================!
    !
    !! Takes a string and converts to
    !!  lowercase characters
    !
    !================================================!

    use w90_constants, only: maxlen

    implicit none

    character(len=*), intent(in) :: string
    character(len=maxlen) :: utility_lowercase

    integer :: iA, iZ, idiff, ipos, ilett

    iA = ichar('A')
    iZ = ichar('Z')
    idiff = iZ - ichar('z')

    utility_lowercase = string

    do ipos = 1, len(string)
      ilett = ichar(string(ipos:ipos))
      if ((ilett .ge. iA) .and. (ilett .le. iZ)) &
        utility_lowercase(ipos:ipos) = char(ilett - idiff)
    end do

    utility_lowercase = trim(adjustl(utility_lowercase))

    return

  end function utility_lowercase