--- trunk/libf/dyn3d/grid_atob.f90	2008/07/28 14:48:09	14
+++ trunk/libf/dyn3d/grid_atob.f90	2008/08/01 15:24:12	15
@@ -6,7 +6,7 @@
 
 contains
 
-  real function grille_m(xdata, ydata, entree, x, y)
+  function grille_m(xdata, ydata, entree, x, y)
 
     !=======================================================================
     ! Z. X. Li (le 1 avril 1994) (voir aussi A. Harzallah et L. Fairhead)
@@ -43,7 +43,7 @@
     REAL, intent(in):: entree(:, :)
     REAL, intent(in):: x(:), y(:)
 
-    dimension grille_m(size(x), size(y))
+    real grille_m(size(x), size(y))
 
     ! Variables local to the procedure:
     INTEGER imdep, jmdep, imar, jmar