FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(redist_type), | intent(inout) | :: | r | |||
character(len=3), | intent(in) | :: | chartype |
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