cstack.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cpush (a)
subroutine	cpop (a, remain)
subroutine	cgetstacked (stackpos, aTrack, icon)
subroutine	cinitstack
subroutine	cgetcurrentstackpos (stackpos)
subroutine	cresetstackpos (stackpos)
subroutine	csortstack

Function/Subroutine Documentation

cgetcurrentstackpos()

subroutine cgetcurrentstackpos

(

integer

stackpos

)

Definition at line 84 of file cstack.f.

Referenced by chooknepint(), cinteraction(), cmoveptcl1(), and cmoveptcl3().

      implicit none
#include  "Zmaxdef.h"
#include  "Ztrack.h"
#include  "Zstackv.h"
      integer stackpos
      stackpos=stack_pos

Here is the caller graph for this function:

cgetstacked()

subroutine cgetstacked	(	integer	stackpos,
		type(track)	aTrack,
		integer	icon
	)

Definition at line 57 of file cstack.f.

      implicit none
#include  "Zmaxdef.h"
#include  "Ztrack.h"
#include  "Zstackv.h"
      integer stackpos  !  input.  stack pos from which track is
                        ! to be extracted.
      type(track)::atrack  ! output extracted track.
      integer icon   ! output. 0 OK 1--> no. track at stackpos 
!          diff. from cpop;  Stack_pos is not affected.      
      if(stackpos .le. stack_pos .and. stackpos .ge. 1) then
         atrack = stack(stackpos)
         icon = 0
      else
         icon = 1
      endif

cinitstack()

subroutine cinitstack

(

)

Definition at line 76 of file cstack.f.

Referenced by c1by1(), ceventloop(), chookbgevent(), cinteraction(), cpushinci(), cresetprim(), and cresetprim2().

!         initialize stack.
      implicit none
#include  "Zmaxdef.h"
#include  "Ztrack.h"
#include  "Zstackv.h"
      stack_pos = 0

Here is the caller graph for this function:

cpop()

subroutine cpop	(	type(track)	a,
		integer	remain
	)

Definition at line 38 of file cstack.f.

Referenced by cpushinci(), and ctrackingall().

      implicit none
#include  "Zmaxdef.h"
#include  "Ztrack.h"
#include  "Zstackv.h"
      type(track)::a

      integer remain
!
!         remain: int. is the number of ptcls remaining unprocessed
!                 including the current one to be processed now.
      if( stack_pos .le. 0) then
         remain = 0
      else
         remain =  stack_pos 
         a = stack(stack_pos)
         stack_pos = stack_pos -1
      endif

Here is the caller graph for this function:

cpush()

subroutine cpush

(

type(track)

a

)

Definition at line 4 of file cstack.f.

References cerrormsg().

Referenced by ceventloop(), cforcessp(), cmove_c_stack(), cmoveptcl1(), cmoveptcl3(), cpushinci(), cresetprim(), cresetprim2(), and ctracking().

      implicit none
#include  "Zmaxdef.h"
#include  "Ztrack.h"
#include  "Zstackv.h"
#include  "Zevhnv.h"
      type(track)::a
      character*70  msg

!
!      call cifDead(a, icon)  ! this is moved to after cpop.
!                             ! so some ptcl may be stored even if 
!                             ! low energy.
!      if(icon .eq. 0) then
      if( a%p%code /=  0) then
         if( stack_pos .ge. max_stack_size) then
            write(msg,*) 'stack area full=',max_stack_size
            call cerrormsg(msg, 0)
         else
            stack_pos = stack_pos + 1
            stack(stack_pos) = a
         endif
      else
!           although very rare, 0 code appears;  neglect it (once /5 days)

         write(0,*) ' code=0  appeared subcode=',a%p%subcode
         write(0,*) ' charge=',a%p%charge
         write(0,*) ' px,py, pz, E, mass=',a%p%fm%p(1:4), a%p%mass
         write(0,*) ' neglected for stacking in cstack.f'
         write(0,*) 'ActiveMdl=',activemdl
!c         call checkstat("in cpush")
      endif

Here is the call graph for this function:

Here is the caller graph for this function:

cresetstackpos()

subroutine cresetstackpos

(

integer

stackpos

)

Definition at line 92 of file cstack.f.

Referenced by cinteraction(), and cthinstack().

      implicit none
#include  "Zmaxdef.h"
#include  "Ztrack.h"
#include  "Zstackv.h"
      integer stackpos
      stack_pos=stackpos

Here is the caller graph for this function:

csortstack()

subroutine csortstack

(

)

Definition at line 102 of file cstack.f.

References kqsortd(), and ksortinv().

Referenced by cpushinci(), and xbgrun().

!        sort stack dscending order 
      implicit none
#include  "Zmaxdef.h"
#include  "Ztrack.h"
#include  "Zstackv.h"
      real*8 erg(max_stack_size)
      type(track)::sorted(max_stack_size)
      integer  idx(max_stack_size)
      
      integer i, j, k
      type(track)::temp
      do  i = 1,  stack_pos
         erg(i) = stack(i)%p%fm%p(4)
      enddo
      
      call kqsortd(erg, idx, stack_pos)
      call ksortinv(idx, stack_pos)
      
      do i = 1, stack_pos
         sorted(i) = stack(idx(i))
      enddo

      do i = 1, stack_pos
         stack(i) = sorted(i)
      enddo

Here is the call graph for this function:

Here is the caller graph for this function: