Parent Directory | Revision Log | Patch
trunk/dyn3d/fxhyp_loop_ik.f revision 127 by guez, Tue Feb 10 17:58:56 2015 UTC | trunk/dyn3d/invert_zoom_x.f revision 131 by guez, Fri Feb 27 16:44:07 2015 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | module fxhyp_loop_ik_m | module invert_zoom_x_m |
2 | ||
3 | implicit none | implicit none |
4 | ||
# | Line 6 module fxhyp_loop_ik_m | Line 6 module fxhyp_loop_ik_m |
6 | ||
7 | contains | contains |
8 | ||
9 | subroutine fxhyp_loop_ik(xf, xtild, Xprimt, xlon, xprimm, xuv) | subroutine invert_zoom_x(xf, xtild, Xprimt, xlon, xprimm, xuv) |
10 | ||
11 | use coefpoly_m, only: coefpoly | use coefpoly_m, only: coefpoly |
12 | USE dimens_m, ONLY: iim | USE dimens_m, ONLY: iim |
# | Line 81 contains | Line 81 contains |
81 | xlon = xvrai + clon | xlon = xvrai + clon |
82 | xprimm = xxprim | xprimm = xxprim |
83 | ||
84 | end subroutine fxhyp_loop_ik | end subroutine invert_zoom_x |
85 | ||
86 | end module fxhyp_loop_ik_m | end module invert_zoom_x_m |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |