dynamic_message Subroutine

public subroutine dynamic_message(message)

write message in the core with rank = 0, keep replacing a line by a new message

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: message

the message to write, not to trim


Contents

None