update_latest Subroutine

private subroutine update_latest(fname, is_ok, message)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fname
logical,	intent(out),	optional		::	is_ok
character(len=*),	intent(out),	optional		::	message