cqEventNo.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cqeventno (num, cumnum)
subroutine	cresetdestevno (num)

Function/Subroutine Documentation

cqeventno()

subroutine cqeventno	(	integer	num,
		integer	cumnum
	)

Definition at line 3 of file cqEventNo.f.

Referenced by chookeabsorbw(), chookenevent(), and cmemorize().

      implicit none
#include "Zmanagerp.h"
      integer num   ! output. number of events in the current run
      integer cumnum ! output. cummulative number of events so far.
!     may be used  after the initialization of an event, then
!     this gives the number for that event.
!

      num = eventsintherun
      cumnum = eventno

Here is the caller graph for this function:

cresetdestevno()

subroutine cresetdestevno

(

integer, intent(in)

num

)

Definition at line 19 of file cqEventNo.f.

      implicit none
#include "Zmanagerp.h"
      integer,intent(in):: num
      desteventno(2) = num