IAP GITLAB

Commit 06c0246b authored by Tanguy Pierog's avatar Tanguy Pierog

update SIbyll to version 2.3c and DPMJET-III to version 2017-1


git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@6176 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent eded0c1c
......@@ -12,7 +12,7 @@ OPTION (__PYTHIA__ "Build with model" OFF)
OPTION (__HIJING__ "Build with model" OFF)
OPTION (__SIBYLL__ "Build with model" ON)
OPTION (__PHOJET__ "Build with model" OFF)
OPTION (__DPMJET__ "Build with model" OFF)
OPTION (__DPMJET__ "Build with model" ON)
OPTION (__QGSJETII03__ "Build with model" OFF)
OPTION (__QGSJETII04__ "Build with model" ON)
######################################ONLY EDIT THIS######################################
......@@ -139,9 +139,17 @@ FILE(READ ${PROJECT_SOURCE_DIR}/src/hijing/hipyset1.35.f-HEPMC-TEMPLATE template
STRING( REGEX REPLACE "HEPEVT_SIZE_REPLACE" "${Replace_String}" template12 "${template11}")
FILE(WRITE ${PROJECT_SOURCE_DIR}/src/hijing/hipyset1.35.f "${template12}")
FILE(READ ${PROJECT_SOURCE_DIR}/src/dpmjet/3.0-6/pythia6115dpm3v1.f-HEPMCTEMPLATE template13)
FILE(READ ${PROJECT_SOURCE_DIR}/src/dpmjet/3.2017-1/pythia-6427_cors.f-HEPMCTEMPLATE template13)
STRING( REGEX REPLACE "HEPEVT_SIZE_REPLACE" "${Replace_String}" template14 "${template13}")
FILE(WRITE ${PROJECT_SOURCE_DIR}/src/dpmjet/3.0-6/pythia6115dpm3v1.f "${template14}")
FILE(WRITE ${PROJECT_SOURCE_DIR}/src/dpmjet/3.2017-1/pythia-6427_cors.f "${template14}")
FILE(READ ${PROJECT_SOURCE_DIR}/src/dpmjet/3.2017-1/phojet.f-HEPMCTEMPLATE template15)
STRING( REGEX REPLACE "HEPEVT_SIZE_REPLACE" "${Replace_String}" template16 "${template15}")
FILE(WRITE ${PROJECT_SOURCE_DIR}/src/dpmjet/3.2017-1/phojet.f "${template16}")
FILE(READ ${PROJECT_SOURCE_DIR}/src/dpmjet/3.2017-1/dpmjet.f-HEPMCTEMPLATE template17)
STRING( REGEX REPLACE "HEPEVT_SIZE_REPLACE" "${Replace_String}" template18 "${template17}")
FILE(WRITE ${PROJECT_SOURCE_DIR}/src/dpmjet/3.2017-1/dpmjet.f "${template18}")
......@@ -213,9 +221,11 @@ set_property(SOURCE src/models.F PROPERTY COMPILE_FLAGS "${HELPER} -D __PHOJET__
ENDIF (__PHOJET__)
IF (__DPMJET__)
LIST(APPEND TABS dpmjet.dat)
LIST(APPEND TABS phojet_fitpar.dat)
ADD_SUBDIRECTORY ("${PROJECT_SOURCE_DIR}/src/dpmjet/3.0-6")
LIST(APPEND TABS dpmjpar.dat)
LIST(APPEND TABS dpmCT14LL.pds)
LIST(APPEND TABS glaubint.glb)
LIST(APPEND TABS glaubtar.glb)
ADD_SUBDIRECTORY ("${PROJECT_SOURCE_DIR}/src/dpmjet/3.2017-1")
SET(STATIC_LIBS ${STATIC_LIBS} Dpmjet)
get_property(HELPER SOURCE src/models.F PROPERTY COMPILE_FLAGS)
set_property(SOURCE src/models.F PROPERTY COMPILE_FLAGS "${HELPER} -D __DPMJET__")
......
......@@ -100,7 +100,7 @@ CRMCoptions::ParseOptions(int argc, char** argv)
<< ", 5=Hijing_1.38"
#endif
#ifdef __SIBYLL__
<< ", 6=Sibyll_2.3"
<< ", 6=Sibyll_2.3c"
#endif
#ifdef __QGSJETII04__
<< ", 7=QGSJETII-04"
......@@ -112,7 +112,7 @@ CRMCoptions::ParseOptions(int argc, char** argv)
<< ", 11=QGSJETII-03"
#endif
#ifdef __DPMJET__
<< ", 12=DPMJet 3.0-6"
<< ", 12=DPMJet-III_2017.1"
#endif
<< "]";
......@@ -385,11 +385,11 @@ CRMCoptions::DumpConfig() const
case 3: cout << " (Gheisha)\n "; break;
case 4: cout << " (Pythia)\n "; break;
case 5: cout << " (Hijing)\n "; break;
case 6: cout << " (Sibyll 2.3)\n "; break;
case 6: cout << " (Sibyll 2.3c)\n "; break;
case 7: cout << " (QGSJETII-04) \n"; break;
case 8: cout << " (Phojet) \n"; break;
case 11: cout << " (QGSJETII-03) \n"; break;
case 12: cout << " (DPMJet 3.0-6) \n"; break;
case 12: cout << " (DPMJet-III 2017.1) \n"; break;
default:
cerr << " (unknown model) \n";
exit(1);
......
......@@ -234,9 +234,9 @@ c-----------------------------------------------------------------------
!which is calculated in crmc_f.
model=max(1,iModel) ! epos = 0,1 / qgsjet01 = 2 / gheisha = 3
! / pythia = 4 / hijing = 5 / sibyll 2.1
! / pythia = 4 / hijing = 5 / sibyll 2.3c
! = 6 / qgsjetII.04 = 7 / phojet = 8
! qgsjetII.03 = 11 / dpmjet = 12
! qgsjetII.03 = 11 / dpmjetIII = 12
if(iModel.eq.0)then
call LHCparameters !LHC tune for EPOS
isigma=1 !use analytic cross section for nuclear xs
......
......@@ -33,8 +33,7 @@ nodecay -19 !uncomment not to decay antialpha
MinDecayLength 1. !minimum c.Tau to define stable particles (cm)
fdpmjetpho dat @CRMCROOT@/tabs/phojet_fitpar.dat
fdpmjet dat @CRMCROOT@/tabs/dpmjet.dat
fdpmjet path @CRMCROOT@/tabs/
fqgsjet dat @CRMCROOT@/tabs/qgsjet.dat
fqgsjet ncs @CRMCROOT@/tabs/qgsjet.ncs
fqgsjetII03 dat @CRMCROOT@/tabs/qgsdat-II-03.lzma
......
INCLUDE_DIRECTORIES ("${PROJECT_SOURCE_DIR}/src/dpmjet/3.2017-1")
FILE(GLOB files *.f)
set_source_files_properties( dpmjet.f dpmjet_epos.f phojet.f pythia-6427_cors.f build.f ../../crmc-aaa.f ../../models.F PROPERTIES COMPILE_FLAGS "-D __DPMJET__")
IF (__CRMCSTATIC__)
add_library(Dpmjet STATIC dpmjet.f dpmjet_epos.f phojet.f pythia-6427_cors.f build.f ../../crmc-aaa.f ../../models.F)
ELSE (__CRMCSTATIC__)
add_library(Dpmjet SHARED dpmjet.f dpmjet_epos.f phojet.f pythia-6427_cors.f build.f ../../crmc-aaa.f ../../models.F)
target_link_libraries(Dpmjet CrmcBasic)
ENDIF (__CRMCSTATIC__)
INSTALL (TARGETS Dpmjet
RUNTIME DESTINATION bin
LIBRARY DESTINATION lib
ARCHIVE DESTINATION lib/static
)
DPMJET3 license, 5 Nov 2008
Copyright statement and license conditions
Copyright: European Organization for Nuclear Research (CERN),
Forschungszentrum Karlsruhe and Universitaet Siegen (the DPMJET-III
Copyright Holders) 1995-2008.
All rights not expressly granted under this license are reserved.
This software results from work performed by Ralph Engel, Johannes Ranft
and Stefan Roesler (the Authors).
The Authors are the exclusive source of distribution of the code, bug
fixes and documentation of the DPMJET-III software. Each official
version of DPMJET-III is identified by a numbering scheme specifying
major and minor releases.
The Authors are able to grant any of the permissions noted in this
License Agreement as requiring a specific consent. Any such consent
may only be granted in writing.
DPMJET-III contains PHOJET and PYTHIA Version 6.1 as integral parts.
The license conditions given below apply also to PHOJET and PYTHIA
Version 6.1. Torbjorn Sjostrand (Lund University) is the copright holder
of the PYTHIA subpackage.
1. Installation, use, reproduction, display of the DPMJET-III
software in source and binary forms, are permitted free of charge on a
non-exclusive basis for internal scientific, non-commercial and
non-weapon-related use by non-profit organizations only. Any exercise of
these rights is subject to the following conditions:
Insertion of the DPMJET-III code, in whole or in part, into other
codes, or its translation into any other computer language are
possible only after obtaining prior written permission. Modifications
of the DPMJET-III code are permitted for use by the licensee only,
unless authorized in written.
2. DPMJET-III is non-transferable, non-sub-licensable and may
not be distributed in any way, without express written consent,
whether in original or modified form, Site-wise or collaboration-wise
conditions can be agreed with the Authors.
3. Notwithstanding the above, the licensee may modify and
sub-license DPMJET-III User Routines to third parties in so far
as their purpose is limited to the adaptation of input and output
interfaces of DPMJET-III and their modification does not circumvent,
replace, add to or modify any of the functions of DPMJET-III,
or extract specific isolated results from any of the individual
internal physics models embedded within DPMJET-III.
4. The licensee shall forthwith license all its modifications of
DPMJET-III to the DPMJET-III Authors, at no cost and with no
limitation of use. The licensee acknowledges that the DPMJET-III
Authors may insert such modifications into future releases of
DPMJET-III, subject to appropriate acknowledgment of
the licensees contribution.
5. Any publication by the licensee with respect to DPMJET-III
or results obtained from it shall explicitly acknowledge DPMJET-III,
PHOJET and PYTHIA by quoting its set of references and the DPMJET-III
Authors. The licensee shall not without prior written permission
publish documents or results based on a modified form of DPMJET-III,
unless the modification exclusively concerns User Routines for the
adaptation of its input and output interfaces which comply with the
same restrictions, as defined in section 3) as those which apply
to sub-licensing. Any publication of documents or results shall be
based only on official DPMJET-III versions as obtained from the
Authors. Publication here implies any legal publication to any third
party, whether verbal, electronic, visual, in writing or otherwise.
6. The licensee shall ensure that the DPMJET-III, PHOJET and PYTHIA
references, copyright statement and license conditions are not
altered or removed from DPMJET-III. Any integration of
any portion of DPMJET-III in modified or in
unmodified form, into any other software package must preserve the
internal copyright notices in those portions of DPMJET-III
that have been employed, and must reproduce such notices
within any additional global notices included along or embedded
within the software into which DPMJET-III has been integrated.
Any portion of DPMJET-III so integrated, whether modified or
unmodified shall continue to be subject to these license conditions.
7. Versions or parts of the DPMJET-III source code,
entrusted to individuals or groups prior to the formulation of this
license are subject to this License Agreement in addition to any
other restrictions on the scope of use that may have been part of
the initial use grant.
8. Commercial use of DPMJET-III, outside the
scope of this license, must be negotiated with the Authors.
9. DISCLAIMER
THIS SOFTWARE IS PROVIDED BY THE DPMJET-III 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 DPMJET-III
COPYRIGHT HOLDERS AND THE AUTHORS MAKE NO REPRESENTATION THAT THE
SOFTWARE AND MODIFICATIONS THEREOF, WILL NOT INFRINGE ANY PATENT,
COPYRIGHT, TRADE SECRET OR OTHER PROPRIETARY RIGHT.
10. LIMITATION OF LIABILITY
THE DPMJET-III COPYRIGHT HOLDERS AND THE AUTHORS SHALL HAVE NO
LIABILITY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, CONSEQUENTIAL,
EXEMPLARY, OR PUNITIVE 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 THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
Users should address any request of consent to one of the
DPMJET-III Authors:
Ralph Engel Ralph.Engel@ik.fzk.de
Johannes Ranft Johannes.Ranft@cern.ch
Stefan Roesler Stefan.Roesler@cern.ch
DPMJET version 3.2017.1 (Apr. 2017)
________________________________
This directory contains the following files:
dpmjet.f DPMJET-III code version 2017.1 without interface to FLUKA
phojet.f PHOJET code version 1.20
pythia-6427_cors.f PYTHIA code version 6.427
build.f complementary code
dpmCT14LL.pds, glaubint.glb , glaubtar.glb
dpmjpar.dat data-files read by the program during initialization
License2.txt license conditions
Please note:
All parts of the program code should be used only in the framework of
DPMJET. Any separate use of parts requires the agreement of the authors.
Please send suggestions / bug reports /questions to
anatoli.fedynitch@desy.de
The use of the software is subject to the enclosed license.
DOUBLE PRECISION FUNCTION EXMSAZ(AIT,AITZ,FLAG,IZDUM)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
LOGICAL FLAG
EXMSAZ = 0.D0
END
SUBROUTINE EVEVAP(WE)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
END
SUBROUTINE EXPLOD ( NPEXPL, AMEXPL, ETOTEX, ETEXPL, PXEXPL,
& PYEXPL, PZEXPL )
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
END
SUBROUTINE FLRNOC (ISDRN1,ISDRN2,ISEED1,ISEED2)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
END
SUBROUTINE GLAUBR(PPROJ,UMO,IBPROJ,IT,IP,info,Barr)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
DOUBLE PRECISION info(4), Barr(200)
END
DOUBLE PRECISION FUNCTION PFRMAV(I)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
PFRMAV = 1.D0
RETURN
END
INTEGER FUNCTION MCIHAD(IDPDG)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
MCIHAD = IDT_ICIHAD(IDPDG)
RETURN
END
INTEGER FUNCTION MPDGHA(I)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
MPDGHA = IDT_IPDGHA(I)
RETURN
END
DOUBLE PRECISION FUNCTION JLL_SAMDSDT()
IMPLICIT NONE
SAVE
JLL_SAMDSDT = 0.D0
RETURN
END
SUBROUTINE JLL_SET
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
RETURN
END
*COPY OAUXFI
*
*=== Oauxfi ===========================================================*
*
SUBROUTINE OAUXFI ( FILE, IONUMB, CHSTTS, IERR )
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
SAVE
PARAMETER ( KALGNM = 2 )
PARAMETER ( KALCH8 = 1 )
PARAMETER ( I2ALGN = 2 )
PARAMETER ( ANGLGB = 5.0D-16 )
PARAMETER ( ANGLSQ = 2.5D-31 )
PARAMETER ( AXCSSV = 0.2D+16 )
PARAMETER ( ANDRFL = 1.0D-38 )
PARAMETER ( AVRFLW = 1.0D+38 )
PARAMETER ( AINFNT = 1.0D+30 )
PARAMETER ( AZRZRZ = 1.0D-30 )
PARAMETER ( EINFNT = +69.07755278982137 D+00 )
PARAMETER ( EZRZRZ = -69.07755278982137 D+00 )
PARAMETER ( EXCSSV = +35.23192357547063 D+00 )
PARAMETER ( ENGLGB = -35.23192357547063 D+00 )
PARAMETER ( ONEMNS = 0.999999999999999 D+00 )
PARAMETER ( ONEPLS = 1.000000000000001 D+00 )
PARAMETER ( CSNNRM = 2.0D-15 )
PARAMETER ( DMXTRN = 1.0D+08 )
PARAMETER ( RHFLMN = 1.0D-10 )
REAL ZERSNG
PARAMETER ( ZERSNG = 0.E+00 )
PARAMETER ( ZERZER = 0.D+00 )
PARAMETER ( ONEONE = 1.D+00 )
PARAMETER ( TWOTWO = 2.D+00 )
PARAMETER ( THRTHR = 3.D+00 )
PARAMETER ( FOUFOU = 4.D+00 )
PARAMETER ( FIVFIV = 5.D+00 )
PARAMETER ( SIXSIX = 6.D+00 )
PARAMETER ( SEVSEV = 7.D+00 )
PARAMETER ( EIGEIG = 8.D+00 )
PARAMETER ( ANINEN = 9.D+00 )
PARAMETER ( TENTEN = 10.D+00 )
PARAMETER ( ELEVEN = 11.D+00 )
PARAMETER ( TWELVE = 12.D+00 )
PARAMETER ( FIFTEN = 15.D+00 )
PARAMETER ( SIXTEN = 16.D+00 )
PARAMETER ( HLFHLF = 0.5D+00 )
PARAMETER ( ONETHI = ONEONE / THRTHR )
PARAMETER ( ONEFOU = ONEONE / FOUFOU )
PARAMETER ( ONEFIV = ONEONE / FIVFIV )
PARAMETER ( ONESIX = ONEONE / SIXSIX )
PARAMETER ( ONESEV = ONEONE / SEVSEV )
PARAMETER ( ONEEIG = ONEONE / EIGEIG )
PARAMETER ( TWOTHI = TWOTWO / THRTHR )
PARAMETER ( THRFOU = THRTHR / FOUFOU )
PARAMETER ( THRTWO = THRTHR / TWOTWO )
PARAMETER ( FOUTHR = FOUFOU / THRTHR )
PARAMETER ( PIPIPI = 3.141592653589793238462643383279D+00 )
PARAMETER ( TWOPIP = 6.283185307179586476925286766559D+00 )
PARAMETER ( PIP5O2 = 7.853981633974483096156608458199D+00 )
PARAMETER ( PIPISQ = 9.869604401089358618834490999876D+00 )
PARAMETER ( PIHALF = 1.570796326794896619231321691640D+00 )
PARAMETER ( R3TOVL = FOUFOU * PIPIPI / THRTHR )
PARAMETER ( ERFA00 = 0.886226925452758013649083741671D+00 )
PARAMETER ( SQRTPI = 1.772453850905516027298167483341D+00 )
PARAMETER ( SQTWPI = 2.506628274631000502415765284811D+00 )
PARAMETER ( EULERO = 0.577215664901532860606512 D+00 )
PARAMETER ( EULEXP = 1.781072417990197985236504 D+00 )
PARAMETER ( EULLOG =-0.5495393129816448223376619 D+00 )
PARAMETER ( E1M2EU = 0.8569023337737540831433017 D+00 )
PARAMETER ( ENEPER = 2.718281828459045235360287471353D+00 )
PARAMETER ( SQRENT = 1.648721270700128146848650787814D+00 )
PARAMETER ( SQRTWO = 1.414213562373095048801688724210D+00 )
PARAMETER ( SQRTHR = 1.732050807568877293527446341506D+00 )
PARAMETER ( SQRFIV = 2.236067977499789696409173668731D+00 )
PARAMETER ( SQRSIX = 2.449489742783178098197284074706D+00 )
PARAMETER ( SQRSEV = 2.645751311064590590501615753639D+00 )
PARAMETER ( SQRT12 = 3.464101615137754587054892683012D+00 )
PARAMETER ( S2FWHM = 2.354820045030949382023138652919D+00 )
PARAMETER ( TWOLOG = 0.693147180559945309417232121458D+00 )
PARAMETER ( TWO2O3 = 1.587401051968199474751705639272D+00 )
PARAMETER ( TENLOG = 2.302585092994045684017991454684D+00 )
PARAMETER ( ATNFOU = 1.3258176636680326D+00 )
PARAMETER ( ATNSIX = 1.4056476493802699D+00 )
PARAMETER ( CLIGHT = 2.99792458 D+10 )
PARAMETER ( AVOGAD = 6.0221367 D+23 )
PARAMETER ( BOLTZM = 1.380658 D-23 )
PARAMETER ( AMELGR = 9.1093897 D-28 )
PARAMETER ( PLCKBR = 1.05457266 D-27 )
PARAMETER ( ELCCGS = 4.8032068 D-10 )
PARAMETER ( ELCMKS = 1.60217733 D-19 )
PARAMETER ( AMUGRM = 1.6605402 D-24 )
PARAMETER ( AMMUMU = 0.113428913 D+00 )
PARAMETER ( AMPRMU = 1.007276470 D+00 )
PARAMETER ( AMNEMU = 1.008664904 D+00 )
PARAMETER ( EPSIL0 = 8.854187817 D-12 )
PARAMETER ( ALPFSC = 7.2973530791728595 D-03 )
PARAMETER ( FSCTO2 = 5.3251361962113614 D-05 )
PARAMETER ( FSCTO3 = 3.8859399018437826 D-07 )
PARAMETER ( FSCTO4 = 2.8357075508200407 D-09 )
PARAMETER ( PLABRC = 0.197327053 D+00 )
PARAMETER ( AMELCT = 0.51099906 D-03 )
PARAMETER ( AMUGEV = 0.93149432 D+00 )
PARAMETER ( AMMUON = 0.105658389 D+00 )
PARAMETER ( AMPRTN = 0.93827231 D+00 )
PARAMETER ( AMNTRN = 0.93956563 D+00 )
PARAMETER ( AMDEUT = 1.87561339 D+00 )
PARAMETER ( AMALPH = 3.72738025692891 D+00 )
PARAMETER ( COUGFM = ELCCGS * ELCCGS / ELCMKS * 1.D-07 * 1.D+13
& * 1.D-09 )
PARAMETER ( RCLSEL = 2.8179409183694872 D-13 )
PARAMETER ( ALAMB0 = TWOTWO * PIPIPI * RCLSEL / ALPFSC )
PARAMETER ( BLTZMN = 8.617385 D-14 )
PARAMETER ( A0BOHR = PLABRC / ALPFSC / AMELCT )
PARAMETER ( GFOHB3 = 1.16639 D-05 )
PARAMETER ( GFERMI = GFOHB3 * PLABRC * PLABRC * PLABRC )
PARAMETER ( SIN2TW = 0.2319 D+00 )
PARAMETER ( PRMGNM = 2.792847386 D+00 )
PARAMETER ( ANMGNM =-1.91304275 D+00 )
PARAMETER ( REARTH = 6.378140 D+08 )
PARAMETER ( AUASTU = 1.4959787066 D+13 )
PARAMETER ( GEVMEV = 1.0 D+03 )
PARAMETER ( EV2GEV = 1.0 D-09 )
PARAMETER ( GEV2EV = 1.0 D+09 )
PARAMETER ( EMVGEV = 1.0 D-03 )
PARAMETER ( CMQ2MB = 1.0 D+27 )
PARAMETER ( FMB2BA = 1.0 D-03 )
PARAMETER ( BAR2MB = 1.0 D+03 )
PARAMETER ( FMB2FS = 1.0 D-01 )
PARAMETER ( FMS2MB = 1.0 D+01 )
PARAMETER ( BA2CMQ = 1.0 D-24 )
PARAMETER ( CMQ2BA = 1.0 D+24 )
PARAMETER ( ALGVMV = 6.90775527898214 D+00 )
PARAMETER ( RADDEG = 180.D+00 / PIPIPI )
PARAMETER ( DEGRAD = PIPIPI / 180.D+00 )
PARAMETER ( GEVOMG = CLIGHT * 1.D+13 / PLABRC )
PARAMETER ( S0THMS = EIGEIG / THRTHR * PIPIPI * RCLSEL * RCLSEL
& * CMQ2MB )
PARAMETER ( FERTHO = 14.33 D-09 )
PARAMETER ( EXPEBN = 2.39 D+00 )
PARAMETER ( BEXC12 = FERTHO * 72.40715579499394D+00 )
PARAMETER ( AMUNMU = HLFHLF * AMELCT - BEXC12 / 12.D+00 )
PARAMETER ( AMUC12 = AMUGEV - AMUNMU )
PARAMETER ( AMEMEV = GEVMEV * AMELCT )
PARAMETER ( T12INF = 1.D+30 )
PARAMETER ( T12ZER = 1.D-15 )
LOGICAL LFLUKA, LGBIAS, LGBANA, LFLGEO, LOFLTS, LUSRIN,
& LUSRGL, LNMGEO, LNMINP, LFRFMT, LDMPCR
LOGICAL LFDRTR
COMMON / GLOBAL / LFLUKA, LGBIAS, LGBANA, LFLGEO, LOFLTS, LUSRIN,
& LUSRGL, LNMGEO, LNMINP, LFRFMT, LDMPCR,
& LFDRTR,
& KFLGEO, KFLDNR
COMMON / GLOBCH / CRVRFL
CHARACTER*8 CRVRFL
SAVE / GLOBAL /, / GLOBCH /
PARAMETER ( MXXRGN =20000 )
PARAMETER ( MXXMDF = 710 )
PARAMETER ( MXXMDE = 702 )
PARAMETER ( MFSTCK =70000 )
PARAMETER ( MESTCK = 100 )
PARAMETER ( MOSTCK = 2000 )
PARAMETER ( MXPRSN = 100 )
PARAMETER ( MXPDPM = 800 )
PARAMETER ( MXPSCS =60000 )
PARAMETER ( MXFRAG = 20 )
PARAMETER ( MXGLWN = 300 )
PARAMETER ( MXOUTU = 50 )
PARAMETER ( MXKNWC = 13 )
PARAMETER ( MXESHL = 32 )
PARAMETER ( MXGNPR = 60 )
PARAMETER ( KXHEAV = 30 )
PARAMETER ( NALLWP = 64 )
PARAMETER ( NELEMX = 80 )
PARAMETER ( MPDPDX = 33 )
PARAMETER ( MXHTTR = 260 )
PARAMETER ( MXSEAX = 30 )
PARAMETER ( MXHTNC = MXSEAX + 1 )
PARAMETER ( ICOMAX = 2400 )
PARAMETER ( ICHMAX = ICOMAX + MXXMDF )
PARAMETER ( NSTBIS = 304 )
PARAMETER ( NQSTIS = 46 )
PARAMETER ( NTSTIS = NSTBIS + NQSTIS )
PARAMETER ( MXPABL = 120 )
PARAMETER ( IDMAXP = 450 )
PARAMETER ( IDMXDC = 2000 )
PARAMETER ( MXMCIN = 410 )
PARAMETER ( IHYPMX = 4 )
PARAMETER ( MKBMX1 = 11 )
PARAMETER ( MKBMX2 = 11 )
PARAMETER ( MXIRRD = 2500 )
PARAMETER ( MXTRDC = 1500 )
PARAMETER ( NKTL = 17 )
PARAMETER ( MXNBLN = 55000000 )
PARAMETER ( NBLNMX = MXNBLN )
PARAMETER ( LUNIN = 5 )
PARAMETER ( LUNOUT = 11 )
PARAMETER ( LUNERR = 15 )
PARAMETER ( LUNBER = 14 )
PARAMETER ( LUNECH = 8 )
PARAMETER ( LUNFLU = 13 )
PARAMETER ( LUNGEO = 16 )
PARAMETER ( LUNPMF = 12 )
PARAMETER ( LUNRAN = 2 )
PARAMETER ( LUNXSC = 9 )
PARAMETER ( LUNDET = 17 )
PARAMETER ( LUNRAY = 10 )
PARAMETER ( LUNRDB = 1 )
PARAMETER ( LUNRD2 = 18 )
PARAMETER ( LUNDPM = 19 )
PARAMETER ( LUNPGO = 7 )
PARAMETER ( LUNPGS = 4 )
PARAMETER ( LUNSCR = 3 )
*
*----------------------------------------------------------------------*
* *
* Copyright (C) 1997-2013 by Alfredo Ferrari & Paola Sala *
* All Rights Reserved. *
* *
* *
* Open AUXiliary FIle: *
* *
* Created on 30 January 1997 by Alfredo Ferrari & Paola Sala *
* INFN - Milan *
* *
* Last change on 03-Feb-13 by Alfredo Ferrari, INFN-Milan *
* *
* file = file name *
* ionumb = logical unit number *
* chstts = status word (optional, def. old) *
* ierr = error flag (output) *
* *
*----------------------------------------------------------------------*
*
CHARACTER COMPTR*50 , INPFIL*200, PWDDIR*200, HFLDIR*200,
& HOMDIR*200, HOSTNM*200, USRFLK*200, GRPFLK*200
COMMON / COMPUT / CPUSPE, CPUJOB, KOMPUT, KPWDIR, KFLDIR, KHMDIR,
& MXFTNU
COMMON / CHCMPT / COMPTR, INPFIL, PWDDIR, HFLDIR, HOMDIR, HOSTNM,
& USRFLK, GRPFLK
SAVE / COMPUT /
SAVE / CHCMPT /
*
CHARACTER FILE*(*), CHSTTS*(*), CARD*132, FSTATS*10, FFORM*12,
& FACCSS*10
LOGICAL LSCRAT, LFABRT
*
LFABRT = IERR .NE. -1000000
LSCRAT = .FALSE.
IERR = 0
* +-------------------------------------------------------------------*
* | Status New:
IF ( INDEX ( CHSTTS, 'NEW' ) .GT. 0 .OR.
& INDEX ( CHSTTS, 'new' ) .GT. 0 ) THEN
FSTATS = 'NEW'
* |
* +-------------------------------------------------------------------*
* | Status Unknown:
ELSE IF ( INDEX ( CHSTTS, 'UNKNOWN' ) .GT. 0 .OR.
& INDEX ( CHSTTS, 'unknown' ) .GT. 0 ) THEN
FSTATS = 'UNKNOWN'
* |
* +-------------------------------------------------------------------*
* | Status Scratch:
ELSE IF ( INDEX ( CHSTTS, 'SCRATCH' ) .GT. 0 .OR.
& INDEX ( CHSTTS, 'scratch' ) .GT. 0 ) THEN