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 |