replaceChar Subroutine

public recursive subroutine replaceChar(word, keyword, to)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(inout)			::	word
character(len=*),	intent(in)			::	keyword
character(len=*),	intent(in)			::	to