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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
include "xregister.h"
# RG_PXPARS -- Update the cross-correlation algorithm parameters.
procedure rg_pxpars (xc)
pointer xc #I pointer to the cross-correlation structure
pointer sp, str
int rg_xstati()
real rg_xstatr()
begin
# Allocate working space.
call smark (sp)
call salloc (str, SZ_LINE, TY_CHAR)
# Define the regions.
call rg_xstats (xc, REGIONS, Memc[str], SZ_LINE)
call clpstr ("regions", Memc[str])
call clputi ("xlag", rg_xstati (xc, XLAG))
call clputi ("ylag", rg_xstati (xc, YLAG))
call clputi ("dxlag", rg_xstati (xc, DXLAG))
call clputi ("dylag", rg_xstati (xc, DYLAG))
# Store the background fitting parameters.
call rg_xstats (xc, BSTRING, Memc[str], SZ_LINE)
call clpstr ("background", Memc[str])
call clputi ("border", rg_xstati (xc, BORDER))
call clputr ("loreject", rg_xstatr (xc, LOREJECT))
call clputr ("hireject", rg_xstatr (xc, HIREJECT))
call clputr ("apodize", rg_xstatr (xc, APODIZE))
call rg_xstats (xc, FSTRING, Memc[str], SZ_LINE)
call clpstr ("filter", Memc[str])
# Store the cross-correlation parameters.
call rg_xstats (xc, CSTRING, Memc[str], SZ_LINE)
call clpstr ("correlation", Memc[str])
call clputi ("xwindow", rg_xstati (xc, XWINDOW))
call clputi ("ywindow", rg_xstati (xc, YWINDOW))
# Store the peak centering parameters.
call rg_xstats (xc, PSTRING, Memc[str], SZ_LINE)
call clpstr ("function", Memc[str])
call clputi ("xcbox", rg_xstati (xc, XCBOX))
call clputi ("ycbox", rg_xstati (xc, YCBOX))
call sfree (sp)
end
|
