Re: how to avoid the default collision file?

Dear Hantao Jing,

to get rid of the xxxx001.MGDRAW file, in the mgdraw.f routine
delete all the lines
          IF ( KOMPUT .EQ. 2 ) THEN
             FILNAM = '/'//CFDRAW(1:8)//' DUMP A'
          ELSE
             FILNAM = CFDRAW
          END IF
          OPEN ( UNIT = IODRAW, FILE = FILNAM, STATUS = 'NEW', FORM =
      & 'UNFORMATTED' )
(they appear more than once, in different ENTRYes).

The function of flrndm(dummy) is to provide a random number.

Alberto

On Tue, 28 Apr 2009, Hantao Jing wrote:

> Dear Fluka experts,
> I want to secondary neutrons as the source to a separate phased run as
> described in the section of the manual relating to collision tapes.
> firstly, I do the things by following the replying email from the "Re:
> USERDUMP and User written SOURCE routine From: Alberto Fasso'
> (fasso_at_SLAC.Stanford.EDU)".
>
> *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
> USERDUMP 100.0 0.0 3.0
>
> I don't know why the collision file will still be produced with name of
> "xxxx001.MGDRAW". Because I has done my own file opening in the user
> routine, I don't hope the xxxx001.MGDRAW occurpies my disk space. How to
> forbid the xxxx001.MGDRAW production?
>
>
>
> Secondly, what is the function of flrndm(dummy) in source.f in attaichment
> ?
>
>
> Thanks!
>
>
> Hantao Jing
>
> 2009-4-28
>

-- 
Alberto Fasso`
SLAC-RP, MS 48, 2575 Sand Hill Road, Menlo Park CA 94025
Phone: (1 650) 926 4762   Fax: (1 650) 926 3569
fasso_at_slac.stanford.edu