setpcode.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	setpcode (p, code)
subroutine	getpcode (code, codex)

Function/Subroutine Documentation

getpcode()

subroutine getpcode	(	integer	code,
		integer	codex
	)

Definition at line 30 of file setpcode.f.

Referenced by chookobs().

      implicit none
      integer code  ! input.
      integer codex ! output.  4: pi, 5: K,  7: anti p/n 6: p/n and others
      logical kbitest
      if(.not.  kbitest(code, 2) ) then
         if( .not. kbitest(code, 1) ) then
            codex = 4
         else
            codex = 5
         endif
      else
         if(.not. kbitest(code, 1) ) then
            codex = 6
         else
            codex = 7
         endif
      endif

Here is the caller graph for this function:

setpcode()

subroutine setpcode	(	type(ptcl)	p,
		integer	code
	)

Definition at line 2 of file setpcode.f.

References antip, charge, krsetbit(), ksetbit(), and subcode.

Referenced by chooknepint(), and cmemonode().

      implicit none
#include  "Zptcl.h"
#include  "Zcode.h"
       type(ptcl):: p
       integer code
!                set parent particle code by using last bit
!                      bit 2    bit 1
!                 pi    0         0
!                 K     0         1
!                 p     1         0
!             pbar/nbar 1         1 
       if( p.code .eq. 4 ) then
          call krsetbit(code, 1)
          call krsetbit(code, 2)
       elseif(p.code .eq. 5) then
          call ksetbit(code, 1)
          call krsetbit(code, 2)
       elseif( (p.code .eq. 6 .and. p.charge .eq. -1 ) .or.
     *         (p.code .eq. 6 .and. p.charge .eq. 0 .and.
     *          p.subcode .eq. antip ) ) then
          call ksetbit(code, 1)
          call ksetbit(code, 2)
       else
          call krsetbit(code, 1)
          call ksetbit(code, 2)
       endif

Here is the call graph for this function:

Here is the caller graph for this function: