Parent Directory | Revision Log | Patch
revision 139 by guez, Tue May 26 17:46:03 2015 UTC | revision 144 by guez, Wed Jun 10 16:46:46 2015 UTC | |
---|---|---|
# | Line 41 contains | Line 41 contains |
41 | ! Calcul de Xf(xvrai(i)) | ! Calcul de Xf(xvrai(i)) |
42 | ||
43 | xvrai(i) = xtild(it) | xvrai(i) = xtild(it) |
44 | IF (it == 2 * nmax) it = 2 * nmax -1 | |
IF (it == 2 * nmax) THEN | ||
it = 2 * nmax -1 | ||
END IF | ||
45 | CALL coefpoly(Xf(it), Xf(it + 1), Xprimt(it), Xprimt(it + 1), & | CALL coefpoly(Xf(it), Xf(it + 1), Xprimt(it), Xprimt(it + 1), & |
46 | xtild(it), xtild(it + 1), a0, a1, a2, a3) | xtild(it), xtild(it + 1), a0, a1, a2, a3) |
47 | Xf1 = Xf(it) | Xf1 = Xf(it) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |