extract_run_sign Function

public pure function extract_run_sign(ilut, run) result(sgn)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=n_int),	intent(in)			::	ilut(0:niftot)
integer,	intent(in)			::	run

Return Value real(kind=dp)

Contents