      subroutine razero(ra,n0,n1) ! BB Aug 8 1992.
C Initializes real array ra() to zero.
      include '../../Libs/Fortran/implicit.sta'
      include '../../Libs/Fortran/constants.par'
      dimension ra(n0:n1)
      do i=n0,n1
        ra(i)=zero
      end do
      return
      end
