check_name Subroutine

public subroutine check_name(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	line

Contents

Variables

allowed dig lout lower name upper

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	public,	parameter	::	allowed	=	upper//lower//dig//'_'
character(len=*),	public,	parameter	::	dig	=	'0123456789'
logical,	public		::	lout
character(len=*),	public,	parameter	::	lower	=	'abcdefghijklmnopqrstuvwxyz'
character(len=:),	public,	allocatable	::	name
character(len=*),	public,	parameter	::	upper	=	'ABCDEFGHIJKLMNOPQRSTUVWXYZ'