cEfield0.f File Reference

Go to the source code of this file.

Data Types
type	efield

Modules
module	modefield

Functions/Subroutines
subroutine	cefieldread
subroutine	cefieldwrite
subroutine	cefieldcheck
subroutine	cefielddet2xyz
subroutine	cefield0 (aTrack, Efout)
subroutine	cefieldcheckr (aTrack, i, out)
subroutine	cgetpcoredist (aTrack, r)
subroutine	cgethcoredist (aTrack, r)

Variables
integer, parameter	nmaxefield =5
integer, save	howefield =0
character(len=1), save	defofr ='h'
type(efield), dimension(nmaxefield), save	myef
integer, save	nefield = 0
logical, dimension(nmaxefield), save	checkh = .false.
logical, dimension(nmaxefield), save	checkr = .false.
logical, dimension(nmaxefield), save	checkt = .false.
logical, save	useh =.false.
logical, save	user =.false.
logical, save	uset =.false.
real(8), dimension(3, nmaxefield), save	efxyz

Function/Subroutine Documentation

cgethcoredist()

subroutine cgethcoredist	(	type (track)	aTrack,
		real(8), intent(out)	r
	)

Definition at line 272 of file cEfield0.f.

References cxyz2det().

Referenced by modefield::cefieldcheckr().

      implicit none
#include "Ztrack.h"
#include "Zincidentv.h"
#include "Zobs.h"
#include "Zobsv.h"
      type(track):: atrack  ! input. in E-xyz system
      real(8),intent(out):: r ! Perpendicular core distance

      real(8):: rdet(3)  !   ptcl pos in det-sys
      real(8):: raxis(3) ! shower core at the same height
             !         as the ptcl


      call cxyz2det(obssites(atrack%where)%pos%xyz,
     *               atrack%pos%xyz%r(:), rdet(:))
      raxis(:) = 
     *  (atrack%pos%height - obssites(atrack%where)%pos%height) /
     *  angleatobscopy%r(3)     ! length from origin( <0 )
     *  * angleatobscopy%r(:)   ! vector (now upgoing) since
                       ! AngleAtObsCopy is downogin.
      r = sqrt(sum( ( rdet(:)-raxis(:))**2 ))

Here is the call graph for this function:

Here is the caller graph for this function:

cgetpcoredist()

subroutine cgetpcoredist	(	type (track)	aTrack,
		real(8), intent(out)	r
	)

Definition at line 256 of file cEfield0.f.

References cxyz2det().

Referenced by modefield::cefieldcheckr().

      implicit none
#include "Ztrack.h"
#include "Zincidentv.h"
#include  "Zobs.h"
#include "Zobsv.h"
      type(track):: atrack  ! input. in E-xyz system
      real(8),intent(out):: r ! Perpendicular core distance

      real(8):: rdet(3)  !   ptcl pos in det-sys

      call cxyz2det(obssites(atrack%where)%pos%xyz,
     *              atrack%pos%xyz%r(:), rdet(:))
      r = abs(dot_product(rdet(:), angleatobscopy%r(:)))  ! Angle..  is dwn.g

Here is the call graph for this function:

Here is the caller graph for this function: