extract_part_sign Function

public pure function extract_part_sign(ilut, part_type) result(real_sgn)

Arguments

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

Return Value real(kind=dp)

Contents