[fluka-discuss]: PROBLEM about comscw.f to obtain absorption dose !!!

From: YANG Tao <yangt_at_ihep.ac.cn>
Date: Tue, 1 Sep 2015 20:52:59 +0800 (GMT+08:00)

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

Received on Tue Sep 01 2015 - 16:23:08 CEST

This archive was generated by hypermail 2.3.0 : Tue Sep 01 2015 - 16:23:09 CEST