cgetNmu.f

Go to the documentation of this file.

!        to compute muon numbers
      subroutine cgetnmu(eth, nmu)
!        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
      end