fdf_io Module

Uses

Contents

Variables

stderr stdout min_lun max_lun nunits lun_is_free

Subroutines

io_seterr io_setout io_geterr io_getout io_assign io_reserve io_close io_status

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=ip),	private		::	stderr	=	0
integer(kind=ip),	private		::	stdout	=	6
integer(kind=ip),	private,	parameter	::	min_lun	=	10
integer(kind=ip),	private,	parameter	::	max_lun	=	99
integer(kind=ip),	private,	parameter	::	nunits	=	max_lun-min_lun+1
logical,	private		::	lun_is_free(min_lun:max_lun)	=	.TRUE.

Subroutines

public subroutine io_seterr(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip),	intent(inout)			::	unit

public subroutine io_setout(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip),	intent(inout)			::	unit

public subroutine io_geterr(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip),	intent(inout)			::	unit

public subroutine io_getout(unit)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip),	intent(inout)			::	unit

public subroutine io_assign(lun)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip),	intent(inout)			::	lun

public subroutine io_reserve(lun)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip),	intent(inout)			::	lun

public subroutine io_close(lun)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip),	intent(inout)			::	lun

public subroutine io_status()

Arguments

None