csetIntInf.f

Go to the documentation of this file.

!          csetIntInf:  set interaction information IntInfArray.
!  
      subroutine csetintinf(lenOrThick, decay, procname)
      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
      end
      subroutine cresetintinf
!           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'
      end