Hi Fluka users,
I have a question about this 2 stacks.
I study pB fusion and alphas created wtih mgdraw routines. I would like to see the different ways to produce alphas in 11B(p,2alphas)alpha. The 2 alphas coming from 8Be evaporation.
In mgdraw.f I did that:
ENTRY USDRAW ( ICODE, MREG, XSCO, YSCO, ZSCO )
IF ( UDFIRST ) THEN
UDFIRST = .FALSE.
OPEN ( UNIT = 81, FILE = "collalfa1", STATUS = 'NEW')
OPEN ( UNIT = 82, FILE = "collalfa2", STATUS = 'NEW')
ENDIF
do 20 ip = 1, NP
IF (KPART(ip) .EQ. -6) THEN
WRITE(81,*) JTRACK, ETRACK-AM(JTRACK), XSCO, YSCO, ZSCO,
& TKI(ip), CXR(ip), CXR(ip), CXR(ip), WEI(IP)
ENDIF
20 continue
do 30 ip=1,NPHEAV
IF (KHEAVY(ip) .EQ. 6) THEN
WRITE (82,*) JTRACK, ETRACK-AM(JTRACK), XSCO, YSCO, ZSCO,
& TKHEAV(ip), CXHEAV(ip), CYHEAV(ip), CZHEAV(ip), WHEAVY(ip)
ENDIF
30 continue
RETURN
But I am not sure to do the difference between alphas like that. What is the difference between alphas in GENTSK and in FHEAVY?
Thanks for your help
Julien
CELIA FRANCE
__________________________________________________________________________
You can manage unsubscription from this mailing list at
https://www.fluka.org/fluka.php?id=acc_info
Received on Thu May 21 2020 - 03:05:54 CEST