Re: [fluka-discuss]: How to get cycle number in source.f program to read next event from my array

From: Giuseppe Battistoni <giuseppe.battistoni_at_mi.infn.it>
Date: Mon, 7 Feb 2022 09:55:27 +0100

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

This archive was generated by hypermail 2.3.0 : Mon Feb 07 2022 - 11:17:17 CET