32 static float *work = NULL;
34 static void tidy(
void);
84 cpl_msg_error(
"tabinit",
"Option %" CPL_SIZE_FORMAT
" does not exist",
141 cpl_msg_error(
"do_seeing",
"Option %" CPL_SIZE_FORMAT
" does not exist",
198 cpl_msg_error(
"process_result",
"Option %" CPL_SIZE_FORMAT
" does not exist",
281 extern void tabinit_gen(
int ncols,
const char *ttype[],
const char *tunit[],
284 const char *fctid =
"tabinit_gen";
288 if ((tab = cpl_table_new(0)) == NULL) {
289 cpl_msg_error(fctid,
"Unable to open cpl table!");
295 for (i = 0; i < ncols; i++) {
296 cpl_table_new_column(tab,ttype[i],tform[i]);
297 cpl_table_set_column_unit(tab,ttype[i],tunit[i]);
335 const char *col_pkht,
char *col_areals[NAREAL]) {
337 float fwhm,*areal[NAREAL],*ellipt,*pkht;
342 ellipt = cpl_table_get_data_float(tab,col_ellipt);
343 pkht = cpl_table_get_data_float(tab,col_pkht);
344 work = cpl_malloc(nobjects*
sizeof(*work));
345 for (i = 0; i < NAREAL; i++)
346 areal[i] = cpl_table_get_data_float(tab,col_areals[i]);
350 seeing(ap,nobjects,ellipt,pkht,areal,work,&fwhm);
361 static void tidy (
void) {
int do_seeing_4(ap_t *ap)
Dummy seeing routine for type 4 catalogue (object mask)
void tabinit_6(void)
Initialise type 6 catalogue.
int do_seeing_gen(ap_t *ap, const char *col_ellipt, const char *col_pkht, char *col_areals[NAREAL])
Do seeing estimate (generic)
int process_results_1(ap_t *ap)
Process results for type 1 catalogue.
int tabclose_4(ap_t *ap)
Close object mask.
void tabinit_gen(int ncols, const char *ttype[], const char *tunit[], cpl_type tform[])
Initialise tables (generic)
int process_results_6(ap_t *ap)
Process results for type 6 catalogue.
int do_seeing_2(ap_t *ap)
Do seeing estimate for type 2 catalogue.
int do_seeing_1(ap_t *ap)
Do seeing estimate for type 1 catalogue.
int process_results_3(ap_t *ap)
Process results for type 3 catalogue.
int do_seeing_3(ap_t *ap)
Do seeing estimate for type 3 catalogue.
void seeing(ap_t *ap, int nrows, float *ellipt, float *pkht, float **areal, float *work, float *fwhm)
Work out the median seeing.
int process_results_2(ap_t *ap)
Process results for type 2 catalogue.
int process_results_4(ap_t *ap)
Process results for type 4 catalogue (object mask)
int tabclose(ap_t *ap)
Close the table structure.
void tabinit_2(void)
Initialise type 2 catalogue.
int do_seeing(ap_t *ap)
Do seeing estimate.
void tabinit_4(ap_t *ap)
Initialise type 4 catalogue (object mask)
void tabinit_1(void)
Initialise type 1 catalogue.
void tabinit(ap_t *ap)
Initialise catalogues.
int do_seeing_6(ap_t *ap)
Do seeing estimate for type 6 catalogue.
int process_results(ap_t *ap)
Process results.
void tabinit_3(void)
Initialise type 1 catalogue.