Hello
I see no problem in your source routine, maybe the problem is elsewhere.
Could you send the input file?
Paola
> Dear Fluka Experts,
>
> We are doing a set of simulations in which a fan-beam two-point
> gamma-ray source is required. The following lines have been added to
> source.f FORTRAN file and the deposition energies, in an array of
> detectors surrounding the gamma-ray source located at (1 0 0) and (-1 0
> 0), are calculated using USRBIN card. The photon flux from what the
> graphical output shows is correct, however, the deposition energy output
> data are all zero.
>
> It is very appreciated if you could help us to resolve this problem.
>
> Sincerely,
> Nima Ghal-Eh.
>
>
>
>
>
> ------- Position Definition ---------
>
> COIN=FLRNDM(XDUMMY)
>
> IF (COIN.LT.0.5)THEN
> XFLK(NPFLKA) = ONEONE
> YFLK(NPFLKA) = ZERZER
> ZFLK(NPFLKA) = ZERZER
> ELSE
> XFLK(NPFLKA) = -ONEONE
> YFLK(NPFLKA) = ZERZER
> ZFLK(NPFLKA) = ZERZER
> ENDIF
>
> ------- Direction Definition ---------
>
> PHI=TWOTWO * PIPIPI * FLRNDM(XDUMMY)
>
> COSTET = ZERZER
> SINTET = ONEONE
>
> XDIR = COS(PHI)
> YDIR = SIN(PHI)
> ZDIR = ZERZER
>
> TXFLK(NPFLKA) = XDIR/SQRT(XDIR**2.+YDIR**2.+ZDIR**2.)
> TYFLK(NPFLKA) = YDIR/SQRT(XDIR**2.+YDIR**2.+ZDIR**2.)
> TZFLK(NPFLKA) = ZDIR/SQRT(XDIR**2.+YDIR**2.+ZDIR**2.)
>
> ---------------------------------------
>
>
>
>
> __________________________________________________________________________
> You can manage unsubscription from this mailing list at
> https://www.fluka.org/fluka.php?id=acc_info
>
>
Paola Sala
INFN Milano
tel. Milano +39-0250317374
tel. CERN +41-227679148
__________________________________________________________________________
You can manage unsubscription from this mailing list at
https://www.fluka.org/fluka.php?id=acc_info
Received on Mon Sep 28 2020 - 16:26:55 CEST