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