blob: fb4ed401d9826e26d3ec76734599eb6096139d8c (
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
29
30
31
32
33
34
35
36
37
|
include "../lib/display.h"
include "../lib/radprof.h"
# AP_RPARS -- Procedure to write the radprof parameters to the parameter
# file.
procedure ap_rpars (ap)
pointer ap # pointer to apphot structure
bool itob()
int apstati()
real apstatr()
begin
# Write the data dependent parameters.
call ap_dapars (ap)
# Write the centering parameters.
call ap_cepars (ap)
# Write the sky fitting parameters.
call ap_sapars (ap)
# Write out the photometry parameters.
call ap_phpars (ap)
# Set the radphot parameters
call clputr ("radius", apstatr (ap, RPRADIUS))
call clputr ("step", apstatr (ap, RPSTEP))
call clputi ("order", apstati (ap, RPORDER))
call clputr ("kreject", apstatr (ap, RPKSIGMA))
call clputi ("nreject", apstati (ap, RPNREJECT))
# Set radial profile plots
call clputb ("radplots", itob (apstati (ap, RADPLOTS)))
end
|
