15 if ((aw = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
16 printf(
"-E- %s line %d : error allocating memory for aw in flags_iop.\n",
20 if ((bbw = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
21 printf(
"-E- %s line %d : error allocating memory for bbw in flags_iop.\n",
26 for (iw = 0; iw < nwave; iw++) {
27 if (wave[iw] > w_hi)
break;
33 if ((
f->a_lo = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
34 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
38 if ((
f->a_hi = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
39 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
43 if ((
f->a_on = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
44 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
49 if ((
f->aph_lo = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
50 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
54 if ((
f->aph_hi = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
55 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
59 if ((
f->aph_on = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
60 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
65 if ((
f->adg_lo = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
66 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
70 if ((
f->adg_hi = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
71 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
75 if ((
f->adg_on = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
76 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
81 if ((
f->bb_lo = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
82 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
86 if ((
f->bb_hi = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
87 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
91 if ((
f->bb_on = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
92 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
97 if ((
f->bbp_lo = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
98 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
102 if ((
f->bbp_hi = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
103 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
107 if ((
f->bbp_on = (float32 *) calloc(nwave,
sizeof (float32))) ==
NULL) {
108 printf(
"-E- %s line %d : error allocating memory in init_iop_flag.\n",
114 for (iw = 0; iw <
f->nwave; iw++) {
116 f->a_lo[iw] = 0.95 * aw[iw];
120 f->aph_lo[iw] = -0.05 * aw[iw];
121 f->aph_hi[iw] = a_hi;
124 f->adg_lo[iw] = -0.05 * aw[iw];
125 f->adg_hi[iw] = a_hi;
128 f->bb_lo[iw] = 0.95 * bbw[iw];
132 f->bbp_lo[iw] = -0.05 * bbw[iw];
133 f->bbp_hi[iw] = b_hi;
137 for (iw =
f->nwave; iw < nwave; iw++) {
153 float a[],
float aph[],
float adg[],
154 float bb[], float32 bbp[], int16_t *flag) {
155 static int firstCall = 1;
165 for (iw = 0; iw < iopf.nwave; iw++) {
167 if (iopf.a_on[iw] &&
a !=
NULL) {
168 if (
a[iw] < iopf.a_lo[iw])
170 if (
a[iw] > iopf.a_hi[iw])
174 if (iopf.aph_on[iw] && aph !=
NULL) {
175 if (aph[iw] < iopf.aph_lo[iw])
177 if (aph[iw] > iopf.aph_hi[iw])
181 if (iopf.adg_on[iw] && adg !=
NULL) {
182 if (adg[iw] < iopf.adg_lo[iw])
184 if (adg[iw] > iopf.adg_hi[iw])
188 if (iopf.bb_on[iw] && bb !=
NULL) {
189 if (bb[iw] < iopf.bb_lo[iw])
191 if (bb[iw] > iopf.bb_hi[iw])
195 if (iopf.bbp_on[iw] && bbp !=
NULL) {
196 if (bbp[iw] < iopf.bbp_lo[iw])
198 if (bbp[iw] > iopf.bbp_hi[iw])