Hi, everyone,
I use the USERWEIG and comscw.f to score the dose(Gy) according to the USRBIN card which obtains the energy deposition density. But nothing has changed, it seems comscw.f has no influence to the results. Attachment is the input file and the user routine comscw.f. Below is the USERWEIG setting and comscw.f input. Could anyone give me some suggestions?
USRBIN 11. ENERGY -21. 13.0 0. 70.endep
USRBIN 11.0 0.0 -50. 5.0 10.0 120. &
USERWEIG 0.0 0.0 1.
********comscw.f
INCLUDE '(FLKMAT)'
INCLUDE '(SCOHLP)'
INCLUDE '(SOUEVT)'
INCLUDE '(TRACKR)'
*
LSCZER = .FALSE.
COMSCW = ONEONE
* ======== In order to compute doses ========= *
* (Medflk(n,iprodc) is the material number of region n
* Rho(m) is the density of material m)
IF ( ISCRNG .EQ. 1 .AND. JSCRNG .EQ. 1 ) THEN
COMSCW = 1.6 D-07 / RHO (MEDFLK(4,1))
END IF
RETURN
*=== End of function Comscw ===========================================*
END
__________________________________________________________________________
You can manage unsubscription from this mailing list at
https://www.fluka.org/fluka.php?id=acc_info
- application/octet-stream attachment: comscw.f
- application/octet-stream attachment: dose.inp
Received on Tue Sep 01 2015 - 16:23:08 CEST