COSMOS v7.655  COSMOSv7655
(AirShowerMC)
qmddflt.f
Go to the documentation of this file.
1 !************************************************************************
2 !* *
3 !* PART 9: Default Values *
4 !* *
5 !* *
6 !* List of subprograms in rough order of relevance with main purpose *
7 !* ( s = subroutine, f = function, b = block data, e = entry ) *
8 !* *
9 !* *
10 !* b qmddata to give default values for switches and parameters *
11 !* *
12 !************************************************************************
13 !* *
14 !************************************************************************
15 !* *
16  block data qmddata
17 !* *
18 !* *
19 !* Last Revised: 1998 11 27 *
20 !* *
21 !* Purpose: *
22 !* *
23 !* to give default values for switches and parameters *
24 !* *
25 !* *
26 !************************************************************************
27 
28  implicit real*8(a-h,o-z)
29 
30 !*-----------------------------------------------------------------------
31 
32 #include "param00.inc"
33 #include "param01.inc"
34 #include "param02.inc"
35 
36 !*-----------------------------------------------------------------------
37 
38  common /input1/ mstq1(mxpa1), parq1(mxpa1)
39 
40  common /fnamid/ fname(mxfnm), idf(mxfnm), ifnl(mxfnm)
41 
42  character fname*80
43 
44 !*-----------------------------------------------------------------------
45 !* Set defaults in the mstq1 array from 1 to 100
46 !*-----------------------------------------------------------------------
47 
48 !* 1 2 3 4 5 6 7 8 9 10
49 
50  data ( mstq1(i), i = 1, 100 ) /
51  $ 0, 12, 6, 0, 40, 20, 10, 90, 1,12345,
52  1 0, 20, 2, 0, 0, 0, 2, 0, 0, 0,
53  2 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
54  3 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,
55  4 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
56  5 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
57  6 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
58  7 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
59  8 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
60  9 1000, 0, 0, 0, 0, 0, 0, 0, 0, 0/
61 
62 !*-----------------------------------------------------------------------
63 !* Set defaults in the mstq1 array from 101 to 200
64 !*-----------------------------------------------------------------------
65 
66 !* 1 2 3 4 5 6 7 8 9 10
67 
68  data ( mstq1(i), i = 101, 200 ) /
69  $ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
70  1 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
71  2 0, 1, 1, 1, 30, 1, 1, 1, 1, 0,
72  3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
73  4 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
74  5 1, 1, 1, 5, 1, 1, 1, 1, 1, 1,
75  6 0, 1, 1, 1, 1, 0, 1, 0, 1, 1,
76  7 2, 10, 1, 0, 0, 0, 0, 0, 0, 0,
77  8 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
78  9 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
79 
80 
81 !*-----------------------------------------------------------------------
82 !* Set defaults in the parq1 array from 1 to 100
83 !*-----------------------------------------------------------------------
84 
85 !* 1 2 3 4 5 6 7 8 9 10
86 
87  data ( parq1(i), i = 1, 100 ) /
88  $ 0.5, -1.0, 0.0, 3.5, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0,
89  1 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
90  2 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 2.0,
91  3 -1.0, 25.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
92  4 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
93  5 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
94  6 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
95  7 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
96  8 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.2,
97  9 1.124, 0.5, 0.9, 0.3, 1.0, -0.04, -1.0, 0.0, 0.0, 0.0/
98 
99 !*-----------------------------------------------------------------------
100 !* Set defaults in the parq1 array from 101 to 200
101 !*-----------------------------------------------------------------------
102 
103 !* 1 2 3 4 5 6 7 8 9 10
104 
105  data (parq1(i),i=101,200)/
106  $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
107  1 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0,
108  2 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
109  3 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
110  4 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
111  5 10.0, 2.0, -25., 25., -15., 15., 101., 101., 101., 101.,
112  6 1.0, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
113  7 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
114  8 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
115  9 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0/
116 
117 
118 !*-----------------------------------------------------------------------
119 !* Set defaults in the parq1 array from 101 to 200
120 !*-----------------------------------------------------------------------
121 
122 !*-----------------------------------------------------------------------
123 !* Default File Name
124 !*-----------------------------------------------------------------------
125 
126  data fname/ 'jqmd.cfg ',' ','howmany.dat',
127  & 'jqmd ',' ',' ',
128  & ' ',' ',' ',
129  & 'qmdout.dat',
130  & ' ',' ',' ',
131  & ' ',' ',' ',
132  & ' ',' ',' ',
133  & ' ',
134  & ' ',' ',' ',
135  & ' ',' ',' ',
136  & ' ',' ',' ',
137  & ' ',
138  & ' ',' ',' ',
139  & ' ',' ',' ',
140  & ' ',' ',' ',
141  & ' ',
142  & ' ',' ',' ',
143  & ' ',' ',' ',
144  & ' ',' ',' ',
145  & ' '/
146 
147  data ifnl/ 8, 0, 11,
148  & 10, 0, 0,
149  & 0, 0, 0,
150  & 10,
151  & 0, 0, 0,
152  & 0, 0, 0,
153  & 0, 0, 0,
154  & 0,
155  & 0, 0, 0,
156  & 0, 0, 0,
157  & 0, 0, 0,
158  & 0,
159  & 0, 0, 0,
160  & 0, 0, 0,
161  & 0, 0, 0,
162  & 0,
163  & 0, 0, 0,
164  & 0, 0, 0,
165  & 0, 0, 0,
166  & 0/
167 
168  data idf/ 1, 2, 3, 4, 5, 6, 7, 8, 9,10,
169  & 11,12,13,14,15,16,17,18,19,20,
170  & 21,22,23,24,25,26,27,28,29,30,
171  & 31,32,33,34,35,36,37,38,39,40,
172  & 41,42,43,44,45,46,47,48,49,50/
173 
174 !*-----------------------------------------------------------------------
175 
176 
177  end
178 
z
nodes z
Definition: cstdatmos0.fNew2.h:93
i
nodes i
Definition: cstdatmos0.fNew2.h:93
o
struct ob o[NpMax]
Definition: Zprivate.h:34
a
nodes a
Definition: cstdatmos0.fNew2.h:93
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130