tem_unit_close Subroutine

public subroutine tem_unit_close(me)

Check, if a unit is open, and close it

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	me	the restart type to close

Contents

Variables

nUnitOpened

Variables

Type	Visibility	Attributes		Name		Initial
logical,	private		::	nUnitOpened