cgetcm.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cgetcm (p1, p2, gc, icon)

Function/Subroutine Documentation

cgetcm()

subroutine cgetcm	(	type(ptcl)	p1,
		type(ptcl)	p2,
		type(fmom)	gc,
		integer	icon
	)

Definition at line 41 of file cgetcm.f.

References cgeqm(), and cgetlf().

Referenced by outresulc().

!         get Lorentz factor of the Center of Momentum
!         system of arbitrary two particles.
!      p1: type ptcl. Input.  particle 1
!      p2: type ptcl. Input.  particle 2
!      gc: type fmom. Output. (g*beta, g) of the
!          cm frame. 
!    icon: integer. output.  0 -> ok.  1 -> no cms definable.
!              if icon = 1, gc is undef.
         implicit none
!----         include '../Zptcl.h'
#include  "Zptcl.h"
         type(ptcl):: p1, p2
         type(fmom):: gc
!
         type(fmom):: q

         integer icon
!
         call cgeqm(p1, p2, q, icon)         
         if(icon .eq. 0) then
!            get Lorentz factor of q
             call cgetlf(q, gc)
         endif    

Here is the call graph for this function:

Here is the caller graph for this function: