utility_strip Function

public function utility_strip(string)

Uses

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

Strips string of all blank spaces

Arguments

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

Return Value character(len=maxlen)


Called by

proc~~utility_strip~~CalledByGraph proc~utility_strip utility_strip proc~w90_readwrite_get_projections w90_readwrite_get_projections proc~w90_readwrite_get_projections->proc~utility_strip proc~w90_wannier90_readwrite_read_projections w90_wannier90_readwrite_read_projections proc~w90_wannier90_readwrite_read_projections->proc~w90_readwrite_get_projections proc~w90_wannier90_readwrite_read_special w90_wannier90_readwrite_read_special proc~w90_wannier90_readwrite_read_special->proc~w90_wannier90_readwrite_read_projections proc~input_reader_special input_reader_special proc~input_reader_special->proc~w90_wannier90_readwrite_read_special 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 program~wannier wannier program~wannier->proc~input_reader_special

Source Code

  function utility_strip(string)!
    !================================================!
    !
    !! Strips string of all blank spaces
    !
    !================================================!

    use w90_constants, only: maxlen

    implicit none

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

    integer :: ispc, ipos, ilett, icount

    ! Initialise
    utility_strip = repeat(' ', maxlen)

    ispc = ichar(' ')
    icount = 0
    do ipos = 1, len(string)
      ilett = ichar(string(ipos:ipos))
      if (ilett .ne. ispc) then
        icount = icount + 1
        utility_strip(icount:icount) = string(ipos:ipos)
      end if
    end do

    utility_strip = trim(utility_strip)

    return

  end function utility_strip