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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
include "../lib/daophotdef.h"
include "../lib/apseldef.h"
# DP_SETS -- Set a daophot string parameter.
procedure dp_sets (dao, param, str)
pointer dao # pointer to daophot structure
int param # parameter
char str[ARB] # string value
begin
switch (param) {
case INIMAGE:
call strcpy (str, DP_INIMAGE(dao), SZ_FNAME)
case INPHOTFILE:
call strcpy (str, DP_INPHOTFILE(dao), SZ_FNAME)
case COORDS:
call strcpy (str, DP_COORDS(dao), SZ_FNAME)
case PSFIMAGE:
call strcpy (str, DP_PSFIMAGE(dao), SZ_FNAME)
case OUTPHOTFILE:
call strcpy (str, DP_OUTPHOTFILE(dao), SZ_FNAME)
case OUTREJFILE:
call strcpy (str, DP_OUTREJFILE(dao), SZ_FNAME)
case OUTIMAGE:
call strcpy (str, DP_OUTIMAGE(dao), SZ_FNAME)
case IFILTER:
call strcpy (str, DP_IFILTER(dao), SZ_FNAME)
case OTIME:
call strcpy (str, DP_OTIME(dao), SZ_FNAME)
case CCDGAIN:
call strcpy (str, DP_CCDGAIN(dao), SZ_FNAME)
case CCDREAD:
call strcpy (str, DP_CCDREAD(dao), SZ_FNAME)
case EXPTIME:
call strcpy (str, DP_EXPTIME(dao), SZ_FNAME)
case OBSTIME:
call strcpy (str, DP_OBSTIME(dao), SZ_FNAME)
case AIRMASS:
call strcpy (str, DP_AIRMASS(dao), SZ_FNAME)
case FILTER:
call strcpy (str, DP_FILTER(dao), SZ_FNAME)
case FUNCTION:
call strcpy (str, DP_FUNCTION(dao), SZ_FNAME)
case FUNCLIST:
call strcpy (str, DP_FUNCLIST(dao), SZ_FNAME)
default:
call error (0, "DP_SETS: Unknown daophot string parameter")
}
end
# DP_SETI -- Set a daophot integer parameter.
procedure dp_seti (dao, param, ival)
pointer dao # pointer to daophot structure
int param # parameter
int ival # integer value
pointer apsel
begin
apsel = DP_APSEL(dao)
switch (param) {
case MW:
DP_MW(dao) = ival
case WCSIN:
DP_WCSIN(dao) = ival
case WCSOUT:
DP_WCSOUT(dao) = ival
case WCSPSF:
DP_WCSPSF(dao) = ival
case CTIN:
DP_CTIN(dao) = ival
case CTOUT:
DP_CTOUT(dao) = ival
case CTPSF:
DP_CTPSF(dao) = ival
case MAXITER:
DP_MAXITER(dao) = ival
case VERBOSE:
DP_VERBOSE(dao) = ival
case TEXT:
DP_TEXT(dao) = ival
case MAXNSTAR:
DP_MAXNSTAR(dao) = ival
case MAXGROUP:
DP_MAXGROUP(dao) = ival
case CLIPEXP:
DP_CLIPEXP(dao) = ival
case RECENTER:
DP_RECENTER(dao) = ival
case FITSKY:
DP_FITSKY(dao) = ival
case GROUPSKY:
DP_GROUPSKY(dao) = ival
case VARORDER:
DP_VARORDER(dao) = ival
case FEXPAND:
DP_FEXPAND(dao) = ival
case SATURATED:
DP_SATURATED(dao) = ival
case NCLEAN:
DP_NCLEAN(dao) = ival
case APNUM:
DP_APNUM(apsel) = ival
default:
call error (0, "DP_SETI: Unknown integer daophot parameter")
}
end
# DP_SETR -- Set a real daophot parameter.
procedure dp_setr (dao, param, rval)
pointer dao # pointer to daophot structure
int param # parameter
real rval # real value
begin
switch (param) {
case SCALE:
DP_SCALE(dao) = rval
case SFWHMPSF:
DP_SFWHMPSF(dao) = rval
case FWHMPSF:
DP_FWHMPSF(dao) = rval
case MAXGDATA:
DP_MAXGDATA(dao) = rval
case MINGDATA:
DP_MINGDATA(dao) = rval
case READNOISE:
DP_READNOISE(dao) = rval
case PHOTADU:
DP_PHOTADU(dao) = rval
case RPSFRAD:
DP_RPSFRAD(dao) = rval
case SPSFRAD:
DP_SPSFRAD(dao) = rval
case PSFRAD:
DP_PSFRAD(dao) = rval
case SFITRAD:
DP_SFITRAD(dao) = rval
case FITRAD:
DP_FITRAD(dao) = rval
case SMATCHRAD:
DP_SMATCHRAD(dao) = rval
case MATCHRAD:
DP_MATCHRAD(dao) = rval
case SANNULUS:
DP_SANNULUS(dao) = rval
case ANNULUS:
DP_ANNULUS(dao) = rval
case SDANNULUS:
DP_SDANNULUS(dao) = rval
case DANNULUS:
DP_DANNULUS(dao) = rval
case CRITSNRATIO:
DP_CRITSNRATIO(dao) = rval
case CLIPRANGE:
DP_CLIPRANGE(dao) = rval
case XAIRMASS:
DP_XAIRMASS(dao) = rval
case ITIME:
DP_ITIME(dao) = rval
case FLATERR:
DP_FLATERR(dao) = rval
case PROFERR:
DP_PROFERR(dao) = rval
case SMERGERAD:
DP_SMERGERAD(dao) = rval
case MERGERAD:
DP_MERGERAD(dao) = rval
default:
call error (0, "DP_SETR: Unknown real daophot parameter")
}
end
|
