Re: Inconclusive results with USIMBS

Dear Developers,

Thank you for the quick fix!
Can you clarify something for me?
The problem was only my "non standard" usimbs.f codes, or there was
something else wrong in FLUKA itself?
Also my v4-v6 usimbs.f codes are valid ones?

Thanks,
David Horvath

Ps.:
The main part of my v4 usimbs.f code:

       REND = SQRT(XTRACK(NTRACK)**2 + YTRACK(NTRACK)**2 +
      & ZTRACK(NTRACK)**2)
       RSTART = SQRT(XTRACK(0)**2 + YTRACK(0)**2 +
      & ZTRACK(0)**2)
*
       FIMP = ONEONE
*
       IF ((RSTART .GT. 11.5) .AND. (REND .LT. 31.5)) THEN
           FSTART = FLOOR(RSTART * ONEONE)
           FEND = FLOOR(REND * ONEONE)
           IF (FEND .GT. FSTART) THEN
               FIMP = TWOTWO
           ELSE IF (FEND .LT. FSTART) THEN
               FIMP = 0.5
           END IF
       END IF
Received on Mon Jan 23 2012 - 10:36:45 CET