13 subroutine cadjm(p, q)
22 cpabs = p%fm%p(4)**2 - p%mass**2
23 if(cpabs .gt. 0.
d0 .and. pabs .gt. 0.
d0)
then 26 q%fm%p(1) = p%fm%p(1) * r
27 q%fm%p(2) = p%fm%p(2) * r
28 q%fm%p(3) = p%fm%p(3) * r
subroutine cpxyzp(po, pabs)
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0