c $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/zeroout1dr.f,v 2.22 2000/08/30 16:38:09 flittner Exp $
c***********************************************************************

	subroutine zeroout1dr(a,na,is,ie)
c
c zero out the array na from is to ie
	implicit none
c the rcs revision #
      character*20 rcsrev
      parameter (rcsrev='$Revision: 2.22 $')
c passed
        integer na,is,ie
        real*8 a(na)
c local
        integer i
c
	do i=is,ie
           a(i)=0.0d0
        enddo
	return
	end

c@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@