| 1 |
GEANT-CALOR Interface |
| 2 |
===================== |
| 3 |
C.Zeitnitz, T.A.Gabriel |
| 4 |
|
| 5 |
Report problems to : Christian Zeitnitz, University of Arizona |
| 6 |
e-mail : Christian.Zeitnitz@Uni-Mainz.de |
| 7 |
or Christian.Zeitnitz@cern.ch |
| 8 |
|
| 9 |
The interface consists of the following program parts: |
| 10 |
|
| 11 |
- NMTC (Nucleon-Meson-Transport-Code) used for nucleons up to 3.5 GeV and |
| 12 |
charged pions up to 2.5 GeV. |
| 13 |
- Above the NMTC limit a Scaling Model is used up to 10 GeV. |
| 14 |
- FLUKA takes over above 10GeV. All particle types not implemented in CALOR |
| 15 |
are given to FLUKA independent of the energy. |
| 16 |
- Low energetic neutrons (Ekin < 20 MeV) are transported by the MICAP neutron |
| 17 |
code. |
| 18 |
|
| 19 |
All electromagnetic interacting particles are transported by GEANT. |
| 20 |
|
| 21 |
To use GCALOR in GEANT the following subroutines have to be changed: |
| 22 |
|
| 23 |
SUBROUTINE GUPHAD |
| 24 |
C get interaction probability |
| 25 |
C CALL GPGHEI |
| 26 |
C USE CALOR INSTEAD OF GHEISHA |
| 27 |
CALL CALSIG |
| 28 |
RETURN |
| 29 |
|
| 30 |
SUBROUTINE GUHADR |
| 31 |
C inelastic hadronic interaction |
| 32 |
C CALL GHEISH |
| 33 |
C USE CALOR INSTEAD OF GHEISHA |
| 34 |
CALL GCALOR |
| 35 |
RETURN |
| 36 |
|
| 37 |
The interface is expecting the data files in the CERN_ROOT directory, if |
| 38 |
existing, otherwise in the current working directory. |
| 39 |
|
| 40 |
GCALOR has been tested on the following computers: |
| 41 |
AXP, VAX under VMS |
| 42 |
AXP, SGI, HP, SUN, IBM-R6000 under UNIX (AIX) |
| 43 |
IBM 3090 under MVS |
| 44 |
LINUX Suse 6.2 |
| 45 |
|
| 46 |
Files : |
| 47 |
GCALOR.CAR - CMZ file |
| 48 |
For ALL unix machines SELECT UNIX in CMZ |
| 49 |
PILOT file *calor |
| 50 |
GEANT 3.16 sequences are needed |
| 51 |
GCALOR_VAX.FOR - FORTRAN source for VAX |
| 52 |
GCALOR_UNIX.FOR - FORTRAN source for UNIX |
| 53 |
XSNEUT.DAT - Neutron cross-section file used by MICAP |
| 54 |
XSNEUT.DAT-GZ - same, but compressed with GZIP |
| 55 |
|
| 56 |
CHETC.DAT - Datafile used by HETC |
| 57 |
|
| 58 |
GCALOR.TAR |
| 59 |
GCALOR.TAR - tape archieve file. |
| 60 |
Contains all the above files, except xsneut.dat. |
| 61 |
|
| 62 |
GCALOR.TAR-GZ - compressed (GZIP) tape archieve file. |
| 63 |
Contains all the above files, except xsneut.dat. |
| 64 |
Use GUNZIP to uncompress this file. |
| 65 |
|
| 66 |
GCALOR.CONTENTS - content of TAR file |
| 67 |
|
| 68 |
|
| 69 |
================================== N E W S ==================================== |
| 70 |
Nov 30, 2005 C.Zeitnitz |
| 71 |
Bug in XSECN1 removed, which caused a crash reading certain x-section |
| 72 |
files. |
| 73 |
|
| 74 |
Sept 4, 2001 C.Zeitnitz |
| 75 |
Some more changes (array parameters in subroutine calls) changed to |
| 76 |
comply with g77. |
| 77 |
|
| 78 |
May 16, 2000 C.Zeitnitz |
| 79 |
Some calls with inconsistent types changed in order to be compatible |
| 80 |
with the gnu compiler g77. |
| 81 |
|
| 82 |
Nov 24, 1999 C.Zeitnitz |
| 83 |
Modification to XSECN2 to read in corrected secondary energy |
| 84 |
distribution in xsneut.dat (problem in preprocessing!) |
| 85 |
|
| 86 |
Feb 11, 1997 C.Zeitnitz |
| 87 |
Subroutine CALSIG: Bug in number of isotopes per mixture removed. |
| 88 |
|
| 89 |
Sep 27, 1996 C.Zeitnitz |
| 90 |
Subroutine MOXSEC modified in order to get correct size of bank MOX3. |
| 91 |
This caused sometimes problems when mixing the x-section. |
| 92 |
|
| 93 |
Aug 16, 1996 C.Zeitnitz |
| 94 |
x-section file updated. See manual for new isotope list! |
| 95 |
|
| 96 |
Aug 24, 1995 C.Zeitnitz |
| 97 |
MICAP routine Photon modified in order to generate low multiplicities |
| 98 |
differently. This ensures, that for example in a p(n,gamma)D reaction |
| 99 |
always a 2.2MeV gamma is generated |
| 100 |
|
| 101 |
Aug 18, 1995 C.Zeitnitz |
| 102 |
Bug in MOXSEC removed ( size of MOX3 banks sometimes too small). |
| 103 |
2 changes in the x-section file: |
| 104 |
- total cross section for Iodine was wrong and has been replaced by |
| 105 |
ENDF/B-VI |
| 106 |
- Some photon cross section tables did not start at 1.E-5 eV but at the |
| 107 |
threshold of the reaction, which lead to the effect, that the |
| 108 |
photon multiplicity for neutron energies below the threshold was |
| 109 |
not 0, but could get very big!! |
| 110 |
|
| 111 |
So, get the new GCALOR version 1.04/05 AND the modified x-section file |
| 112 |
XSNEUT.DAT |
| 113 |
CZ |
| 114 |
|
| 115 |
Feb 22, 1995 C.Zeitnitz |
| 116 |
Version 1.04/04 |
| 117 |
Bug in MICAP removed. Tritium now returned on the GEANT particle stack |
| 118 |
CZ |
| 119 |
|
| 120 |
Feb 20, 1995 C.Zeitnitz |
| 121 |
Version 1.04/03 |
| 122 |
Bug in TWOBOD, only a problem for Helium as target, removed and |
| 123 |
CHETC modified. |
| 124 |
CZ |
| 125 |
|
| 126 |
Feb 13,1995 C.Zeitnitz |
| 127 |
Version 1.04/02 |
| 128 |
Clash (at least for some compilers) between subroutine and common name |
| 129 |
MICFIL has been removed by renaming the common. |
| 130 |
CZ |
| 131 |
|
| 132 |
Feb 9, 1995 C.Zeitnitz |
| 133 |
Version 1.04/01 |
| 134 |
Due to technical problems it was necessary to change the method to |
| 135 |
provide the additional x-section file. There is now as separate routine: |
| 136 |
CALL MICFIL('usr$root:[zeitnitz]helium.dat') |
| 137 |
|
| 138 |
Feb 2, 1995 C.Zeitnitz |
| 139 |
Version 1.04/00 |
| 140 |
Modifications to MICAP in order to read in additional x-section files |
| 141 |
like HELIUM.DAT. The additional file has to be specified by a call to |
| 142 |
MICSET: CALL MICSET(0,10,'usr$root:[zeitnitz]helium.dat') |
| 143 |
This has to be done before GCALOR is called the first time ! |
| 144 |
|
| 145 |
Jan 20, 1995 C.Zeitnitz |
| 146 |
Version 1.03/08 |
| 147 |
Minor changes in MICAP and GCALOR concerning the mechanism stored in LMEC. |
| 148 |
|
| 149 |
Nov 24, 1994 C.Zeitnitz |
| 150 |
Version 1.03/07 |
| 151 |
Some minor changes in MICAP. Now the input files CHETC.DAT and XSNEUT.DAT |
| 152 |
are expected in the current working directory and only if not found the |
| 153 |
version in the CERN library is used. LMEC is now set correctly in GCALOR. |
| 154 |
LMEC(1)=12 and LMEC(2) contains the process which occured. In addition |
| 155 |
KCASE contains the name of the mechanism. |
| 156 |
|
| 157 |
Nov 4, 1994 C.Zeitnitz |
| 158 |
New neutron cross-section file with some more elements/isotopes. |
| 159 |
(zirconium, gadolinium, cerium, bismuth) |
| 160 |
Second line in XSNEUT.DAT should read: |
| 161 |
Wed Nov 2 13:53:35 1994 |
| 162 |
|
| 163 |
June 1, 1994 C.Zeitnitz |
| 164 |
Version 1.03/00. |
| 165 |
New neutron cross-section file generated from ENDF/B-VI. Contains now |
| 166 |
65 isotopes. Natural composition is automatically mixed, if data are |
| 167 |
available. For example Xenon data include 7 different isotopes. |
| 168 |
An exception from this rule is uranium, for which it makes no sense to |
| 169 |
a natural composition, since only depleted uranium is used in HEP. |
| 170 |
The second line of XSNEUT.DAT should read: |
| 171 |
Fri May 27 10:19:12 1994 |
| 172 |
|
| 173 |
The subroutines MORINI and MOXSEC changed considerably. All information |
| 174 |
about the availability of an isotopes has been moved to the x-section |
| 175 |
file and is no longer directly coded in MORINI. The output file calor.out |
| 176 |
had to be changed in order to allow more than one isotope per selected |
| 177 |
element. Additional comments about isotopes are printed in addition, e.g |
| 178 |
the I-127 secondary distributions are taken from Xe-128. |
| 179 |
|
| 180 |
The new x-section file can not be used by the older GCALOR versions and |
| 181 |
vice versa. |
| 182 |
|
| 183 |
-> You have to get BOTH the x-section file AND the new code! |
| 184 |
|
| 185 |
Some new subroutines are needed now. |
| 186 |
|
| 187 |
February 16, 1994 C.Zeitnitz |
| 188 |
Missing common GCBANK added in CALINI. |
| 189 |
|
| 190 |
February 3, 1994 C.Zeitnitz |
| 191 |
Version 1.02/05. Again a chane in the material list printed in |
| 192 |
MOXSEC. The collision length for a 1 MeV neutron is printed for |
| 193 |
each isotope used. |
| 194 |
|
| 195 |
February 2, 1994 C.Zeitnitz |
| 196 |
Version 1.02/04. The material table printed in CALOR.OUT has been |
| 197 |
Changed. MOXSEC and MORINI had to be modified for this. The table |
| 198 |
gives now the material name and the A,Z used in GEANT as well as |
| 199 |
in MICAP. |
| 200 |
|
| 201 |
January 28, 1994 C.Zeitnitz |
| 202 |
Version 1.02/02. Subroutine name VERTIM changed to GCDATE in order to |
| 203 |
avoid a clash with a PAW subroutine. |
| 204 |
|
| 205 |
January 26, 1994 C.Zeitnitz |
| 206 |
Version 1.02/01. The neutron cross-section file contains Cadmium, but |
| 207 |
it was not used in the program. Morini has been changed in order |
| 208 |
to do this. |
| 209 |
|
| 210 |
January 25, 1994 C.Zeitnitz |
| 211 |
Version 1.02/00. This version works with GEANT 3.16 !! |
| 212 |
|
| 213 |
November 18,1993 C.Zeitnitz |
| 214 |
A few necessary changes lead to version 1.01/16 |
| 215 |
|
| 216 |
November 15,1993 C.Zeitnitz |
| 217 |
The version 1.01/15 will NOT work with GEANT 3.16, because the new |
| 218 |
GEANT version needs to get the position of the secondaries. Thats not |
| 219 |
provided by GCALOR yet, but easy to fix. I will change it soon. |
| 220 |
|
| 221 |
August 18,1993 C Zeitnitz |
| 222 |
There seems to be some interest in the recoil nucleus after the |
| 223 |
interaction. An example for GUHADR, how to access these |
| 224 |
informations, can be found in the file RECOIL.GUHADR. |
| 225 |
This will work ONLY with Version 1.01/15 or higher. |
| 226 |
|
| 227 |
June 4, 1993 C.Zeitnitz |
| 228 |
Release 1.01 needs a new neutron cross-section file XSNEUT.DAT. The date |
| 229 |
in the file header has to be June 2, 1993 . |
| 230 |
Some bugs in the code have been removed, which effects the elastic |
| 231 |
scattering in MICAP, the hydrogen cross-sections used in NMTC and |
| 232 |
calculation of the recoil nucleus momentum in MICAP. |
| 233 |
|
| 234 |
|
| 235 |
March 3, 1993 C.Zeitnitz |
| 236 |
Due to a precision problem in GEANT, there has been a problem with very |
| 237 |
low energetic neutrons Ekin<1.E-8. The following fix in GLTRAC will be |
| 238 |
included in the next correction cradle for GEANT 3.15 and in GEANT 3.16. |
| 239 |
Please use the corrected version if you are interested in thermal |
| 240 |
neutrons, or capture gammas etc. !!! |
| 241 |
|
| 242 |
+REP,GTRAK,GLTRAC,60-64. |
| 243 |
P2 = DBLE(PVERT(1))**2+DBLE(PVERT(2))**2+DBLE(PVERT(3))**2 |
| 244 |
IF (P2.EQ.0.D0) THEN |
| 245 |
VECT(7) = 0. |
| 246 |
ELSE |
| 247 |
VECT(7) = DSQRT(P2) |
| 248 |
+REP,GTRAK,GLTRAC,94-95. |
| 249 |
GETOTD = DSQRT(P2+DBLE(AMASS)*DBLE(AMASS)) |
| 250 |
GEKIND = GETOTD - DBLE(AMASS) |
| 251 |
|
| 252 |
|
| 253 |
|
Parent Directory
| 
Revision Log