cbst1.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cbst1 (init, p1, p2, po)

Function/Subroutine Documentation

cbst1()

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

Definition at line 54 of file cbst1.f.

References cbst0(), and cgetlf().

Referenced by c1pion(), cgextx(), cgplowexp(), chooknepint(), cmemonode(), cs2lp(), cutptcl(), and formpjtg().

         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
!                 get Lorent factor of p1
            call cgetlf(p1, g)
         endif   
!              boost
         call cbst0(init, g, p2,  po)

Here is the call graph for this function:

Here is the caller graph for this function: