opens Subroutine

public subroutine opens()

Arguments

None

Contents

Variables

array dir dlim i ibegin icount ii ilength in_filename2 iterm ivalue n

Variables

Type	Visibility	Attributes		Name		Initial
character(len=G_line_length),	public		::	array(n)
character(len=G_line_length),	public		::	dir
character(len=1),	public		::	dlim	=	' '
integer,	public		::	i
integer,	public		::	ibegin(n)
integer,	public		::	icount
integer,	public		::	ii
integer,	public		::	ilength
character(len=G_line_length),	public		::	in_filename2	=	''
integer,	public		::	iterm(n)
integer,	public		::	ivalue
integer,	public,	parameter	::	n	=	50