set_error Subroutine

private subroutine set_error(file, error)

Arguments

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

Contents

None