c4to3mom.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	c4to3mom (four, three)
subroutine	c3to4momentum (three, four)

Function/Subroutine Documentation

c3to4momentum()

subroutine c3to4momentum	(	type(coord)	three,
		type(fmom)	four
	)

Definition at line 19 of file c4to3mom.f.

      implicit none
!----      include '../Particle/Zptcl.h'
#include  "Zptcl.h"
!----      include 'Zcoord.h'
#include  "Zcoord.h"
!
      type(coord)::three   ! input
      type(fmom)::four  ! output
      
      four%p(1) = three%r(1)
      four%p(2) = three%r(2)
      four%p(3) = three%r(3)

c4to3mom()

subroutine c4to3mom	(	type(fmom)	four,
		type(coord)	three
	)

Definition at line 4 of file c4to3mom.f.

      implicit none
!----      include '../Particle/Zptcl.h'
#include  "Zptcl.h"
!----      include 'Zcoord.h'
#include  "Zcoord.h"
!
      type(fmom)::four  ! input.
      type(coord)::three   ! output.
!
      three%r(1) = four%p(1)
      three%r(2) = four%p(2)
      three%r(3) = four%p(3)