stdout Subroutine

public subroutine stdout(message, routine_name, mtype)

Standard output for message

Arguments

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

output message

character(len=*), intent(in) :: routine_name

called routine name

integer, intent(in) :: mtype

message type 0: message, -1: error, 1: warning