cmymain.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cmymain

Function/Subroutine Documentation

cmymain()

subroutine cmymain

(

)

Definition at line 1639 of file cmymain.f.

References blkdc1, blkhd1, blkhd2, blkhd3, and cmanager().

!         this list block data names as external names so that the
!       block data is surely enabled.





!   dpmjet cannot be used on NEXTSTEP, so
!   you have to make the next 0. 



!            make DEBUG > 0 depending on the debug purpose. 


!
!   choose:    Old atmosphere or new segmented atmosphere
!            define 
!               old atmosphere --> 0
!           or  new with c-spline
!               new atmosphere --> 1
!           or  new with linear interp.
!               new atmosphere --> 2


!     if you want to put a lable on each particle to identify that
!     the one and the same particle crosses a given observation
!     plane more than once, make this 1 or 2.  Then the same particle
!     will have the  same label number in track record.
!     ( aTrack.label ).  If this is 0, aTrack.lable record dose not
!     exists. 
!     If 1; after any interaction (except for continuous energy
!     loss by dE/dx and deflection by B or scattering), label is
!     changed.
!     If 2: For knockon and Bremstrahlung, the survival particle
!     will have the same label. In the case of Moller scattring
!     higher enregy electrons are regarded as the survival one.
!

!     if you want to have a detailed info. for particle tracking
!     make the below >=1.  The user observation routine is called
!     with the following id  on the following  conditions:
!              chookobs(a, id)
!     1)  if it is >=1,  a particle is going to interact at a point given in
!         the track information, id=4
!     2)  if it is >=1,  a particle is going to die, id=5
!     3)  if it is >=2,  a particle is being discarded due to the large
!          angle (cos(angle relative to the parent) > BackAngLimit). id=6
!     4)  if it is >=3,  a particle makes a step. id=7
!        







      external cblkelemag
      external cblkdedx
      external cblkheavy 
      external cblkmanager 

      external cblkxsec
      external cblkevhnp
      external cblkincident
      external cblkobs
      external cblktracking
      external cblkmuint
!              For Lund related block common
      external blkhd1, blkhd2, blkhd3, blkhd4
      external blkdc1, blkdc2
      external ludatac
      external luedatc
      external luhdatc
      external cblkspeical

         call cmanager   ! call Manager for Cosmos Simulation

Here is the call graph for this function: