can't using OPEN card

From: Hantao Jing <jinght_at_mail.ihep.ac.cn>
Date: Mon, 10 Jan 2011 11:21:44 +0800

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