crot3mom.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	crot3mom (p, a, n)

Function/Subroutine Documentation

crot3mom()

subroutine crot3mom	(	type(ptcl)	p,
		type(ptcl), dimension(n)	a,
		integer	n
	)

Definition at line 2 of file crot3mom.f.

References crot3vec(), and d0.

Referenced by chanewlund(), chncol2(), and qgs01init().

!           a(n)'s momentum is given in a system whose z axis
!         coinsides with momentum direction of p.
!         This subroutine converts 'a' so that 
!         it is seen from the system where p is defined.
!
        implicit none
#include "Zptcl.h"
        integer n
        type(ptcl)::p, a(n)
        integer i

        if( (p%fm%p(1) .ne. 0.d0 .or. p%fm%p(2) .ne. 0.d0 )
     *    .or. p%fm%p(3) < 0.d0)  then
           do i = 1, n
              call crot3vec(p%fm, a(i)%fm, a(i)%fm)
           enddo
        endif

Here is the call graph for this function:

Here is the caller graph for this function: