blob: 04e9dff67f1e9b851e60a1350bc8c72aeef89537 (
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
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
|
# AT_AGINIT -- Inititialize the AGETCAT task structure.
procedure at_aginit (at)
pointer at #O the pointer to the astrometry descriptor
begin
# Initialize the astrometry structure.
call at_ainit (at)
# Initialize the i/o structure.
call at_ioinit (at)
# Initialize the region definition structure.
call at_rcinit (at)
# Initialize the filtering / selection structure.
call at_fsinit (at)
end
# AT_AGFREE -- Free the AGETCAT task structure.
procedure at_agfree (at)
pointer at #U the pointer to the astrometry descriptor
begin
# Free the filtering / selection structure.
call at_fsfree (at)
# Free the field center structure.
call at_rcfree (at)
# Free the i/o structure
call at_iofree (at)
# Free the astrometry structure.
call at_afree (at)
end
# AT_AFINIT -- Inititialize the AFILTCAT task structure.
procedure at_afinit (at)
pointer at #O the pointer to the astrometry descriptor
begin
# Initialize the astrometry structure.
call at_ainit (at)
# Initialize the i/o structure.
call at_ioinit (at)
# Initialize the filtering / selection structure.
call at_fsinit (at)
end
# AT_AFFREE -- Free the AFILTCAT task structure.
procedure at_affree (at)
pointer at #U the pointer to the astrometry descriptor
begin
# Free the filtering / selection structure.
call at_fsfree (at)
# Free the i/o structure
call at_iofree (at)
# Free the astrometry structure.
call at_afree (at)
end
# AT_AIGINIT -- Inititialize the agetim task structure.
procedure at_aiginit (at)
pointer at #O the pointer to the astrometry descriptor
begin
# Initialize the astrometry structure.
call at_ainit (at)
# Initialize the i/o structure.
call at_ioinit (at)
# Initialize the region definition structure.
call at_rcinit (at)
# Initialize the default wcs structure.
#call at_wcinit (at)
# Initialize the default image data structure.
#call at_iminit (at)
end
# AT_AIGFREE -- Free the agetim task structure.
procedure at_aigfree (at)
pointer at #U the pointer to the astrometry descriptor
begin
# Free the default image data structure.
#call at_imfree (at)
# Free the default wcs structure.
#call at_wcfree (at)
# Free the field center structure.
call at_rcfree (at)
# Free the i/o structure
call at_iofree (at)
# Free the astrometry structure.
call at_afree (at)
end
# AT_AHINIT -- Inititialize the AHEDIT task structure.
procedure at_ahinit (at)
pointer at #O the pointer to the astrometry descriptor
begin
# Initialize the astrometry structure.
call at_ainit (at)
# Initialize the i/o structure.
call at_ioinit (at)
# Initialize the default wcs structure.
call at_wcinit (at)
# Initialize the default image data structure.
call at_iminit (at)
end
# AT_AHFREE -- Free the AHEDIT task structure.
procedure at_ahfree (at)
pointer at #U the pointer to the astrometry descriptor
begin
# Free the default image data structure.
call at_imfree (at)
# Free the default wcs structure.
call at_wcfree (at)
# Free the i/o structure
call at_iofree (at)
# Free the astrometry structure.
call at_afree (at)
end
|
