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
|
include "../lib/daophotdef.h"
include "../lib/apseldef.h"
include "../lib/allstardef.h"
# DP_FREE - Procedure to free the the daophot structure.
procedure dp_free (dp)
pointer dp # pointer to the daophot structure
begin
if (DP_MW(dp) != NULL)
call mw_close (DP_MW(dp))
call mfree (dp, TY_STRUCT)
end
# DP_FITCLOSE -- Procedure to close up the psf fitting structure.
procedure dp_fitclose (dp)
pointer dp # pointer to the daophot structure
pointer psffit
begin
psffit = DP_PSFFIT(dp)
if (DP_PSFLUT(psffit) != NULL)
call mfree (DP_PSFLUT(psffit), TY_REAL)
if (DP_PSFPARS(psffit) != NULL)
call mfree (DP_PSFPARS(psffit), TY_REAL)
call mfree (psffit, TY_STRUCT)
end
# DP_APCLOSE -- Procedure to close up the APSEL parameters.
procedure dp_apclose (dp)
pointer dp # pointer to daophot structure
pointer apsel
begin
apsel = DP_APSEL(dp)
if (DP_APRESULT(apsel) != NULL)
call mfree (DP_APRESULT(apsel), TY_INT)
if (DP_APID(apsel) != NULL)
call mfree (DP_APID(apsel), TY_INT)
if (DP_APXCEN(apsel) != NULL)
call mfree (DP_APXCEN(apsel), TY_REAL)
if (DP_APYCEN(apsel) != NULL)
call mfree (DP_APYCEN(apsel), TY_REAL)
if (DP_APMAG(apsel) != NULL)
call mfree (DP_APMAG(apsel), TY_REAL)
if (DP_APERR(apsel) != NULL)
call mfree (DP_APERR(apsel), TY_REAL)
if (DP_APMSKY(apsel) != NULL)
call mfree (DP_APMSKY(apsel), TY_REAL)
if (DP_APGROUP(apsel) != NULL)
call mfree (DP_APGROUP(apsel), TY_INT)
if (DP_APNITER(apsel) != NULL)
call mfree (DP_APNITER(apsel), TY_INT)
if (DP_APSHARP(apsel) != NULL)
call mfree (DP_APSHARP(apsel), TY_REAL)
if (DP_APCHI(apsel) != NULL)
call mfree (DP_APCHI(apsel), TY_REAL)
call mfree (apsel, TY_STRUCT)
end
|
