public Subroutines/Functions:

SUBROUTINEprint_message(message, output_unit, declev, before, after)

^

Perform a basic blocking of the text in message and print it optionally decorated with a frame of stars as defined by declev.

Arguments:

CHARACTER(*),	INTENT(in)		::	message	...
INTEGER,	INTENT(in)		::	output_unit	...
INTEGER,	INTENT(in),	OPTIONAL	::	declev	...
INTEGER,	INTENT(in),	OPTIONAL	::	before	...
INTEGER,	INTENT(in),	OPTIONAL	::	after	...