118 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
119 |
ENDIF |
ENDIF |
120 |
CASE('coll') |
CASE('coll') |
121 |
ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, & |
ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, nb_max, & |
122 |
miss_val, nb_max, work_out) |
work_out) |
123 |
CASE('fill') |
CASE('fill') |
124 |
ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, & |
ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, nb_max, & |
125 |
miss_val, nb_max, work_out) |
work_out) |
126 |
CASE('undef') |
CASE('undef') |
127 |
ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, & |
ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, & |
128 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
273 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
274 |
ENDIF |
ENDIF |
275 |
CASE('coll') |
CASE('coll') |
276 |
ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, & |
ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, nb_max, & |
277 |
miss_val, nb_max, work_out) |
work_out) |
278 |
CASE('fill') |
CASE('fill') |
279 |
ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, & |
ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, nb_max, & |
280 |
miss_val, nb_max, work_out) |
work_out) |
281 |
CASE('undef') |
CASE('undef') |
282 |
ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, & |
ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, & |
283 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
428 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
429 |
ENDIF |
ENDIF |
430 |
CASE('coll') |
CASE('coll') |
431 |
ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, & |
ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, nb_max, & |
432 |
miss_val, nb_max, work_out) |
work_out) |
433 |
CASE('fill') |
CASE('fill') |
434 |
ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, & |
ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, nb_max, & |
435 |
miss_val, nb_max, work_out) |
work_out) |
436 |
CASE('undef') |
CASE('undef') |
437 |
ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, & |
ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, & |
438 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |