error_message Subroutine

public subroutine error_message(s)

show error message and stop the program

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),		optional		::	s