33 #include <casu_mods.h>
34 #include "../imcore.h"
39 float ell[] = {0.009,0.050,0.025,0.033,0.010,0.012,0.014,0.005,0.011,0.011};
40 float pk[] = {1007.065,101.293,204.195,493.250,559.111,609.799,642.603,
41 698.117,740.227,797.222};
42 int iareal[][10] = {{120, 53, 73, 104, 97, 109, 104, 107, 110, 110},
43 {100, 39, 60, 75, 80, 81, 86, 90, 94, 95},
44 {75, 21, 42, 63, 66, 64, 68, 69, 69, 70},
45 {63, 2, 21, 45, 45, 45, 45, 47, 56, 56},
46 {45, 0, 4, 25, 29, 29, 37, 37, 37, 37},
47 {25, 0, 0, 9, 9, 13, 14, 21, 21, 21},
48 {9, 0, 0, 0, 0, 0, 0, 1, 1, 0},
49 {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}};
51 float *work,fwhm,**areals;
56 cpl_test_init(PACKAGE_BUGREPORT,CPL_MSG_WARNING);
67 areals = cpl_malloc(8*
sizeof(
float *));
68 for (i = 0; i < 8; i++) {
69 areals[i] = cpl_malloc(10*
sizeof(
float));
70 for (j = 0; j < 10; j++)
71 areals[i][j] = (
float)iareal[i][j];
76 work = cpl_malloc(10*
sizeof(
float));
79 for (i = 0; i < 8; i++)
82 cpl_test_rel(fwhm,4.50384,0.01);
86 return(cpl_test_end(0));
void imcore_seeing(ap_t *ap, int nrows, float *ellipt, float *pkht, float **areal, float *work, float *fwhm)
Work out the median seeing.