cxyz2det.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cxyz2det (det, a, b)
subroutine	cdet2xyz (det, a, b)
subroutine	cxyz2detd (a, b)
subroutine	cdet2xyzd (a, b)

Function/Subroutine Documentation

cdet2xyz()

subroutine cdet2xyz	(	type(coord)	det,
		type(coord)	a,
		type(coord)	b
	)

Definition at line 48 of file cxyz2det.f.

Referenced by __det2prim2.f__(), cdet2primfe(), cdet2xyzfe(), cinitracking0(), cmintime2websec(), and convcoord().

!      *******************************
       implicit none

#include  "Zcoord.h"
#include  "Zobs.h"
#include  "Zpos.h"
#include  "Zmagfield.h"
#include  "Zobsv.h"

!
! why              type(coord)::  
        type(coord)::a
        type(coord)::b
        type(coord)::det
        real(8)::temp(3)
        temp(:) = matmul( tdet2xyz(:,:), a%r(:))
        b%r(:) = temp(:) + det%r(:)
        b%sys = 'xyz'
!        record /coord/ tempa
!        real*8 leng
!           to direction cos in 'det'
!        call c3DV2DDCos(a, tempa, leng)
!           to direction cos in 'zyz'
!        call ctransVectZx(1, DetZaxis, DetXaxis,tempa, b)
!           to xyz sys
!        b.r(1) = b.r(1) *leng + det.r(1)
!        b.r(2) = b.r(2) *leng + det.r(2)
!        b.r(3) = b.r(3) *leng + det.r(3)
!        b.sys = 'xyz'

Here is the caller graph for this function:

cdet2xyzd()

subroutine cdet2xyzd	(	type(coord)	a,
		type(coord)	b
	)

Definition at line 101 of file cxyz2det.f.

Referenced by __det2prim2.f__(), cdet2primfe(), cdet2xyzfe(), modefield::cefielddet2xyz(), and cmyefield().

       implicit none
#include  "Zcoord.h"
#include  "Zobs.h"
#include  "Zpos.h"
#include  "Zmagfield.h"
#include  "Zobsv.h"

        type(coord)::a
        type(coord)::b
        real(8):: temp(3)
        temp(:) = matmul( tdet2xyz(:,:), a%r(:))
        b%r(:) = temp(:)
!        call ctransVectZx(1, DetZaxis, DetXaxis, a, b)       

Here is the caller graph for this function:

cxyz2det()

subroutine cxyz2det	(	type(coord)	det,
		type(coord)	a,
		type(coord)	b
	)

Definition at line 7 of file cxyz2det.f.

Referenced by __det2prim.f__(), __det2prim2.f__(), __xyz2det.f__(), ccoordfortr(), cgethcoredist(), cgetpcoredist(), cinitracking(), cmyefield(), cobservation(), convcoord(), cprim2detfe(), csetthinwgt(), and cxyz2detfe().

!          convert coord value in the "xyz" system into "det" system.
!        det: /coord/  input. detector coord in "xyz"
!          a: /coord/  input. coord in 'xyz'
!          b: /coord/  outupt. coord in 'det'
!
      implicit none

#include  "Zcoord.h"
#include  "Zobs.h"
#include  "Zpos.h"
#include  "Zmagfield.h"
#include  "Zobsv.h"

      type(coord)::a
      type(coord)::b 
      type(coord)::det

!      record /coord/ tempa
      real(8):: temp(3)
      temp(:) = a%r(:) - det%r(:)
      b%r(:) = matmul( txyz2det(:,:), temp(:))
      b%sys = 'det'
!      real*8 leng
!       coord in "xyz"   from the origin of det.

!       tempa.r(1) = a.r(1) -  det.r(1)
!       tempa.r(2) = a.r(2) -  det.r(2)
!       tempa.r(3) = a.r(3) -  det.r(3)
!          make it direction cos.
!       call c3DV2DDCos(tempa, tempa, leng)
!          maket it direction cos in "det" system.
!       call ciTransVectZx(1, DetZaxis, DetXaxis, tempa, b)
!          to 3D vectors
!      
!       b.r(1) = b.r(1) *leng
!       b.r(2) = b.r(2) *leng
!       b.r(3) = b.r(3) *leng
!       b.sys = 'det'

Here is the caller graph for this function:

cxyz2detd()

subroutine cxyz2detd	(	type(coord)	a,
		type(coord)	b
	)

Definition at line 80 of file cxyz2det.f.

Referenced by cobservation(), cprim2detfe(), and cxyz2detfe().

       implicit none

#include  "Zcoord.h"
#include  "Zobs.h"
#include  "Zpos.h"
#include  "Zmagfield.h"
#include  "Zobsv.h"


!              
       type(coord)::a
       type(coord)::b
       real::temp(3)
       temp(:) =matmul(txyz2det(:,:), a%r(:)) 
       b%r(:) = temp(:)
       b%sys = 'det'
!       call ciTransVectZx(1, DetZaxis, DetXaxis, a, b)
!       b.sys = 'det'

Here is the caller graph for this function: