ident – prep

public subroutine ident(opts)

Type	Intent	Optional	Attributes		Name
character(len=*)				::	opts

i ident_count lang text

Type	Visibility	Attributes		Name		Initial
integer,	public		::	i
integer,	public,	save	::	ident_count	=	1
character(len=G_line_length),	public		::	lang
character(len=:),	public,	allocatable	::	text