[fluka-discuss]: FLUKA problem with SOURCE.f

From: Vladimir Babintsev <babintsev_at_ihep.ru>
Date: Wed, 2 Mar 2022 14:29:49 +0300

Dear experts,
I have met strange situation  working with SOURCE.f code.

I am using 2-step method: 1-st generate secondary particles at
the target,
then use these secondary particles as new beam.
so, I am using SOURCE.f to get these particles.

1)   CLUSTER:    FLUKA2021 Version 2.0

       output results depend on the definition
                   of COMMON blocks !

    a) when I use this definition :

       PARAMETER (NMAX=10000000)           ! - for BIG-input, total
       COMMON /ICOM/ NNN, MYIJ(NMAX)
       COMMON /COM/ ERG(NMAX), TOTL(NMAX), ORIGL(NMAX),
      &             TT(NMAX), XXX(NMAX), YYY(NMAX), ZZZ(NMAX),
      &             COSX(NMAX), COSY(NMAX), COSZ(NMAX)

      I get normal *err file :  example : output-1.err

   b) when I use new definition :

       INTEGER NMAX
       PARAMETER (NMAX=10000000)           ! - for BIG-input, total
       INTEGER NNN, MYIJ(NMAX)
       REAL   ERG(NMAX), TOTL(NMAX), ORIGL(NMAX)
       REAL   TT(NMAX), XXX(NMAX), YYY(NMAX), ZZZ(NMAX)
       REAL COSX(NMAX), COSY(NMAX), COSZ(NMAX)
cc      REAL*8 COSX(NMAX), COSY(NMAX), COSZ(NMAX)
       COMMON /ICOM/ NNN, MYIJ
       COMMON /COM/ ERG, TOTL,ORIGL, TT, XXX,YYY,ZZZ,
      &              COSX,COSY,COSZ

      I get strange *err file :  example : output-part-2.err (only part)

        -----------------------------

---> at the same time *.out  files look normal :

                output-1.out    and    output-2.out

      see also   Wtest.inp  and  source.f

         -----------------------------

2) when I try this code at my laptop (ubuntu) : FLUKA2021 Version 2.2

I got note:

       $FLUPRO/flutil/fff  t.f >&    comp-t.txt

cat comp-t.txt
/home/babintsev/FLU-files-2021/fluka_21.2.2/flutil/fff: 119: [[: not found

    ... nevertheless compilation is finished ...
       and results are the same ....

          -----------------------

          Any comments ?

thank you,
Vladimir

//====================================




__________________________________________________________________________
You can manage unsubscription from this mailing list at https://www.fluka.org/fluka.php?id=acc_info

Received on Wed Mar 02 2022 - 16:14:41 CET

This archive was generated by hypermail 2.3.0 : Wed Mar 02 2022 - 16:15:09 CET