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.eduReceived on Wed Apr 29 2009 - 11:57:44 CEST
This archive was generated by hypermail 2.2.0 : Wed Apr 29 2009 - 11:57:47 CEST