findit Subroutine

public subroutine findit(line)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=G_line_length)				::	line

Contents

Variables

file_exist filename i iend_dir

Variables

Type	Visibility	Attributes		Name		Initial
logical,	public		::	file_exist
character(len=G_line_length),	public		::	filename
integer,	public		::	i
integer,	public		::	iend_dir