--- trunk/dyn3d/fxhyp_loop_ik.f	2015/02/10 17:58:56	127
+++ trunk/Sources/dyn3d/invert_zoom_x.f	2015/05/26 17:46:03	139
@@ -1,4 +1,4 @@
-module fxhyp_loop_ik_m
+module invert_zoom_x_m
 
   implicit none
 
@@ -6,12 +6,12 @@
 
 contains
 
-  subroutine fxhyp_loop_ik(xf, xtild, Xprimt, xlon, xprimm, xuv)
+  subroutine invert_zoom_x(xf, xtild, Xprimt, xlon, xprimm, xuv)
 
     use coefpoly_m, only: coefpoly
     USE dimens_m, ONLY: iim
+    use dynetat0_m, only: clon
     use nr_util, only: pi_d, twopi_d
-    use serre, only: clon
 
     DOUBLE PRECISION, intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax)
     real, intent(out):: xlon(:), xprimm(:) ! (iim)
@@ -81,6 +81,6 @@
     xlon = xvrai + clon
     xprimm = xxprim
 
-  end subroutine fxhyp_loop_ik
+  end subroutine invert_zoom_x
 
-end module fxhyp_loop_ik_m
+end module invert_zoom_x_m