475 |
|
|
476 |
!************************************************ |
!************************************************ |
477 |
|
|
478 |
INTEGER FUNCTION ma_fufill_r11(nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER FUNCTION ma_fufill_r11(nb, x, nbi, ind, nbo, y) |
479 |
INTEGER :: nb, nbo, nbi |
INTEGER :: nb, nbo, nbi |
480 |
INTEGER :: ind(nbi) |
INTEGER :: ind(nbi) |
481 |
REAL :: x(nb), miss_val, y(nbo) |
REAL :: x(nb), y(nbo) |
482 |
|
|
483 |
INTEGER :: i, ii, ipos |
INTEGER :: i, ii, ipos |
484 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
516 |
|
|
517 |
!************************************************ |
!************************************************ |
518 |
|
|
519 |
INTEGER FUNCTION ma_fucoll_r11(nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER FUNCTION ma_fucoll_r11(nb, x, nbi, ind, nbo, y) |
520 |
INTEGER :: nb, nbo, nbi |
INTEGER :: nb, nbo, nbi |
521 |
INTEGER :: ind(nbi) |
INTEGER :: ind(nbi) |
522 |
REAL :: x(nb), miss_val, y(nbo) |
REAL :: x(nb), y(nbo) |
523 |
|
|
524 |
INTEGER :: i, ipos |
INTEGER :: i, ipos |
525 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
1171 |
|
|
1172 |
!************************************************ |
!************************************************ |
1173 |
|
|
1174 |
INTEGER FUNCTION ma_fufill_r21(nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER FUNCTION ma_fufill_r21(nb, x, nbi, ind, nbo, y) |
1175 |
INTEGER :: nb(2), nbo, nbi |
INTEGER :: nb(2), nbo, nbi |
1176 |
INTEGER :: ind(nbi) |
INTEGER :: ind(nbi) |
1177 |
REAL :: x(nb(1), nb(2)), miss_val, y(nbo) |
REAL :: x(nb(1), nb(2)), y(nbo) |
1178 |
|
|
1179 |
INTEGER :: i, j, ij, ii, ipos |
INTEGER :: i, j, ij, ii, ipos |
1180 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
1214 |
|
|
1215 |
!************************************************ |
!************************************************ |
1216 |
|
|
1217 |
INTEGER FUNCTION ma_fucoll_r21(nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER FUNCTION ma_fucoll_r21(nb, x, nbi, ind, nbo, y) |
1218 |
INTEGER :: nb(2), nbo, nbi |
INTEGER :: nb(2), nbo, nbi |
1219 |
INTEGER :: ind(nbi) |
INTEGER :: ind(nbi) |
1220 |
REAL :: x(nb(1), nb(2)), miss_val, y(nbo) |
REAL :: x(nb(1), nb(2)), y(nbo) |
1221 |
|
|
1222 |
INTEGER :: i, j, ij, ipos |
INTEGER :: i, j, ij, ipos |
1223 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
1930 |
|
|
1931 |
!************************************************ |
!************************************************ |
1932 |
|
|
1933 |
INTEGER FUNCTION ma_fufill_r31(nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER FUNCTION ma_fufill_r31(nb, x, nbi, ind, nbo, y) |
1934 |
INTEGER :: nb(3), nbo, nbi |
INTEGER :: nb(3), nbo, nbi |
1935 |
INTEGER :: ind(nbi) |
INTEGER :: ind(nbi) |
1936 |
REAL :: x(nb(1), nb(2), nb(3)), miss_val, y(nbo) |
REAL :: x(nb(1), nb(2), nb(3)), y(nbo) |
1937 |
|
|
1938 |
INTEGER :: i, j, k, ij, ii, ipos, ipp, isb |
INTEGER :: i, j, k, ij, ii, ipos, ipp, isb |
1939 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |
1975 |
|
|
1976 |
!************************************************ |
!************************************************ |
1977 |
|
|
1978 |
INTEGER FUNCTION ma_fucoll_r31(nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER FUNCTION ma_fucoll_r31(nb, x, nbi, ind, nbo, y) |
1979 |
INTEGER :: nb(3), nbo, nbi |
INTEGER :: nb(3), nbo, nbi |
1980 |
INTEGER :: ind(nbi) |
INTEGER :: ind(nbi) |
1981 |
REAL :: x(nb(1), nb(2), nb(3)), miss_val, y(nbo) |
REAL :: x(nb(1), nb(2), nb(3)), y(nbo) |
1982 |
|
|
1983 |
INTEGER :: i, j, k, ij, ipos, ipp, isb |
INTEGER :: i, j, k, ij, ipos, ipp, isb |
1984 |
!--------------------------------------------------------------------- |
!--------------------------------------------------------------------- |