set_redist_character_type Subroutine

public subroutine set_redist_character_type(r, chartype)

Arguments

Type	Intent	Optional	Attributes		Name
type(redist_type),	intent(inout)			::	r
character(len=3),	intent(in)			::	chartype