Dear FLUKA experts,
When i use a OPEN card to open a file, the following error
happens in XXX.log file:
list in: end of file
apparent state: unit 60 named CS1rev.txt
last format: list io
lately reading sequential formatted external IO.
What is wrong? Thank you in advance!
Hantao
2011.1.10
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
TITLE
Charged proton fluence inside and around a proton-irradiated Cu target
GLOBAL 1000.0 0.0 0.0 0.0 1.0
BEAM -0.2 PROTON
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
OPEN 60.0 OLD
CS1rev.txt
SOURCE
*
GEOBEGIN COMBNAME
0 0 A simple Cu target inside vacuum
RPP body1 -500000.0 +500000.0 -500000.0 +500000.0 -500000.0 +500000.0
RPP body2 -100000.0 +100000.0 -100000.0 +100000.0 -100000.0 +100000.0
RPP body3 +5.95 +11.97 -4.26 +4.26 -0.01 +10.01
* plane to separate the upstream and downstream part of the target
YZP body4 5.96
YZP body5 11.96
XYP body6 0.0
XYP body7 10.0
XZP body8 -4.25
XZP body9 4.25
END
* black hole
regBH1 5 +body1-body2
* vacuum
regVA2 5 +body2-body3
* Cu target
regBE3 5 +body3-body4+body5-body6+body7-body8+body9
* vacuum
regVA4 5 +body3+body4
* vacuum
regVA5 5 +body3-body5
* vacuum
regVA6 5 +body3+body6
* vacuum
regVA7 5 +body3-body7
* vacuum
regVA8 5 +body3+body8
* vacuum
regVA9 5 +body3-body9
END
GEOEND
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
MATERIAL 29.0 63.546 8.960 12.0 COPPER
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
* Cu target
ASSIGNMAT COPPER regBE3
* External Black Hole
ASSIGNMAT BLCKHOLE regBH1
* Vacuum
ASSIGNMAT VACUUM regVA2
* Vacuum
ASSIGNMAT VACUUM regVA4
* Vacuum
ASSIGNMAT VACUUM regVA5
* Vacuum
ASSIGNMAT VACUUM regVA6
* Vacuum
ASSIGNMAT VACUUM regVA7
* Vacuum
ASSIGNMAT VACUUM regVA8
* Vacuum
ASSIGNMAT VACUUM regVA9
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
* e+e- and gamma production threshold set at 10 MeV
*EMFCUT -0.010 0.010 1.0 BERYLLIU PROD-CUT
* score in each region energy deposition and stars produced by primaries
SCORE ENERGY BEAMPART
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
* Boundary crossing current in the middle of the target (linear intervals, one-way)
USRBDX +1.0 PROTON -47.0 regBE3 regVA4 85.0 pCurrUD1
USRBDX +0.1 +50.0 0.0 1.0&
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
* Boundary crossing current in the middle of the target (linear intervals, one-way)
USRBDX +1.0 PROTON -47.0 regBE3 regVA5 85.0 pCurrUD2
USRBDX +0.1 +50.0 0.0 1.0&
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
* Boundary crossing current in the middle of the target (linear intervals, one-way)
USRBDX +1.0 PROTON -47.0 regBE3 regVA6 51.0 pCurrUD3
USRBDX +0.1 +50.0 0.0 1.0&
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
* Boundary crossing current in the middle of the target (linear intervals, one-way)
USRBDX +1.0 PROTON -47.0 regBE3 regVA7 51.0 pCurrUD4
USRBDX +0.1 +50.0 0.0 1.0&
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
* Boundary crossing current in the middle of the target (linear intervals, one-way)
USRBDX +1.0 PROTON -47.0 regBE3 regVA8 60.0 pCurrUD5
USRBDX +0.1 +50.0 0.0 1.0&
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
* Boundary crossing current in the middle of the target (linear intervals, one-way)
USRBDX +1.0 PROTON -47.0 regBE3 regVA9 60.0 pCurrUD6
USRBDX +0.1 +50.0 0.0 1.0&
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
RANDOMIZE 1.0
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
START 17722
STOP
FLUKA User license
COPYRIGHT NOTICE AND LICENSE CONDITIONS
Copyright Italian National Institute for Nuclear Physics
(INFN) and European Organization for Nuclear Research (CERN),
1989-2010. All rights not expressly granted under this
license are reserved. Requests for permissions not granted
under this license shall be addressed to the FLUKA Collabora-
tion Committee, through fcc_at_fluka.org. Any permission may
only be granted in writing. This software results in
particular from work performed by Alberto Fassò, Alfredo
Ferrari, Johannes Ranft, Paola Sala (the "Authors"), and
their collaborators (the "Collaborators"). INFN and CERN are
the exclusive source of distribution of the code, bug fixes
and documentation of the FLUKA software (FLUKA website), and
may authorise distribution by mirror sites. This license
cancels and replaces any prior license conditions but their
warranty and liability provisions shall continue to apply to
any use or modifications made under such prior license
conditions.
DEFINITIONS
The FLUKA software ("FLUKA") means the fully integrated
particle physics Monte Carlo simulation software package
being developed since 1989, available from the official FLUKA
website (http://www.fluka.org) and authorised mirror sites.
FLUKA is made up of FLUKA core code and FLUKA User Routines.
The FLUKA Copyright Holders means both CERN and INFN.
FLUKA User Routines means the set of subroutines collected in
the usermvax section of FLUKA and forming part of the
standard distribution of FLUKA.
The Licensee means any person acting individually within a
non-profit organisation, exercising any permission granted by
this license.
LICENSE GRANT
1.
Subject to the terms and conditions of this license, the
FLUKA Copyright Holders herewith grant to the Licensee a
worldwide, non-exclusive, royalty-free, source and object
code license to use and reproduce FLUKA for internal
scientific non commercial non-military purposes only.
Notwithstanding the foregoing, the Licensee shall not execute
FLUKA in a manner that produces an output whose contents are
directly useable or easily employable to simulate the physics
models embedded within FLUKA in a generic manner, or excise
portions of FLUKA source or object code, and execute them
independently of FLUKA. Extracting specific isolated results
from any of the individual internal physics models embedded
within FLUKA is not permitted. Permitted use and reproduction
are referred to below as "Use".
2.
Modification (including translation) of FLUKA, in whole or
in part, is not permitted, except for modification of FLUKA
User Routines that do not circumvent, replace, add to or
modify any of the functions of the FLUKA core code. Permitted
modifications are referred to below as "Modifications".
3.
FLUKA is licensed for Use by the Licensee only, and the
Licensee shall not market, distribute, transfer, license or
sub-license, or in any way make available ("Make Available")
FLUKA or Modifications, in whole or in part, to third
parties, without prior written permission. The Licensee shall
not assign or transfer this license.
4.
Notwithstanding section 3, the Licensee may Make Available
his Modifications of FLUKA User Routines to third parties
under these license conditions.
5.
The Licensee shall not insert FLUKA code or Modifications,
in whole or in part, into other codes without prior written
permission.
6.
Any use of FLUKA outside the scope of this license is subject
to prior written permission.
GRANT BACK
7.
The Licensee shall in a timely fashion notify to
fcc_at_fluka.org any Modifications carried out by him. Except
for Authors, Collaborators, and employees of the FLUKA
Copyright Holders, the copyright in whose Modifications shall
automatically be vested in the FLUKA Copyright Holders, the
Licensee herewith grants the FLUKA Copyright Holders a
perpetual, royalty- free, irrevocable and non-exclusive
license to his Modifications, with no limitation of use. The
Licensee acknowledges that the FLUKA Copyright Holders may
insert such Modifications into future releases of FLUKA,
subject to appropriate acknowledgment of the Licensee's
contribution.
8.
The Licensee shall report as soon as practical any errors or
bugs found in any portion of FLUKA to fluka-discuss_at_fluka.org
PUBLICATIONS AND ACKNOWLEDGEMENT
9.
The Licensee shall explicitly acknowledge his use of FLUKA in
any publication or communication, scientific or otherwise,
relating to such use, by citing the FLUKA set of references
(http://www.fluka.org, see below) and the FLUKA copyright
notice.
10.
The Licensee shall ensure that the FLUKA set of references,
the FLUKA copyright notice and these license conditions are
not altered or removed from FLUKA and that all embodiments of
FLUKA and Modifications contain in full the FLUKA set of
references, the FLUKA copyright notice, and these license
conditions.
11.
Any insertion of FLUKA code or Modifications, in whole or in
part, into other codes with permission under section 5 shall
preserve the FLUKA set of references, the FLUKA copyright
notice and these license conditions in the FLUKA code or
Modifications concerned, and must also reproduce these within
any additional global notices included along or embedded
within the software into which the FLUKA code or the
Modifications have been integrated, in whole or in part. Any
part of the FLUKA code or Modifications so inserted shall
continue to be subject to these license conditions.
12.
Publication of any results of comparisons of specific
internal physics models extracted from FLUKA with permission
under section 6 with data or with other codes or models is
subject to prior written permission.
13.
Contributions to any formal code comparisons and validation
exercises pertaining to FLUKA, sponsored by recognised bodies
or within the framework of recognised conferences and
workshops, are subject to prior written permission.
WARRANTY AND LIABILITY
14.
DISCLAIMER FLUKA IS PROVIDED BY THE FLUKA COPYRIGHT HOLDERS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT
NOT LIMITED TO, IMPLIED WARRANTIES OF MERCHANTABILITY, OF
SATISFACTORY QUALITY, AND FITNESS FOR A PARTICULAR PURPOSE OR
USE ARE DISCLAIMED. THE FLUKA COPYRIGHT HOLDERS AND THE
AUTHORS MAKE NO REPRESENTATION THAT FLUKA AND MODIFICATIONS
THEREOF WILL NOT INFRINGE ANY PATENT, COPYRIGHT, TRADE SECRET
OR OTHER PROPRIETARY RIGHT.
15.
LIMITATION OF LIABILITY THE FLUKA COPYRIGHT HOLDERS AND ANY
CONTRIBUTOR SHALL HAVE NO LIABILITY FOR DIRECT, INDIRECT,
SPECIAL, INCIDENTAL, CONSEQUENTIAL, EXEMPLARY, PUNITIVE OR
OTHER DAMAGES OF ANY CHARACTER INCLUDING, WITHOUT LIMITATION,
PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, LOSS OF USE,
DATA OR PROFITS, OR BUSINESS INTERRUPTION, HOWEVER CAUSED AND
ON ANY THEORY OF CONTRACT, WARRANTY, TORT (INCLUDING
NEGLIGENCE), PRODUCT LIABILITY OR OTHERWISE, ARISING IN ANY
WAY OUT OF THE USE OF FLUKA, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES, AND THE LICENSEE SHALL HOLD THE
COPYRIGHT HOLDERS AND ANY CONTRIBUTOR FREE AND HARMLESS FROM
ANY LIABILITY, INCLUDING CLAIMS BY THIRD PARTIES, IN RELATION
TO SUCH USE.
TERMINATION
16.
This license shall terminate with immediate effect and
without notice if the Licensee fails to comply with any of
the terms of this license, or if the Licensee initiates
litigation against any of the FLUKA Copyright Holders or any
contributors with regard to FLUKA. It shall also terminate
with immediate effect from the date on which a new version of
FLUKA becomes available. In either case sections 14 and 15
above shall continue to apply to any Use or Modifications
made under these license conditions.
FLUKA set of references, subject to change
"The FLUKA code: Description and benchmarking"
G. Battistoni, S. Muraro, P.R. Sala, F. Cerutti, A. Ferrari,
S. Roesler, A. Fasso`, J. Ranft,
Proceedings of the Hadronic Shower Simulation Workshop 2006,
Fermilab 6--8 September 2006, M.Albrow, R. Raja eds.,
AIP Conference Proceeding 896, 31-49, (2007)
"FLUKA: a multi-particle transport code"
A. Fasso`, A. Ferrari, J. Ranft, and P.R. Sala,
CERN-2005-10 (2005), INFN/TC_05/11, SLAC-R-773
Additional FLUKA references can be added, provided they are
relevant for the FLUKA version under consideration.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!! DOWNLOAD/USE OF THE FLUKA SOFTWARE IMPLIES FULL !!!!
!!!! ACCEPTANCE AND COMPLIANCE WITH THE LICENSE !!!!
!!!! CONDITIONS !!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Note: The Nuclear Energy Agency Data Bank is an authorized
distributor of the code
1 *====================================================================*
* *
* *
* *
* *
* FFFFF L U U K K AAA 222 000 000 888 *
* F L U U K K A A 2 2 0 0 0 0 8 8 *
* F L U U K K A A 2 0 0 0 0 8 8 *
* FFFF L U U KK AAAAA == 2 0 0 0 0 888 *
* F L U U K K A A 2 0 0 0 0 8 8 *
* F L U U K K A A 2 0 0 0 0 8 8 *
* F LLLLL UUU K K A A 22222 000 000 888 *
* *
* *
* *
* Version of Fluka2008 for GNU/Linux operating system *
* *
* By : *
* *
* Alfredo Ferrari& Paola Sala INFN Milan& CERN/AB *
* *
* Alfredo.Ferrari_at_cern.ch Paola.Sala_at_mi.infn.it *
* *
* *
* Alberto Fasso` SLAC, Stanford *
* *
* Fasso_at_slac.stanford.edu *
* *
* *
* Johannes Ranft Siegen University *
* *
* Johannes.Ranft_at_cern.ch *
* *
* *
* *
* This version includes all the features of the Fluka2008 *
* *
* package *
* *
* *
* *
*====================================================================*
FLUKA User license
COPYRIGHT NOTICE AND LICENSE CONDITIONS
Copyright Italian National Institute for Nuclear Physics
(INFN) and European Organization for Nuclear Research (CERN),
1989-2010. All rights not expressly granted under this
license are reserved. Requests for permissions not granted
under this license shall be addressed to the FLUKA Collabora-
tion Committee, through fcc_at_fluka.org. Any permission may
only be granted in writing. This software results in
particular from work performed by Alberto Fassò, Alfredo
Ferrari, Johannes Ranft, Paola Sala (the "Authors"), and
their collaborators (the "Collaborators"). INFN and CERN are
the exclusive source of distribution of the code, bug fixes
and documentation of the FLUKA software (FLUKA website), and
may authorise distribution by mirror sites. This license
cancels and replaces any prior license conditions but their
warranty and liability provisions shall continue to apply to
any use or modifications made under such prior license
conditions.
DEFINITIONS
The FLUKA software ("FLUKA") means the fully integrated
particle physics Monte Carlo simulation software package
being developed since 1989, available from the official FLUKA
website (http://www.fluka.org) and authorised mirror sites.
FLUKA is made up of FLUKA core code and FLUKA User Routines.
The FLUKA Copyright Holders means both CERN and INFN.
FLUKA User Routines means the set of subroutines collected in
the usermvax section of FLUKA and forming part of the
standard distribution of FLUKA.
The Licensee means any person acting individually within a
non-profit organisation, exercising any permission granted by
this license.
LICENSE GRANT
1.
Subject to the terms and conditions of this license, the
FLUKA Copyright Holders herewith grant to the Licensee a
worldwide, non-exclusive, royalty-free, source and object
code license to use and reproduce FLUKA for internal
scientific non commercial non-military purposes only.
Notwithstanding the foregoing, the Licensee shall not execute
FLUKA in a manner that produces an output whose contents are
directly useable or easily employable to simulate the physics
models embedded within FLUKA in a generic manner, or excise
portions of FLUKA source or object code, and execute them
independently of FLUKA. Extracting specific isolated results
from any of the individual internal physics models embedded
within FLUKA is not permitted. Permitted use and reproduction
are referred to below as "Use".
2.
Modification (including translation) of FLUKA, in whole or
in part, is not permitted, except for modification of FLUKA
User Routines that do not circumvent, replace, add to or
modify any of the functions of the FLUKA core code. Permitted
modifications are referred to below as "Modifications".
3.
FLUKA is licensed for Use by the Licensee only, and the
Licensee shall not market, distribute, transfer, license or
sub-license, or in any way make available ("Make Available")
FLUKA or Modifications, in whole or in part, to third
parties, without prior written permission. The Licensee shall
not assign or transfer this license.
4.
Notwithstanding section 3, the Licensee may Make Available
his Modifications of FLUKA User Routines to third parties
under these license conditions.
5.
The Licensee shall not insert FLUKA code or Modifications,
in whole or in part, into other codes without prior written
permission.
6.
Any use of FLUKA outside the scope of this license is subject
to prior written permission.
GRANT BACK
7.
The Licensee shall in a timely fashion notify to
fcc_at_fluka.org any Modifications carried out by him. Except
for Authors, Collaborators, and employees of the FLUKA
Copyright Holders, the copyright in whose Modifications shall
automatically be vested in the FLUKA Copyright Holders, the
Licensee herewith grants the FLUKA Copyright Holders a
perpetual, royalty- free, irrevocable and non-exclusive
license to his Modifications, with no limitation of use. The
Licensee acknowledges that the FLUKA Copyright Holders may
insert such Modifications into future releases of FLUKA,
subject to appropriate acknowledgment of the Licensee's
contribution.
8.
The Licensee shall report as soon as practical any errors or
bugs found in any portion of FLUKA to fluka-discuss_at_fluka.org
PUBLICATIONS AND ACKNOWLEDGEMENT
9.
The Licensee shall explicitly acknowledge his use of FLUKA in
any publication or communication, scientific or otherwise,
relating to such use, by citing the FLUKA set of references
(http://www.fluka.org, see below) and the FLUKA copyright
notice.
10.
The Licensee shall ensure that the FLUKA set of references,
the FLUKA copyright notice and these license conditions are
not altered or removed from FLUKA and that all embodiments of
FLUKA and Modifications contain in full the FLUKA set of
references, the FLUKA copyright notice, and these license
conditions.
11.
Any insertion of FLUKA code or Modifications, in whole or in
part, into other codes with permission under section 5 shall
preserve the FLUKA set of references, the FLUKA copyright
notice and these license conditions in the FLUKA code or
Modifications concerned, and must also reproduce these within
any additional global notices included along or embedded
within the software into which the FLUKA code or the
Modifications have been integrated, in whole or in part. Any
part of the FLUKA code or Modifications so inserted shall
continue to be subject to these license conditions.
12.
Publication of any results of comparisons of specific
internal physics models extracted from FLUKA with permission
under section 6 with data or with other codes or models is
subject to prior written permission.
13.
Contributions to any formal code comparisons and validation
exercises pertaining to FLUKA, sponsored by recognised bodies
or within the framework of recognised conferences and
workshops, are subject to prior written permission.
WARRANTY AND LIABILITY
14.
DISCLAIMER FLUKA IS PROVIDED BY THE FLUKA COPYRIGHT HOLDERS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT
NOT LIMITED TO, IMPLIED WARRANTIES OF MERCHANTABILITY, OF
SATISFACTORY QUALITY, AND FITNESS FOR A PARTICULAR PURPOSE OR
USE ARE DISCLAIMED. THE FLUKA COPYRIGHT HOLDERS AND THE
AUTHORS MAKE NO REPRESENTATION THAT FLUKA AND MODIFICATIONS
THEREOF WILL NOT INFRINGE ANY PATENT, COPYRIGHT, TRADE SECRET
OR OTHER PROPRIETARY RIGHT.
15.
LIMITATION OF LIABILITY THE FLUKA COPYRIGHT HOLDERS AND ANY
CONTRIBUTOR SHALL HAVE NO LIABILITY FOR DIRECT, INDIRECT,
SPECIAL, INCIDENTAL, CONSEQUENTIAL, EXEMPLARY, PUNITIVE OR
OTHER DAMAGES OF ANY CHARACTER INCLUDING, WITHOUT LIMITATION,
PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, LOSS OF USE,
DATA OR PROFITS, OR BUSINESS INTERRUPTION, HOWEVER CAUSED AND
ON ANY THEORY OF CONTRACT, WARRANTY, TORT (INCLUDING
NEGLIGENCE), PRODUCT LIABILITY OR OTHERWISE, ARISING IN ANY
WAY OUT OF THE USE OF FLUKA, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES, AND THE LICENSEE SHALL HOLD THE
COPYRIGHT HOLDERS AND ANY CONTRIBUTOR FREE AND HARMLESS FROM
ANY LIABILITY, INCLUDING CLAIMS BY THIRD PARTIES, IN RELATION
TO SUCH USE.
TERMINATION
16.
This license shall terminate with immediate effect and
without notice if the Licensee fails to comply with any of
the terms of this license, or if the Licensee initiates
litigation against any of the FLUKA Copyright Holders or any
contributors with regard to FLUKA. It shall also terminate
with immediate effect from the date on which a new version of
FLUKA becomes available. In either case sections 14 and 15
above shall continue to apply to any Use or Modifications
made under these license conditions.
FLUKA set of references, subject to change
"The FLUKA code: Description and benchmarking"
G. Battistoni, S. Muraro, P.R. Sala, F. Cerutti, A. Ferrari,
S. Roesler, A. Fasso`, J. Ranft,
Proceedings of the Hadronic Shower Simulation Workshop 2006,
Fermilab 6--8 September 2006, M.Albrow, R. Raja eds.,
AIP Conference Proceeding 896, 31-49, (2007)
"FLUKA: a multi-particle transport code"
A. Fasso`, A. Ferrari, J. Ranft, and P.R. Sala,
CERN-2005-10 (2005), INFN/TC_05/11, SLAC-R-773
Additional FLUKA references can be added, provided they are
relevant for the FLUKA version under consideration.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!! DOWNLOAD/USE OF THE FLUKA SOFTWARE IMPLIES FULL !!!!
!!!! ACCEPTANCE AND COMPLIANCE WITH THE LICENSE !!!!
!!!! CONDITIONS !!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Note: The Nuclear Energy Agency Data Bank is an authorized
distributor of the code
1 ****************************************************************************************************
FLUKA2008 Version 3d.1 Nov-10 by A. Ferrari DATE: 1/10/11 TIME: 11: 2:31
****************************************************************************************************
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
***** Next control card ***** TITLE 0.000 0.000 0.000 0.000 0.000 0.000
Charged proton fluence inside and around a proton-irradiated Cu target
***** Next control card ***** GLOBAL 1000. 0.000 0.000 0.000 1.000 0.000
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- Cu target ----------------*
*---------------- External Black Hole ----------------*
*---------------- Vacuum ----------------*
*---------------- Vacuum ----------------*
*---------------- Vacuum ----------------*
*---------------- Vacuum ----------------*
*---------------- Vacuum ----------------*
*---------------- Vacuum ----------------*
*---------------- Vacuum ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- e+e- and gamma production threshold set at 10 MeV ----------------*
*---------------- EMFCUT -0.010 0.010 1.0 BERYLLIU PROD-CUT ----------------*
*---------------- score in each region energy deposition and stars produced by primaries ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- Boundary crossing current in the middle of the target (linear intervals, one-w ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- Boundary crossing current in the middle of the target (linear intervals, one-w ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- Boundary crossing current in the middle of the target (linear intervals, one-w ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- Boundary crossing current in the middle of the target (linear intervals, one-w ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- Boundary crossing current in the middle of the target (linear intervals, one-w ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- Boundary crossing current in the middle of the target (linear intervals, one-w ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
*---------------- ...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ----------------*
***** Next control card ***** BEAM -0.2000 0.000 0.000 0.000 0.000 0.000 PROTON
**** Density scaling factors start at location 1 and end at 4000 (I*4 addr.) ****
***** Next control card ***** OPEN 60.00 0.000 0.000 0.000 0.000 0.000 OLD
File to be opened: CS1rev.txt
*$ CREATE SOURCE.FOR
*COPY SOURCE
*
*=== source ===========================================================*
*
SUBROUTINE SOURCE ( NOMORE )
INCLUDE '(DBLPRC)'
INCLUDE '(DIMPAR)'
INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
* *
* Copyright (C) 1990-2009 by Alfredo Ferrari & Paola Sala *
* All Rights Reserved. *
* *
* *
* New source for FLUKA9x-FLUKA20xy: *
* *
* Created on 07 january 1990 by Alfredo Ferrari & Paola Sala *
* Infn - Milan *
* *
* Last change on 08-feb-09 by Alfredo Ferrari *
* *
* This is just an example of a possible user written source routine. *
* note that the beam card still has some meaning - in the scoring the *
* maximum momentum used in deciding the binning is taken from the *
* beam momentum. Other beam card parameters are obsolete. *
* *
* Output variables: *
* *
* Nomore = if > 0 the run will be terminated *
* *
*----------------------------------------------------------------------*
*
INCLUDE '(BEAMCM)'
INCLUDE '(FHEAVY)'
INCLUDE '(FLKSTK)'
INCLUDE '(IOIOCM)'
INCLUDE '(LTCLCM)'
INCLUDE '(PAPROP)'
INCLUDE '(SOURCM)'
INCLUDE '(SUMCOU)'
*
LOGICAL LFIRST
*
SAVE LFIRST
DATA LFIRST / .TRUE. /
*======================================================================*
* *
* BASIC VERSION *
* *
*======================================================================*
NOMORE = 0
* +-------------------------------------------------------------------*
* | First call initializations:
IF ( LFIRST ) THEN
* | *** The following 3 cards are mandatory ***
TKESUM = ZERZER
LFIRST = .FALSE.
LUSSRC = .TRUE.
* | *** User initialization ***
* open(60, FILE='/publicfs/csns/home/jinght/pro-dis1/CS1rev.txt',
* STATUS='OLD', FORM='FORMATTED')
END IF
* |
* +-------------------------------------------------------------------*
* Push one source particle to the stack. Note that you could as well
* push many but this way we reserve a maximum amount of space in the
* stack for the secondaries to be generated
* Npflka is the stack counter: of course any time source is called it
* must be =0
NPFLKA = NPFLKA + 1
* Wt is the weight of the particle
WTFLK (NPFLKA) = ONEONE
WEIPRI = WEIPRI + WTFLK (NPFLKA)
* Particle type (1=proton.....). Ijbeam is the type set by the BEAM
* card
* +-------------------------------------------------------------------*
* | (Radioactive) isotope:
IF ( IJBEAM .EQ. -2 .AND. LRDBEA ) THEN
IARES = IPROA
IZRES = IPROZ
IISRES = IPROM
CALL STISBM ( IARES, IZRES, IISRES )
IJHION = IPROZ * 1000 + IPROA
IJHION = IJHION * 100 + KXHEAV
IONID = IJHION
CALL DCDION ( IONID )
CALL SETION ( IONID )
* |
* +-------------------------------------------------------------------*
* | Heavy ion:
ELSE IF ( IJBEAM .EQ. -2 ) THEN
IJHION = IPROZ * 1000 + IPROA
IJHION = IJHION * 100 + KXHEAV
IONID = IJHION
CALL DCDION ( IONID )
CALL SETION ( IONID )
ILOFLK (NPFLKA) = IJHION
* | Flag this is prompt radiation
LRADDC (NPFLKA) = .FALSE.
* | Group number for "low" energy neutrons, set to 0 anyway
IGROUP (NPFLKA) = 0
* |
* +-------------------------------------------------------------------*
* | Normal hadron:
ELSE
IONID = IJBEAM
ILOFLK (NPFLKA) = IJBEAM
* | Flag this is prompt radiation
LRADDC (NPFLKA) = .FALSE.
* | Group number for "low" energy neutrons, set to 0 anyway
IGROUP (NPFLKA) = 0
END IF
* |
* +-------------------------------------------------------------------*
* From this point .....
* Particle generation (1 for primaries)
LOFLK (NPFLKA) = 1
* User dependent flag:
LOUSE (NPFLKA) = 0
* User dependent spare variables:
DO 100 ISPR = 1, MKBMX1
SPAREK (ISPR,NPFLKA) = ZERZER
100 CONTINUE
* User dependent spare flags:
DO 200 ISPR = 1, MKBMX2
ISPARK (ISPR,NPFLKA) = 0
200 CONTINUE
* Save the track number of the stack particle:
ISPARK (MKBMX2,NPFLKA) = NPFLKA
NPARMA = NPARMA + 1
NUMPAR (NPFLKA) = NPARMA
NEVENT (NPFLKA) = 0
DFNEAR (NPFLKA) = +ZERZER
* ... to this point: don't change anything
* Particle age (s)
AGESTK (NPFLKA) = +ZERZER
AKNSHR (NPFLKA) = -TWOTWO
* Kinetic energy of the particle (GeV)
TKEFLK (NPFLKA) = 0.1
* Particle momentum
* PMOFLK (NPFLKA) = PBEAM
PMOFLK (NPFLKA) = SQRT ( TKEFLK (NPFLKA) * ( TKEFLK (NPFLKA)
& + TWOTWO * AM (IONID) ) )
Read(60,*) X, XP, Y, YP, Z
* Cosines (tx,ty,tz)
* TXFLK (NPFLKA) = XP / SQRT (XP * XP +YP * YP+1.0)
* TYFLK (NPFLKA) = YP / SQRT (XP * XP +YP * YP+1.0)
* TZFLK (NPFLKA) = 1.0
* TZFLK (NPFLKA) = SQRT ( ONEONE - TXFLK (NPFLKA)**2
* & - TYFLK (NPFLKA)**2 )
TXFLK (NPFLKA) = 0.0
TYFLK (NPFLKA) = 0.0
TZFLK (NPFLKA) = 1.0
* TZFLK (NPFLKA) = SQRT ( ONEONE - TXFLK (NPFLKA)**2
* & - TYFLK (NPFLKA)**2 )
* Polarization cosines:
TXPOL (NPFLKA) = -TWOTWO
TYPOL (NPFLKA) = +ZERZER
TZPOL (NPFLKA) = +ZERZER
* Particle coordinates
XFLK (NPFLKA) = X / 10.0
YFLK (NPFLKA) = Y / 10.0
ZFLK (NPFLKA) = Z / 10.0
Write(*,*) XFLK (NPFLKA), YFLK (NPFLKA), ZFLK (NPFLKA)
* Calculate the total kinetic energy of the primaries: don't change
IF ( ILOFLK (NPFLKA) .EQ. -2 .OR. ILOFLK (NPFLKA) .GT. 100000 )
& THEN
TKESUM = TKESUM + TKEFLK (NPFLKA) * WTFLK (NPFLKA)
ELSE IF ( ILOFLK (NPFLKA) .NE. 0 ) THEN
TKESUM = TKESUM + ( TKEFLK (NPFLKA) + AMDISC (ILOFLK(NPFLKA)) )
& * WTFLK (NPFLKA)
ELSE
TKESUM = TKESUM + TKEFLK (NPFLKA) * WTFLK (NPFLKA)
END IF
RADDLY (NPFLKA) = ZERZER
* Here we ask for the region number of the hitting point.
* NREG (NPFLKA) = ...
* The following line makes the starting region search much more
* robust if particles are starting very close to a boundary:
CALL GEOCRS ( TXFLK (NPFLKA), TYFLK (NPFLKA), TZFLK (NPFLKA) )
CALL GEOREG ( XFLK (NPFLKA), YFLK (NPFLKA), ZFLK (NPFLKA),
& NRGFLK(NPFLKA), IDISC )
* Do not change these cards:
CALL GEOHSM ( NHSPNT (NPFLKA), 1, -11, MLATTC )
NLATTC (NPFLKA) = MLATTC
CMPATH (NPFLKA) = ZERZER
CALL SOEVSV
RETURN
*=== End of subroutine Source =========================================*
END
Received on Mon Jan 10 2011 - 09:45:25 CET
This archive was generated by hypermail 2.2.0 : Mon Jan 10 2011 - 09:45:32 CET