scan_directory_for_media Subroutine

public subroutine scan_directory_for_media(dir, media_files, n_media)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	dir
character(len=*),	intent(out)			::	media_files(:)
integer,	intent(out)			::	n_media