*
* $Id: isa_runno.F,v 1.8 2000/01/12 11:04:30 mclareni Exp $
*
* $Log: isa_runno.F,v $
* Revision 1.8  2000/01/12 11:04:30  mclareni
* Version 7.48 from author, plus modified Imakefiles
*
*
#include "sys/CERNLIB_machine.h"
#include "_isajet/pilot.h"
      FUNCTION ISA_RUNNO()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods :
C-      Give a run number during event generation
C-   Returned value  : run number
C-
C-   ENTRY ISA_SETRUN(IRUN) give a run number
C-   Input:
C-   IRUN = run number
C-   Created  25-JUL-1990   Serban D. Protopopescu
C-
C----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
      INTEGER ISA_RUNNO,IRN,IRUN
      INTEGER ISA_SETRUN
      SAVE IRN
      DATA IRN/1/
C----------------------------------------------------------------------
C
      ISA_RUNNO=IRN
  999 RETURN
C
      ENTRY ISA_SETRUN(IRUN)
      IRN=IRUN
      RETURN
      END