r8vec_indicator Subroutine

public subroutine r8vec_indicator(n, a)

R8VEC_INDICATOR sets an R8VEC to the indicator vector.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	a(n)