string_utils.F90

Go to the documentation of this file.

module string_utils_mod
  implicit none

#ifndef TEST_MODE
  private
#endif

  public replace_character
contains

  subroutine replace_character(str, src_char, tgt_char)
    character(len=*), intent(inout) :: str
    character, intent(in) :: src_char, tgt_char

    integer :: i, n, idx

    n=len_trim(str)
    i=1
    do while (i .le. n)
      idx=index(str(i:n), src_char)
      if (idx == 0) exit
      i=i+idx+1
      str(i-2:i-2)=tgt_char
    end do    
  end subroutine replace_character  
end module string_utils_mod