set_redist_character_type Subroutine

public subroutine set_redist_character_type(r, chartype)

FIXME : Add documentation

Arguments

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

Contents


Source Code

  subroutine set_redist_character_type(r, chartype)
    implicit none
    type (redist_type), intent (inout) :: r
    character (3), intent (in) :: chartype

    r%redistname = chartype

  end subroutine set_redist_character_type