1 /* copyright(c) 1991-2012 free software foundation, inc.
2 this file is part of the gnu c library.
4 the gnu c library is free software; you can redistribute it and/or
5 modify it under the terms of the gnu lesser general
Public
6 license as published by the free software foundation; either
7 version 2.1 of the license, or(at your option) any later version.
9 the gnu c library is distributed in the hope that it will be useful,
10 but without any warranty; without even the implied warranty of
11 merchantability or fitness for a particular purpose. see the gnu
12 lesser general
Public license for more details.
14 you should have received a copy of the gnu lesser general
Public
15 license along with the gnu c library;
if not, see
16 <http://www.gnu.org/licenses/>. */
19 /* this header is separate from features.h so that the compiler can
20 include it implicitly at the start of every compilation. it must
21 not itself include <features.h> or any other header that includes
22 <features.h> because the
implicit include comes before any feature
23 test macros that may be defined in a source file before it first
24 explicitly includes a system header. gcc knows the name of this
25 header in order to preinclude it. */
27 /* we
do support the iec 559 math functionality,
real and complex. */
29 /* wchar_t uses iso/iec 10646 (2nd ed., published 2011-03-15) /
32 /* we
do not support c11 <threads.h>. */
34 c.----------------------------------------------------------------------
36 c. photos: photon radiation in decays test
program
38 c. purpose: example of application of photos.
40 c. input parameters: none
42 c. output parameters: none
44 c. author(s): b. van eijk, e. barberio created at: 31/05/90
45 c. last update: 05/06/90
47 c.----------------------------------------------------------------------
51 c this is the hepevt class in old style. no d_h_ class pre-name
53 parameter(nmxhep=10000)
55 INTEGER nevhep,nhep,isthep,idhep,jmohep,
66 * ----------------------------------------------------------------------
70 * ----------------------------------------------------------------------
78 c-- loop over jetset event until photos has generated one or more pho-
79 c-- tons.
Do this for 10 jetset events. the event record is printed
80 c-- before and after photon emission.
84 c-- conversion to /hepevt/ standard
87 c--
Write event record before emission...
92 c-- generate photon(s)... arbitrary enforced generation.
93 c-- normally line:
IF (nhep.EQ.nhep0) goto 10 must be absent
95 IF (nhep.EQ.nhep0) goto 10
97 c--
Write event record...
110 9010
FORMAT(1h ,80(
'*'))
111 9020
FORMAT(1h ,
'*',78x,
'*')
112 9030
FORMAT(1h ,
'**** PHOTOS Test Run has successfully ended',32x,
114 9040
FORMAT(1h ,26x,
'=== after PHOTOS: ===')
115 9050
FORMAT(1h0,80(
'='))