--- trunk/dyn3d/fxhyp_loop_ik.f	2015/02/10 17:58:56	127
+++ trunk/Sources/dyn3d/invert_zoom_x.f	2015/06/10 16:46:46	144
@@ -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)
@@ -41,11 +41,7 @@
        ! Calcul de Xf(xvrai(i)) 
 
        xvrai(i) = xtild(it)
-
-       IF (it == 2 * nmax) THEN
-          it = 2 * nmax -1
-       END IF
-
+       IF (it == 2 * nmax) it = 2 * nmax -1
        CALL coefpoly(Xf(it), Xf(it + 1), Xprimt(it), Xprimt(it + 1), &
             xtild(it), xtild(it + 1), a0, a1, a2, a3)
        Xf1 = Xf(it)
@@ -81,6 +77,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