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
|
include "../lib/apphot.h"
include "../lib/center.h"
include "../lib/fitsky.h"
include "../lib/phot.h"
include "../lib/noise.h"
include "../lib/display.h"
# AP_QPPARS -- Procedure to write out qthe phot task parameters.
procedure ap_qppars (ap)
pointer ap # pointer to apphot structure
pointer mp, str
bool itob()
int apstati()
real apstatr()
begin
call smark (mp)
call salloc (str, SZ_LINE, TY_CHAR)
call clputr ("cbox", 2.0 * apstatr (ap, CAPERT))
call clputr ("annulus", apstatr (ap, ANNULUS))
call clputr ("dannulus", apstatr (ap, DANNULUS))
call apstats (ap, APERTS, Memc[str], SZ_LINE)
call clpstr ("apertures", Memc[str])
call apstats (ap, EXPOSURE, Memc[str], SZ_LINE)
call clpstr ("exposure", Memc[str])
call apstats (ap, AIRMASS, Memc[str], SZ_LINE)
call clpstr ("airmass", Memc[str])
call apstats (ap, FILTER, Memc[str], SZ_LINE)
call clpstr ("filter", Memc[str])
call apstats (ap, OBSTIME, Memc[str], SZ_LINE)
call clpstr ("obstime", Memc[str])
call clputr ("epadu", apstatr (ap, EPADU))
call clputr ("zmag", apstatr (ap, ZMAG))
call clputb ("radplots", itob (apstati (ap, RADPLOTS)))
call sfree (mp)
end
|
