SUBROUTINE Output_message(Cmessage)
	CHARACTER*(*) Cmessage
	WRITE(*,10) Cmessage
10	FORMAT (' 'A)
	RETURN
	END