Hi
I succeeded to solve your problem in the following way:
- the script rfluka, which is used to run FLUKA and stays in
$FLUPRO/flutil, defines internally a variable NUM which counts the cycle
number
- I added in rfluka, soon after NUM=0, the line: export NUM
- Then in my user routines I do:
CHARACTER*3 CYCLE
INTEGER NCYCLE
....
CALL GETENV('NUM',CYCLE)
READ(CYCLE(1:1),'(I1`)') NCYCLE ! This works if cycle number < 10
In this way you will get the cycle number in NCYCLE. If your number
of cycles exceed 9 you have to modify the READ(CYCLE... statement
G.B.
On 06/02/2022 11:30, babintsev wrote:
> Dear experts,
>
> I use source.f program to set beam particles for FLUKA.
>
> I do not use RNDM method. How can I define inside the program,
>
> what cycle is it ... to get next event from my arrays of events
>
> thank you
>
> Vladimir
>
> __________________________________________________________________________
>
> You can manage unsubscription from this mailing list at
> https://www.fluka.org/fluka.php?id=acc_info
>
--
INFN Sezione di Milano
via Celoria 16, 20133 Milano
tel: +39 02 50317307
__________________________________________________________________________
You can manage unsubscription from this mailing list at https://www.fluka.org/fluka.php?id=acc_info
Received on Mon Feb 07 2022 - 11:17:13 CET