--- trunk/libf/dyn3d/grid_atob.f90 2008/02/27 13:16:39 3 +++ trunk/libf/dyn3d/grid_atob.f90 2008/07/25 19:59:34 13 @@ -37,7 +37,7 @@ ! grille_m: champ de sortie deja transforme !======================================================================= - use nrutil, only: assert_eq + use numer_rec, only: assert_eq REAL, intent(in):: xdata(:),ydata(:) REAL, intent(in):: entree(:, :) @@ -413,7 +413,7 @@ ! Methode naive (voir grille_m) - use nrutil, only: assert_eq + use numer_rec, only: assert_eq REAL, intent(in):: xdata(:), ydata(:), entree(:,:), x(:), y(:), mask(:,:) @@ -532,7 +532,7 @@ ! Methode naive (voir grille_m) !======================================================================= - use nrutil, only: assert_eq + use numer_rec, only: assert_eq REAL, intent(in):: xdata(:),ydata(:) REAL, intent(in):: glace01(:,:)