blob: 46247a08badbddba88b046f37db22c2515a8c9ed (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
include "ms.h"
# SET_RANGES -- Set profile starting range array.
#
# The ranges array relates the starting point of the profiles relative
# to the center of profile and relative to the image line. For more
# details see the MULTISPEC system documentation.
procedure set_ranges (ms, lower, ranges, nspectra)
pointer ms # MULTISPEC data structure
real lower # Relative lower limit of profiles
real ranges[nspectra, LEN_RANGES] # Ranges array to be set
int nspectra # Number of spectra
int i
begin
do i = 1, nspectra {
ranges[i, X_START] = int (PARAMETER(ms, X0, i)) + lower
ranges[i, DX_START] = ranges[i, X_START] - PARAMETER(ms, X0, i)
}
end
|
