Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / gcons / gsmate.F.ori
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:16 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
11*-- Author :
12 SUBROUTINE GSMATE(IMAT,NAMATE,A,Z,DENS,RADL,ABSL,UBUF,NWBUF)
13C.
14C. ******************************************************************
15C. * *
16C. * *
17C. * Store material parameters *
18C. * *
19C. * *
20C. * The Material data structure JMATE *
21C. * --------------------------------- *
22C. * *
23C. * | JMATE *
24C. * NMATE IMATE v *
25C. * ...................................... *
26C. * | | | | | *
27C. * ...................................... *
28C. * | *
29C. * | JMA *
30C. * v *
31C. * ..................... *
32C. * | 1 | | *
33C. * ..... | *
34C. * | 2 | Material | *
35C. * |...| | *
36C. * | 3 | Name | *
37C. * |...| | *
38C. * | 4 | | *
39C. * |...| | *
40C. * | 5 | | *
41C. * ..................... *
42C. * | 6 | A | *
43C. * |...|...............| *
44C. * | 7 | Z | *
45C. * |...|...............| *
46C. * | 8 | Density | *
47C. * |...|...............| *
48C. * | 9 | RADL | *
49C. * |...|...............| *
50C. * | 10| ABSL | *
51C. * |...|...............| *
52C. * | 11| NMIXT | *
53C. * |...|...............| *
54C. * | | | *
55C. * ..................... *
56C. * *
57C. * JMA = LQ(JMATE-IMATE) pointer to material IMATE *
58C. * *
59C. * When the subroutine GPHYSI is called at initialisation *
60C. * time the following banks are created for each material *
61C. * (tabulation of energy loss and cross-section). *
62C. * | JMATE *
63C. * NMATE IMATE v *
64C. * ................................................ *
65C. * | | | | | *
66C. * ................................................ *
67C. * | JMA = LQ(JMATE-IMATE) *
68C. * v 11 *
69C. * ............................................................ *
70C. * | 13 12 11 10 9 8 7 6 5 4 3 2 1 | | Material parameters | *
71C. * ............................................................ *
72C. * | | | | | | | | | | | | | *
73C. * | | | | | | | | | | | | v JMAEL = LQ(JMA-1) *
74C. * | | | | | | | | | | | | 270 *
75C. * | | | | | | | | | | | |................................ *
76C. * | | | | | | | | | | | ||Energy loss for electron/positro*
77C. * | | | | | | | | | | | |............................ *
78C. * | | | | | | | | | | | v JMAMU = LQ(JMA-2) 90 *
79C. * | | | | | | | | | | |.............................. *
80C. * | | | | | | | | | | ||Energy loss for muons | *
81C. * | | | | | | | | | | |.............................. *
82C. * | | | | | | | | | | v JMAAL = LQ(JMA-3) 90 *
83C. * | | | | | | | | | |................................ *
84C. * | | | | | | | | | ||Energy loss for other particles| *
85C. * | | | | | | | | | |................................ *
86C. * | | | | | | | | | v JPROB = LQ(JMA-4) 30 *
87C. * | | | | | | | | |.................................. *
88C. * | | | | | | | | ||Some material constants | *
89C. * | | | | | | | | |.................................. *
90C. * | | | | | | | | v JMIXT = LQ(JMA-5) 11 *
91C. * | | | | | | | |.................................... *
92C. * | | | | | | | ||Mixture or compound parameters | *
93C. * | | | | | | | |.................................... *
94C. * | | | | | | | v JPHOT = LQ(JMA-6) and JMUNU 90 *
95C. * | | | | | | |...................................... *
96C. * | | | | | | ||Photo-effect cross-section | *
97C. * | | | | | | |...................................... *
98C. * | | | | | | v JANNI = LQ(JMA-7) 90 *
99C. * | | | | | |........................................ *
100C. * | | | | | ||Positron annihilation cross-section | *
101C. * | | | | | |........................................ *
102C. * | | | | | V JCOMP = LQ(JMA-8) 90 *
103C. * | | | | |.......................................... *
104C. * | | | | ||Compton scattering cross-section | *
105C. * | | | | |.......................................... *
106C. * | | | | V JBREM = LQ(JMA-9) 90 *
107C. * | | | | ............................................ *
108C. * | | | | |Bremsstrahlung cross-section | *
109C. * | | | | ............................................ *
110C. * | | | V JPAIR = LQ(JMA-10) 90 *
111C. * | | | ............................................... *
112C. * | | | |Pair production cross-section | *
113C. * | | | ............................................... *
114C. * | | V JDRAY = LQ(JMA-11) 210 *
115C. * | | .................................................. *
116C. * | | |Moller and Bhabha cross-sections | *
117C. * | | .................................................. *
118C. * | V JPFIS = LQ(JMA-12) 90 *
119C. * | ..................................................... *
120C. * | |Photo fission cross section | *
121C. * | ..................................................... *
122C. * V JRAYL = LQ(JMA-13) 62 *
123C. * ........................................................ *
124C. * |Rayleigh scattering cross section and atomic form fact| *
125C. * ........................................................ *
126C. * V JMUNU = LQ(JMA-14) 90 *
127C. * ........................................................ *
128C. * V JRANG = LQ(JMA-15) 180 *
129C. * V........................................................ *
130C. * |Stopping range for electrons/positrons | *
131C. * ........................................................ *
132C. * V JRANG = LQ(JMA-16) 180 *
133C. * V........................................................ *
134C. * |Stopping range for muons / other particles | *
135C. * ........................................................ *
136C. * *
137C. * ==>Called by : <USER>, UGEOM ,<GXINT> GINC3 *
138C. * Author R.Brun ********* *
139C. * *
140C. ******************************************************************
141C.
142#include "geant321/gcbank.inc"
143#include "geant321/gcnum.inc"
144#include "geant321/gcmzfo.inc"
145#include "geant321/gcunit.inc"
146 DIMENSION UBUF(1)
147 CHARACTER*(*) NAMATE
148 CHARACTER*20 NAME
149C.
150C. ------------------------------------------------------------------
151C.
152 IF(IMAT.LE.0)GO TO 99
153 IF(JMATE.LE.0)THEN
154 CALL MZBOOK(IXCONS,JMATE,JMATE,1,'MATE',NMATE,NMATE,0,3,0)
155 IQ(JMATE-5)=0
156 ENDIF
157 IF(IMAT.GT.NMATE)THEN
158 CALL MZPUSH(IXCONS,JMATE,IMAT-NMATE,0,'I')
159 NMATE=IMAT
160 JMA1=0
161 ELSE
162 JMA1=LQ(JMATE-IMAT)
163 IF(JMA1.GT.0) THEN
164 WRITE(CHMAIL,10000)
165 CALL GMAIL(1,0)
166 CALL GPMATE(IMAT)
167 CALL MZDROP(IXCONS,LQ(JMATE-IMAT),' ')
168 ENDIF
169 ENDIF
170 CALL MZBOOK(IXCONS,JMA,JMATE,-IMAT,'MATE',20,20,NWBUF+11,IOMATE,0)
171C
172 NAME=NAMATE
173 NCH=LNBLNK(NAME)
174 IF(NCH.GT.0)THEN
175 IF(NAME(NCH:NCH).EQ.'$')NAME(NCH:NCH)=' '
176 ENDIF
177 CALL UCTOH(NAME,IQ(JMA+1),4,20)
178C
179 Q(JMA + 6) = A
180 Q(JMA + 7) = Z
181 Q(JMA + 8) = DENS
182 Q(JMA + 9) = RADL
183 Q(JMA + 10) = ABSL
184 Q(JMA + 11) = 1.
185 IF(NWBUF.GT.0)CALL UCOPY(UBUF,Q(JMA+12),NWBUF)
186C
187 IF(JMA1.GT.0) THEN
188 CALL GPMATE(-IMAT)
189 ENDIF
190C
19110000 FORMAT(' *** GSMATE ***: Warning, material redefinition:')
192 99 END
193