check_var_real Subroutine

public subroutine check_var_real(r8_var, var_name, return_code)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	r8_var
character(len=*),	intent(in)			::	var_name
integer,	intent(out)			::	return_code