5 |
implicit none |
implicit none |
6 |
|
|
7 |
PRIVATE |
PRIVATE |
8 |
PUBLIC :: mathop |
PUBLIC mathop |
9 |
|
|
10 |
INTERFACE mathop |
INTERFACE mathop |
11 |
MODULE PROCEDURE mathop_r11, mathop_r21, mathop_r31 |
MODULE PROCEDURE mathop_r11, mathop_r21, mathop_r31 |
56 |
|
|
57 |
INTEGER :: ierr |
INTEGER :: ierr |
58 |
|
|
|
INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS |
|
59 |
!-------------------------------------------------------------------- |
!-------------------------------------------------------------------- |
60 |
ierr = 0 |
ierr = 0 |
61 |
|
|
117 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
118 |
ENDIF |
ENDIF |
119 |
CASE('coll') |
CASE('coll') |
120 |
ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, & |
ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, nb_max, & |
121 |
miss_val, nb_max, work_out) |
work_out) |
122 |
CASE('fill') |
CASE('fill') |
123 |
ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, & |
ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, nb_max, & |
124 |
miss_val, nb_max, work_out) |
work_out) |
125 |
CASE('undef') |
CASE('undef') |
126 |
ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, & |
ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, & |
127 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
210 |
|
|
211 |
INTEGER :: ierr |
INTEGER :: ierr |
212 |
|
|
|
INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS |
|
213 |
!-------------------------------------------------------------------- |
!-------------------------------------------------------------------- |
214 |
ierr = 0 |
ierr = 0 |
215 |
|
|
271 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
272 |
ENDIF |
ENDIF |
273 |
CASE('coll') |
CASE('coll') |
274 |
ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, & |
ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, nb_max, & |
275 |
miss_val, nb_max, work_out) |
work_out) |
276 |
CASE('fill') |
CASE('fill') |
277 |
ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, & |
ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, nb_max, & |
278 |
miss_val, nb_max, work_out) |
work_out) |
279 |
CASE('undef') |
CASE('undef') |
280 |
ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, & |
ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, & |
281 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
364 |
|
|
365 |
INTEGER :: ierr |
INTEGER :: ierr |
366 |
|
|
|
INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS |
|
367 |
!-------------------------------------------------------------------- |
!-------------------------------------------------------------------- |
368 |
ierr = 0 |
ierr = 0 |
369 |
|
|
425 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |
426 |
ENDIF |
ENDIF |
427 |
CASE('coll') |
CASE('coll') |
428 |
ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, & |
ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, nb_max, & |
429 |
miss_val, nb_max, work_out) |
work_out) |
430 |
CASE('fill') |
CASE('fill') |
431 |
ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, & |
ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, nb_max, & |
432 |
miss_val, nb_max, work_out) |
work_out) |
433 |
CASE('undef') |
CASE('undef') |
434 |
ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, & |
ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, & |
435 |
miss_val, nb_max, work_out) |
miss_val, nb_max, work_out) |