6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
real function grille_m(xdata, ydata, entree, x, y) |
function grille_m(xdata, ydata, entree, x, y) |
10 |
|
|
11 |
!======================================================================= |
!======================================================================= |
12 |
! Z. X. Li (le 1 avril 1994) (voir aussi A. Harzallah et L. Fairhead) |
! Z. X. Li (le 1 avril 1994) (voir aussi A. Harzallah et L. Fairhead) |
43 |
REAL, intent(in):: entree(:, :) |
REAL, intent(in):: entree(:, :) |
44 |
REAL, intent(in):: x(:), y(:) |
REAL, intent(in):: x(:), y(:) |
45 |
|
|
46 |
dimension grille_m(size(x), size(y)) |
real grille_m(size(x), size(y)) |
47 |
|
|
48 |
! Variables local to the procedure: |
! Variables local to the procedure: |
49 |
INTEGER imdep, jmdep, imar, jmar |
INTEGER imdep, jmdep, imar, jmar |