COSMOS v7.655
COSMOSv7655
(AirShowerMC)
Main Page
Related Pages
+
Modules
Modules List
+
Module Members
+
All
a
b
c
d
e
f
g
h
k
l
m
n
o
p
r
s
t
u
x
+
Functions/Subroutines
c
g
m
o
+
Variables
a
b
c
d
e
f
g
h
k
l
m
n
p
r
s
t
u
x
+
Data Types List
Data Types List
+
Data Fields
+
All
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
r
s
t
u
v
w
x
y
z
+
Variables
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
r
s
t
u
v
w
x
y
z
+
Files
File List
+
File Members
+
All
!
_
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
~
+
Functions/Subroutines
!
_
a
b
c
d
e
f
g
h
i
k
l
m
n
o
p
q
r
s
t
u
w
x
y
z
+
Variables
!
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
~
Typedefs
+
Macros
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
r
s
t
u
w
x
y
z
•
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Macros
Pages
intePrim2.f
Go to the documentation of this file.
1
subroutine
inteprim2
(comp, i1, i2, ans)
2
implicit none
3
#include "Zptcl.h"
4
#include "Zprimary.h"
5
! primary flux at E
6
type(
component
)::comp
7
integer
i1, i2
8
real*8
ans
9
10
real*8
sum
11
12
integer
i
13
sum = 0.
14
15
do
i = i1, i2
16
if
(comp%cut .ne. 0.)
then
17
if
(comp%emin .le. comp%energy(i))
then
18
sum = comp%norm_inte(i)
19
goto
100
20
endif
21
else
22
sum = comp%norm_inte(i)
23
goto
100
24
endif
25
enddo
26
100
continue
27
ans = sum * comp%inte_value
28
end
component
Definition:
Zprimary.h:27
inteprim2
subroutine inteprim2(comp, i1, i2, ans)
Definition:
intePrim2.f:2
Util
Flux
intePrim2.f
Generated by
1.8.13