Unknown problem

From: Ioannis Kantemiris (ikantem@phys.uoa.gr)
Date: Mon Jun 04 2007 - 10:38:41 CEST

  • Next message: Tang, Alfred: "RE: Thermal and epithermal neutrons--problem solved"

    Dear FLUKA experts

    I have a problem with my source.f . When I use :
          IF (FLRNDM(NPFLKA).LT.0.5) THEN
          XFLK (NPFLKA) = -50.D0
          YFLK (NPFLKA) = -7.D0 + 2.D0*FLRNDM(NPFLKA)
          ZFLK (NPFLKA) = 0.4D0 + 5.2D0*FLRNDM(NPFLKA)
    * Cosines (tx,ty,tz)
          TXFLK (NPFLKA) = 1.D0
          TYFLK (NPFLKA) = 0.D0
          TZFLK (NPFLKA) = 0.D0
          ELSE
          XFLK (NPFLKA) = 50.D0
          YFLK (NPFLKA) = -7.D0 + 2.D0*FLRNDM(NPFLKA)
          ZFLK (NPFLKA) = 0.4D0 + 5.2D0*FLRNDM(NPFLKA)
    * Cosines (tx,ty,tz)
          TXFLK (NPFLKA) = -1.D0
          TYFLK (NPFLKA) = 0.D0
          TZFLK (NPFLKA) = 0.D0
          ENDIF

    and my run lasts for ~1 hour everything is ok, but when I try to increase
    the simulation time to ~4 hours the simulation stops and I get in the .out

    NEXT SEEDS:2CBC78F7 0 0 0 0 0 181CD
    3039 0 0

     **** Isotope tabulation data start at location 3509121 and end at
    3510058 (I*4 addr.) ****
         300000 999700000 3489198
    3.9337001E-03 1.3805460E+04 524304
     NEXT SEEDS: 77B54BE 1 0 0 0 0 181CD
    3039 0 0
         400000 999600000 3390137
    3.9327250E-03 1.3412480E+04 698572
     NEXT SEEDS:1DDAF90D 1 0 0 0 0 181CD
    3039 0 0
    1Invalid region or body in Normal. IR= 3 LAT= 0 NASC= 2
     IRRNOR= 3 IR1(IR)= 3 IR2(IR)= 3
     X,Y,Z: -9.22542135150 -8.71320759940 11.2172917844
          3 -4 -5 -6 -7 -8 -9
     Abort called from NORML reason UNKNOWN PROBLEM Run stopped!
     STOP UNKNOWN PROBLEM

    I run geometry debugger and I don't get any geometry errors.
    When I change the source.f eg

         IF (FLRNDM(NPFLKA).LT.0.5) THEN
          XFLK (NPFLKA) = -50.D0
          YFLK (NPFLKA) = -7.D0 + 2.D0
          ZFLK (NPFLKA) = 0.4D0 + 5.2D0
          ...
    the simulation runs without any problem.

    I attach the input file and the source.f

    Thank you in advance

    Best regards

    Ioannis




  • Next message: Tang, Alfred: "RE: Thermal and epithermal neutrons--problem solved"

    This archive was generated by hypermail 2.1.6 : Mon Jun 04 2007 - 15:35:25 CEST