cibst1.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cibst1 (init, p1, p2, po)
subroutine	cibstpol (init, p1, p2, po)

Function/Subroutine Documentation

cibst1()

subroutine cibst1	(	integer	init,
		type(ptcl)	p1,
		type(ptcl)	p2,
		type(ptcl)	po
	)

Definition at line 29 of file cibst1.f.

References cgetlf(), and clorep().

Referenced by c1pion(), c2bdc0(), c2bdcp(), c2bdcy(), c3pidc(), ccylps(), cddecay1(), cdsdecay(), cetadecay(), cetapdecay(), cgextx(), cgplowexp(), chanewlund(), chncol2(), ciso(), ck3pidecay(), ckmuneupidcy(), ckmuneupidcy2(), ckpieneudecay(), clambdacdcy(), comgdc(), cpi0decay(), cs2lp(), cutptcl(), and gencol().

         implicit none
!----         include '../Zptcl.h'
#include  "Zptcl.h"
         type(ptcl):: p1, p2, po
         integer init
!
         type(fmom):: g
#ifdef  USESAVE         
         save g
#endif
!
         if(init .eq. 1) then
            call cgetlf(p1, g)
         endif   
         po = p2

         call clorep(init, g, p2, po)

Here is the call graph for this function:

Here is the caller graph for this function:

cibstpol()

subroutine cibstpol	(	integer	init,
		type(ptcl)	p1,
		type(ptcl)	p2,
		type(ptcl)	po
	)

Definition at line 75 of file cibst1.f.

References cgetlf(), and cloreb().

Referenced by cmuneudcy(), and ctauneudcy().

         implicit none
!----         include '../Zptcl.h'
#include  "Zptcl.h"
         type(ptcl):: p1, p2, po
         integer init
!
         type(fmom):: g
#ifdef  USESAVE         
         save g
#endif
!
         if(init .eq. 1) then
            call cgetlf(p1, g)
         endif   
         po = p2
         call cloreb(init, g, p2, po)

Here is the call graph for this function:

Here is the caller graph for this function: