diff options
Diffstat (limited to 'Equivs.com')
| -rwxr-xr-x | Equivs.com | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/Equivs.com b/Equivs.com new file mode 100755 index 0000000..688f36c --- /dev/null +++ b/Equivs.com @@ -0,0 +1,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*4 chunk(100000,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*4 xsyn(100000), dev(100000) + equivalence (xsyn,kapnu0(1,1)), (dev,kapnu0(1,21)) + + real*4 y(100000), z(100000) + equivalence (y,kapnu0(1,41)), (z,kapnu0(1,61)) + |