Dear Lawrence,
Can you test the part below in your source.f, or do you need fully
working input and source files?
* Cosines (tx,ty,tz)
* Sampling directions
CALL RACO( TXX, TYY, TZZ)
TXFLK (NPFLKA) = TXX
TYFLK (NPFLKA) = TYY
TZFLK (NPFLKA) = TZZ
* TZFLK (NPFLKA) = SQRT ( ONEONE - TXFLK (NPFLKA)**2
* & - TYFLK (NPFLKA)**2 )
* Polarization cosines:
TXPOL (NPFLKA) = -TWOTWO
TYPOL (NPFLKA) = +ZERZER
TZPOL (NPFLKA) = +ZERZER
* Particle coordinates
* Sampling X coordinate
XI = FLRNDM(XDUMMY)
IF (XI .LT. ONEFOU) THEN
XBEAM = -ONEONE
ELSE IF (XI .GE. ONEFOU .AND. XI .LT. (ONEFOU + HLFHLF)) THEN
XBEAM = ZERZER
ELSE
XBEAM = ONEONE
END IF
XFLK (NPFLKA) = XBEAM
YFLK (NPFLKA) = YBEAM
ZFLK (NPFLKA) = ZBEAM
Best regards,
Mikhail
On 20.11.2020 11:51, 董思学 wrote:
> Dear FLUKA experts,
>
> I'm a postgraduate in Shanghai Institute of Applied Physics, Chinese
> Academy of Sciences.You could just call me Lawrence.
>
>
>
> As a beginner .I have a few problem with writing a source.f in FLUKA.
> I don't know how to set several instead of one beampos in it.for
> example:I need three point sources, sampling position -1, 0, 1mm in
> the x direction, give probability 25%, 50%, and 25% respectively.
>
>
>
>
>
> Could you take up a few minutes of your time at your convenience to
> write this example for me?I will be very grateful！！*⸜( •ᴗ• )⸝*
>
>
>
>
>
>
>
> Yours sincerely,
>
>
>
> Lawrence Dong
>
>
__________________________________________________________________________
You can manage unsubscription from this mailing list at
https://www.fluka.org/fluka.php?id=acc_info
Received on Sat Nov 21 2020 - 10:03:05 CET