Re: fluscw.f usage

Yes, it is possible to do both transformations in a single run.
Make two identical binnings with a different SDUM name, for instance
NIEL and SEE. That name can be made available in fluscw as TITUSB(JSCRNG),
where JSCRNG is the binning number, adding at the beginning a line
       INCLUDE '(USRBIN)'

Then:

       IF( TITUSB(JSCRNG)(1:4) .EQ. "NIEL" ) THEN
          ...... coding for the NIEL transformation ....
          FLUSCW =3D .... (multiplication factor)
       ELSE IF( TITUSB(JSCRNG)(1:3) .EQ. "SEE" ) THEN
          ...... coding for the SEE transformation .....
          FLUSCW =3D .... (multiplication factor)
       ELSE
          FLUSCW =3D ONEONE (default, do nothing)
       END IF

Here I have used the binning names to discriminate between the binnings
(the same thing is done in Roesler's routine deq99.f which is distributed w=
ith
the code and which does various fluence to dose conversions).
But you can also discriminate using directly the binning number JSCRNG: the=
=20
first binning in input has JSCRNG =3D 1, the second 2 etc.:

       IF( JSCRNG .EQ. 1 ) THEN
          ...... coding for the NIEL transformation ....
       ELSE IF( JSCRNG .EQ. 2 ) THEN
          ...... coding for the SEE transformation .....
       ELSE
          FLUSCW =3D ONEONE (default, do nothing)
       END IF

JSCRNG is available through INCLUDE '(SCOHLP)', which is already present
in the default fluscw. Using this second approach, you don't need to add
INCLUDE '(USRBIN)'

Alberto

On Wed, 4 Jun 2008, Bertini, Denis Dr. wrote:

          FLUSCW =3D ONEONE (default, do nothing)
       END IF
> Dear Fluka Users,
> I would like to modify the track density binning given by USRBIN
> to estimate NEIL effect and SEE. For that i use the user routine
> fluscw.f. My question is the following : Is it possible to do both=3D20
> transformation in one program or should i run 2 times the simulation ?
> thanks,
> Denis Bertini

--=20
Alberto Fasso`=F2
SLAC-RP, MS 48, 2575 Sand Hill Road, Menlo Park CA 94025
Phone: (1 650) 926 4762 Fax: (1 650) 926 3569
fasso@slac.stanford.edu
--1334196310-1276083684-1212612219=3D:11482--
Received on Thu Jun 5 23:03:23 2008