type_file Derived Type

type, private :: type_file

Contents

Variables

unit line indent eof iline error_message has_error

Type-Bound Procedures

next_line set_error

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	unit	=	-1
character(len=line_length),	public		::	line	=	''
integer,	public		::	indent	=	0
logical,	public		::	eof	=	.false.
integer,	public		::	iline	=	0
character(len=error_length),	public		::	error_message	=	''
logical,	public		::	has_error	=	.false.

Type-Bound Procedures

procedure, public :: next_line

• private subroutine next_line(file)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(type_file),	intent(inout)			::	file

procedure, public :: set_error

• private subroutine set_error(file, error)

  Arguments

  Type	Intent	Optional	Attributes		Name
  class(type_file),	intent(inout)			::	file
  character(len=*),	intent(in)			::	error