csetIntInf.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	csetintinf (lenOrThick, decay, procname)
subroutine	cresetintinf

Function/Subroutine Documentation

cresetintinf()

subroutine cresetintinf

(

)

Definition at line 23 of file csetIntInf.f.

References true.

Referenced by csampintl().

!           this is intended to reset IntInfArray of the current
!       selected proces number.  Suppose, a pi+ of low
!       energy.  It can decay and can generate mu+ of some
!       kinetic enrgy.   So if the pi+ of such one comes to
!       stop, it is better to make it decay rather than
!       colide. This is to reset the present process and 
!       to force the decay.  
      implicit none
#include  "Ztrack.h"
#include  "Ztrackv.h"
      
      intinfarray(processno)%decay = .true.
      intinfarray(processno)%process = 'decay'

Here is the caller graph for this function:

csetintinf()

subroutine csetintinf	(	real*8	lenOrThick,
		logical	decay,
		character*(*)	procname
	)

Definition at line 4 of file csetIntInf.f.

Referenced by cknockonh(), csampeintl(), csampgintl(), csamphadint(), csampintl(), csampmuint(), and csampnepintl().

      implicit none
#include  "Ztrack.h"
#include  "Ztrackv.h"
      
      real*8  lenorthick
      logical decay   ! this acutully used not only for decay but
                      ! for magnetic brems and pair cre.
      character*(*) procname
!
      numberofinte = numberofinte + 1
      if(decay) then
         intinfarray(numberofinte)%length = lenorthick
      else
         intinfarray(numberofinte)%thickness = lenorthick
      endif
      intinfarray(numberofinte)%decay = decay
      intinfarray(numberofinte)%process = procname

Here is the caller graph for this function: