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
This archive was generated by hypermail 2.2.0 : Mon Jan 23 2012 - 10:36:46 CET