cdet2xyzFE.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cdet2xyzfe (aTrack, outr, outdir)
subroutine	cxyz2detfe (aTrack, outr, outdir)
subroutine	cprim2xyzfe (aTrack, outr, outdir)
subroutine	cxyz2primfe (aTrack, outr, outdir)
subroutine	cprim2detfe (aTrack, outr, outdir)
subroutine	cdet2primfe (aTrack, outr, outdir)

Function/Subroutine Documentation

cdet2primfe()

subroutine cdet2primfe	(	type(track)	aTrack,
		real(8), dimension(3), intent(out)	outr,
		real(8), dimension(3), intent(out)	outdir
	)

Definition at line 97 of file cdet2xyzFE.f.

References cdet2xyz(), cdet2xyzd(), cxyz2prim(), and cxyz2primd().

      implicit none
#include  "Zglobalc.h"
#include  "Ztrack.h"
#include  "Ztrackp.h"
#include  "Ztrackv.h"
#include  "Zobs.h"
#include  "Zobsp.h"
#include  "Zobsv.h"
      type(track)::atrack  ! input Track info in det sys.
      real(8),intent(out):: outr(3), outdir(3)
      type(track)::ttrack  !  temp track

      ttrack=atrack  ! det
      call cdet2xyz(obssites(ttrack%where)%pos%xyz,
     *  ttrack%pos%xyz%r, outr)   ! xyz
      call cxyz2prim(obssites(ttrack%where)%pos%xyz,
     *   outr, outr)  ! prim
      call cdet2xyzd( atrack%vec%w%r, outdir)
      call cxyz2primd(outdir, outdir)

Here is the call graph for this function:

cdet2xyzfe()

subroutine cdet2xyzfe	(	type(track)	aTrack,
		real(8), dimension(3), intent(out)	outr,
		real(8), dimension(3), intent(out)	outdir
	)

Definition at line 2 of file cdet2xyzFE.f.

References cdet2xyz(), and cdet2xyzd().

!      front-end routine for  converting position and direction cos
!      of aTrack in the detector system into the  E-xyz system.
! Similar routines follow:
!           det->xyz xyz->det
!           prim->xyz, xyz->prim
!           det->prim, prim->det 
      implicit none
#include  "Zglobalc.h"
#include  "Ztrack.h"
#include  "Ztrackp.h"
#include  "Ztrackv.h"
#include  "Zobs.h"
#include  "Zobsp.h"
#include  "Zobsv.h"
      type(track)::atrack  ! input Track info
      real(8),intent(out):: outr(3), outdir(3)

      call cdet2xyz(obssites(atrack%where)%pos%xyz,
     *  atrack%pos%xyz%r, outr)
      call cdet2xyzd(atrack%vec%w%r, outdir)

Here is the call graph for this function:

cprim2detfe()

subroutine cprim2detfe	(	type(track)	aTrack,
		real(8), dimension(3), intent(out)	outr,
		real(8), dimension(3), intent(out)	outdir
	)

Definition at line 77 of file cdet2xyzFE.f.

References cprim2xyz(), cprim2xyzd(), cxyz2det(), and cxyz2detd().

      implicit none
#include  "Zglobalc.h"
#include  "Ztrack.h"
#include  "Ztrackp.h"
#include  "Ztrackv.h"
#include  "Zobs.h"
#include  "Zobsp.h"
#include  "Zobsv.h"
      type(track)::atrack  ! input Track info
      real(8),intent(out):: outr(3), outdir(3)

      call cprim2xyz(obssites(atrack%where)%pos%xyz,
     *  atrack%pos%xyz%r, outr)
      call cxyz2det(obssites(atrack%where)%pos%xyz,
     *      outr, outr)
      call cprim2xyzd(atrack%vec%w%r, outdir)
      call cxyz2detd(outdir, outdir)

Here is the call graph for this function:

cprim2xyzfe()

subroutine cprim2xyzfe	(	type(track)	aTrack,
		real(8), dimension(3), intent(out)	outr,
		real(8), dimension(3), intent(out)	outdir
	)

Definition at line 42 of file cdet2xyzFE.f.

References cprim2xyz(), and cprim2xyzd().

      implicit none
#include  "Zglobalc.h"
#include  "Ztrack.h"
#include  "Ztrackp.h"
#include  "Ztrackv.h"
#include  "Zobs.h"
#include  "Zobsp.h"
#include  "Zobsv.h"
      type(track)::atrack  ! input Track info
      real(8),intent(out):: outr(3), outdir(3)

      call cprim2xyz(obssites(atrack%where)%pos%xyz,
     *  atrack%pos%xyz%r, outr)
      call cprim2xyzd(atrack%vec%w%r, outdir)

Here is the call graph for this function:

cxyz2detfe()

subroutine cxyz2detfe	(	type(track)	aTrack,
		real(8), dimension(3), intent(out)	outr,
		real(8), dimension(3), intent(out)	outdir
	)

Definition at line 25 of file cdet2xyzFE.f.

References cxyz2det(), and cxyz2detd().

      implicit none
#include  "Zglobalc.h"
#include  "Ztrack.h"
#include  "Ztrackp.h"
#include  "Ztrackv.h"
#include  "Zobs.h"
#include  "Zobsp.h"
#include  "Zobsv.h"
      type(track)::atrack  ! input Track info
      real(8),intent(out):: outr(3), outdir(3)

      call cxyz2det(obssites(atrack%where)%pos%xyz,
     *  atrack%pos%xyz%r, outr)
      call cxyz2detd(atrack%vec%w%r, outdir)

Here is the call graph for this function:

cxyz2primfe()

subroutine cxyz2primfe	(	type(track)	aTrack,
		real(8), dimension(3), intent(out)	outr,
		real(8), dimension(3), intent(out)	outdir
	)

Definition at line 59 of file cdet2xyzFE.f.

References cprim2xyz(), and cprim2xyzd().

      implicit none
#include  "Zglobalc.h"
#include  "Ztrack.h"
#include  "Ztrackp.h"
#include  "Ztrackv.h"
#include  "Zobs.h"
#include  "Zobsp.h"
#include  "Zobsv.h"
      type(track)::atrack  ! input Track info
      real(8),intent(out):: outr(3), outdir(3)

      call cprim2xyz(obssites(atrack%where)%pos%xyz,
     *  atrack%pos%xyz%r, outr)
      call cprim2xyzd(atrack%vec%w, outdir)

Here is the call graph for this function: