assert_file_exists Subroutine

private impure elemental subroutine assert_file_exists(path)

throw error if file does not exist this accomodates non-Fortran 2018 error stop with variable character

Arguments

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

Contents

None