string_utils_mod Module Reference

String utility functionality that is commonly used throughout MONC. More...

Functions/Subroutines
subroutine, public	replace_character (str, src_char, tgt_char)
	Replaces all occurances of a character in a string with another character. More...

Detailed Description

String utility functionality that is commonly used throughout MONC.

Function/Subroutine Documentation

replace_character()

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

Replaces all occurances of a character in a string with another character.

Parameters

str	The string to replace characters in (this is modified)
src_char	The source character to look for, which will be replaced
tgt_char	What to replace source characters with

Definition at line 16 of file string_utils.F90.

    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    

Here is the caller graph for this function: