Cleanup Subroutine

public subroutine Cleanup(this)

As a last case resort, this will print an error message and quit.

Arguments

Type	Intent	Optional	Attributes		Name
type(Error_t),	intent(in)			::	this	The error which has caused the need to cleanup the program.

Contents

None