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
|
include "../lib/daophotdef.h"
include "../lib/apseldef.h"
# DP_STATS -- Fetch a daophot string parameter.
procedure dp_stats (dao, param, str, maxch)
pointer dao # pointer to daophot structure
int param # parameter
char str[ARB] # string value
int maxch # maximum number of characters
begin
switch (param) {
case INIMAGE:
call strcpy (DP_INIMAGE(dao), str, maxch)
case INPHOTFILE:
call strcpy (DP_INPHOTFILE(dao), str, maxch)
case COORDS:
call strcpy (DP_COORDS(dao), str, maxch)
case PSFIMAGE:
call strcpy (DP_PSFIMAGE(dao), str, maxch)
case OUTPHOTFILE:
call strcpy (DP_OUTPHOTFILE(dao), str, maxch)
case OUTIMAGE:
call strcpy (DP_OUTIMAGE(dao), str, maxch)
case OUTREJFILE:
call strcpy (DP_OUTREJFILE(dao), str, maxch)
case IFILTER:
call strcpy (DP_IFILTER(dao), str, maxch)
case OTIME:
call strcpy (DP_OTIME(dao), str, maxch)
case CCDGAIN:
call strcpy (DP_CCDGAIN(dao), str, maxch)
case CCDREAD:
call strcpy (DP_CCDREAD(dao), str, maxch)
case EXPTIME:
call strcpy (DP_EXPTIME(dao), str, maxch)
case OBSTIME:
call strcpy (DP_OBSTIME(dao), str, maxch)
case FILTER:
call strcpy (DP_FILTER(dao), str, maxch)
case AIRMASS:
call strcpy (DP_AIRMASS(dao), str, maxch)
case FUNCTION:
call strcpy (DP_FUNCTION(dao), str, maxch)
case FUNCLIST:
call strcpy (DP_FUNCLIST(dao), str, maxch)
default:
call error (0, "DP_STATS: Unknown daophot string parameter")
}
end
# DP_STATI -- Fetch a daophot integer parameter.
int procedure dp_stati (dao, param)
pointer dao # pointer to daophot structure
int param # parameter
pointer apsel
begin
apsel = DP_APSEL(dao)
switch (param) {
case MW:
return (DP_MW(dao))
case WCSIN:
return (DP_WCSIN(dao))
case WCSOUT:
return (DP_WCSOUT(dao))
case WCSPSF:
return (DP_WCSPSF(dao))
case CTIN:
return (DP_CTIN(dao))
case CTOUT:
return (DP_CTOUT(dao))
case CTPSF:
return (DP_CTPSF(dao))
case MAXITER:
return (DP_MAXITER(dao))
case VERBOSE:
return (DP_VERBOSE(dao))
case TEXT:
return (DP_TEXT(dao))
case MAXNSTAR:
return (DP_MAXNSTAR(dao))
case MAXGROUP:
return (DP_MAXGROUP(dao))
case CLIPEXP:
return (DP_CLIPEXP(dao))
case RECENTER:
return (DP_RECENTER(dao))
case FITSKY:
return (DP_FITSKY(dao))
case GROUPSKY:
return (DP_GROUPSKY(dao))
case VARORDER:
return (DP_VARORDER(dao))
case FEXPAND:
return (DP_FEXPAND(dao))
case SATURATED:
return (DP_SATURATED(dao))
case NCLEAN:
return (DP_NCLEAN(dao))
case APNUM:
return (DP_APNUM(apsel))
default:
call error (0, "DP_STATI: Unknown integer daophot parameter")
}
end
# DP_STATR -- Fetch a daophot real parameter.
real procedure dp_statr (dao, param)
pointer dao # pointer to daophot structure
int param # parameter
begin
switch (param) {
case SCALE:
return (DP_SCALE(dao))
case FWHMPSF:
return (DP_FWHMPSF(dao))
case SFWHMPSF:
return (DP_SFWHMPSF(dao))
case MAXGDATA:
return (DP_MAXGDATA(dao))
case MINGDATA:
return (DP_MINGDATA(dao))
case READNOISE:
return (DP_READNOISE(dao))
case PHOTADU:
return (DP_PHOTADU(dao))
case RPSFRAD:
return (DP_RPSFRAD(dao))
case SPSFRAD:
return (DP_SPSFRAD(dao))
case PSFRAD:
return (DP_PSFRAD(dao))
case SFITRAD:
return (DP_SFITRAD(dao))
case FITRAD:
return (DP_FITRAD(dao))
case SMATCHRAD:
return (DP_SMATCHRAD(dao))
case MATCHRAD:
return (DP_MATCHRAD(dao))
case SANNULUS:
return (DP_SANNULUS(dao))
case ANNULUS:
return (DP_ANNULUS(dao))
case SDANNULUS:
return (DP_SDANNULUS(dao))
case DANNULUS:
return (DP_DANNULUS(dao))
case CRITSNRATIO:
return (DP_CRITSNRATIO(dao))
case CLIPRANGE:
return (DP_CLIPRANGE(dao))
case XAIRMASS:
return (DP_XAIRMASS(dao))
case ITIME:
return (DP_ITIME(dao))
case FLATERR:
return (DP_FLATERR(dao))
case PROFERR:
return (DP_PROFERR(dao))
case SMERGERAD:
return (DP_SMERGERAD(dao))
case MERGERAD:
return (DP_MERGERAD(dao))
default:
call error (0, "DP_STATR: Unknown real daophot parameter")
}
end
|
