This routine is IDENTICAL to LXPHO1 except that one can give custom Rayleigh and Absorption length.
REAL
ZIN(6) In input : Position and
directory cosines of energy
P
deposit. Z(4..6) unused
l
REAL
T0 In input
: Time of the energy deposit (in SECONDS!! <------ e
meant to be filled with TOFG).
a
REAL
ZOUT(6) In output: Position of the
exit point and directory
s
cosines of the exiting photon.
e
REAL
TOUT In output : Time
at which the photon exits the LIXE.
(in NANOSECONDS!!!) <------------------------ n
INTEGER ALIVE
In output : -1 There has been some internal error
o
(e.g. face not found)
t
0 The photon has been absorbed
e
>0 the photon is still alive and underwent
(ALIVE-1) Rayleigh scatterings.
REAL
ABSNEW In input : Custom
absorption length (in cm)
REAL
RAYNEW In input : Custom
Rayleigh scattering length (in cm)
Example of usage.