***********************************************************************
      PROGRAM LISTEVENTS
*     spits out list of events in a file (by Jen Raaf)
***********************************************************************

      IMPLICIT NONE
 
#include "skparm.h"
#include "skhead.h"
#include "sktq.h"

      INTEGER LUNI1
      INTEGER IEVENT, IERR

      DATA LUNI1 /10/

      CALL KZINIT

      CALL SKOPTN('31,30,26,25')
      CALL SKOPENF(LUNI1, 0, 'Z', IERR)
      IEVENT = 0

 1000 CONTINUE
      call skread(luni1,*1010,*1010,*900,*900)

 900  continue
      write(77,*)nrunsk,nevsk

      CALL KZECLR
      IEVENT = IEVENT + 1
      GOTO 1000

 1010 CONTINUE
c      write(77,*)'Numevents:',ievent
      ievent = 0
      CALL SKCLOSEF(LUNI1)
      
      END