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) |
37 |
! grille_m: champ de sortie deja transforme |
! grille_m: champ de sortie deja transforme |
38 |
!======================================================================= |
!======================================================================= |
39 |
|
|
40 |
use nrutil, only: assert_eq |
use numer_rec, only: assert_eq |
41 |
|
|
42 |
REAL, intent(in):: xdata(:),ydata(:) |
REAL, intent(in):: xdata(:),ydata(:) |
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 |
413 |
|
|
414 |
! Methode naive (voir grille_m) |
! Methode naive (voir grille_m) |
415 |
|
|
416 |
use nrutil, only: assert_eq |
use numer_rec, only: assert_eq |
417 |
|
|
418 |
REAL, intent(in):: xdata(:), ydata(:), entree(:,:), x(:), y(:), mask(:,:) |
REAL, intent(in):: xdata(:), ydata(:), entree(:,:), x(:), y(:), mask(:,:) |
419 |
|
|
532 |
! Methode naive (voir grille_m) |
! Methode naive (voir grille_m) |
533 |
!======================================================================= |
!======================================================================= |
534 |
|
|
535 |
use nrutil, only: assert_eq |
use numer_rec, only: assert_eq |
536 |
|
|
537 |
REAL, intent(in):: xdata(:),ydata(:) |
REAL, intent(in):: xdata(:),ydata(:) |
538 |
REAL, intent(in):: glace01(:,:) |
REAL, intent(in):: glace01(:,:) |