aboutsummaryrefslogtreecommitdiff
path: root/noao/nproto/ir/iriinit.x
blob: a97ade8e98a5a7b8d145adf99247a6e48355d64a (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
24
25
26
27
28
# IR_VECINIT -- Procedure to initialize the intensity matching algorithm.
# If the ranges are undefined and no matching is to take place the
# ishifts are set to INDEFR and the routine returns. Otherwise the shifts
# are all initialized to zero and shifts for the missing subrasters are
# set to INDEFR.

procedure ir_vecinit (deltai, nsubrasters, ranges)

real	deltai[ARB]			# intensity shifts
int	nsubrasters			# number of subrasters
int	ranges[ARB]			# ranges of missing subrasters

int	num
int	get_next_number()

begin
	# Initialize the shifts to INDEFR.
	call amovkr (INDEFR, deltai, nsubrasters)
	if (ranges[1] == NULL)
	    return

	num = 0
	while (get_next_number (ranges, num) != EOF) {
	    if (num  > nsubrasters)
		break
	    deltai[num] = 0.0
	}
end