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(:, :) |
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(:,:) |