C ZEROR     SOURCE    CHAT      05/01/13    04:22:51     5004           
c---------------------------------------------------------------------
c
      SUBROUTINE ZEROR (ARRAY, N)
c
c=====================================================================
c                                                                    =
c  Sets to zero real arrays.                                         =
c                                                                    =
c   Author: Rui Faria                           Version: 93.04.20    =
c                                               --------             =
c=====================================================================
      IMPLICIT INTEGER(I-N)
      integer*4 n
      real*8    array (n)
c
      integer*4 i
c
      do 10 i = 1, n
         array (i) = 0.0 d0
   10 continue
c
      return
      end