cgetNmu.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cgetnmu (eth, nmu)

Function/Subroutine Documentation

cgetnmu()

subroutine cgetnmu	(	real*8	eth,
		real*8, dimension(maxnoofassites)	nmu
	)

Definition at line 3 of file cgetNmu.f.

Referenced by chookhybas2().

!        this is not yet made.  tentatively nmu = 0 is given.
      implicit none
#include "Ztrack.h"
#include "Zobs.h"
#include "Zobsv.h"
#include "Zelemagp.h"
      real*8 eth  !  input.  Threshold energy of muons. (GeV) 
      real*8 nmu(maxnoofassites)  ! output. number of muons E>eth
      integer l
      do   l=1, noofassites
         nmu(l) = 0.
      enddo

Here is the caller graph for this function: