cdet2xyzFE.f

Go to the documentation of this file.

      subroutine cdet2xyzfe(aTrack, outr, outdir)
!      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)
      end

      subroutine cxyz2detfe(aTrack, outr, outdir)
      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)
      end

      subroutine cprim2xyzfe(aTrack, outr, outdir)
      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)
      end

      subroutine cxyz2primfe(aTrack, outr, outdir)
      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)
      end


      subroutine cprim2detfe(aTrack, outr, outdir)
      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)
      end

      subroutine cdet2primfe(aTrack, outr, outdir)
      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)
      end