/[lmdze]/trunk/IOIPSL/mathop2.f
ViewVC logotype

Diff of /trunk/IOIPSL/mathop2.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 137 by guez, Wed May 6 15:51:03 2015 UTC
# Line 475  CONTAINS Line 475  CONTAINS
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      !---------------------------------------------------------------------      !---------------------------------------------------------------------
# Line 516  CONTAINS Line 516  CONTAINS
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      !---------------------------------------------------------------------      !---------------------------------------------------------------------
# Line 1171  CONTAINS Line 1171  CONTAINS
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      !---------------------------------------------------------------------      !---------------------------------------------------------------------
# Line 1214  CONTAINS Line 1214  CONTAINS
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      !---------------------------------------------------------------------      !---------------------------------------------------------------------
# Line 1930  CONTAINS Line 1930  CONTAINS
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      !---------------------------------------------------------------------      !---------------------------------------------------------------------
# Line 1975  CONTAINS Line 1975  CONTAINS
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      !---------------------------------------------------------------------      !---------------------------------------------------------------------
Legend:
Removed from v.134  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.21