C+
C NAME:
C	ArrR8Zero
C PURPOSE:
C	Initialize double precision array to zero
C CALLING SEQUENCE:
	subroutine ArrR8Zero(N,C)		! Initialize double precision array to zero
C CALLS:
C	BadR8
C SEE ALSO:
C	Array_Info
C-
	    integer		N
	    double precision	C(*)

	double precision	bad
	double precision	BadR8

	bad = BadR8()

	do I=1,abs(N)
	    if (N .gt. 0 .or. C(I) .ne. bad) C(I) = 0.d0
	end do

	return
	end