*
* $Id: uzeron32.F,v 1.1.1.1 1996/03/08 15:21:58 mclareni Exp $
*
* $Log: uzeron32.F,v $
* Revision 1.1.1.1  1996/03/08 15:21:58  mclareni
* Epio
*
*
#include "epio/pilot.h"
#if defined(CERNLIB_ND100B32)||defined(CERNLIB_ND500)
      SUBROUTINE UZERO(IARR,N1,N2)
C. ZERO ARRAY FROM N1 TO N2
      INTEGER*4 IARR(2),N1,N2,ZERO
      DATA ZERO/0/
      IF(N1.LE.ZERO .OR. N1.GT.N2) GOTO 77777
      I1=N1
      I2=N2
      DO 1 I=I1,I2
    1 IARR(I)=0
77777 RETURN
      END
#endif