1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
c******************************************************************************
c this is not really a common block, but it is a way to make
c (in a consistent manner for several routines) definitions
c of some temporary variables that are equivalenced (assigned,
c or in other words, use the same memory space as) other variables.
c This is done so that plotting of large numbers of points (<=50000)
c for synthetic spectra may be accomplished without allocating
c large amounts of additional memory for the code.
c******************************************************************************
real*8 chunk(50000,5)
equivalence (chunk(1,1),a(1,1)),
. (chunk(1,2),a(1,21)),
. (chunk(1,3),a(1,41)),
. (chunk(1,4),a(1,61)),
. (chunk(1,5),a(1,81))
real*8 xsyn(50000), dev(50000)
equivalence (xsyn,kapnu0(1,1)), (dev,kapnu0(1,21))
real*8 y(50000), z(50000)
equivalence (y,kapnu0(1,41)), (z,kapnu0(1,61))
|
