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) {