Aborter Subroutine

private subroutine Aborter(iunit, ierrmsg)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	iunit
character(len=1)				::	ierrmsg*(*)

Common Blocks

common /abortcmn/

Type	Attributes		Name		Initial
real		::	zz0
real		::	zz1