... thanks a lot, Giuseppe
it works...
Vladimir
07.02.2022 11:55, Giuseppe Battistoni пишет:
> 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
>>
__________________________________________________________________________
You can manage unsubscription from this mailing list at
https://www.fluka.org/fluka.php?id=acc_info
Received on Tue Feb 08 2022 - 10:09:54 CET