cable_abort Subroutine

public subroutine cable_abort(message, file, line)

Print the error message and stop the code

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	message	Error message
character(len=*),	intent(in),	optional		::	file
integer,	intent(in),	optional		::	line