/[lmdze]/trunk/libf/dyn3d/coefpoly.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/coefpoly.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 70 by guez, Wed Feb 27 13:16:39 2008 UTC revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC
# Line 18  c               a1  +     2.*a2*xtild2 + Line 18  c               a1  +     2.*a2*xtild2 +
18    
19  c  On en revient a resoudre un systeme de 4 equat.a 4 inconnues a0,a1,a2,a3  c  On en revient a resoudre un systeme de 4 equat.a 4 inconnues a0,a1,a2,a3
20    
21        REAL*8 Xf1, Xf2,Xprim1,Xprim2, xtild1,xtild2, xi        DOUBLE PRECISION Xf1, Xf2,Xprim1,Xprim2, xtild1,xtild2, xi
22        REAL*8 Xfout, Xprim        DOUBLE PRECISION Xfout, Xprim
23        REAL*8 a1,a2,a3,a0, xtil1car, xtil2car,derr,x1x2car        DOUBLE PRECISION a1,a2,a3,a0, xtil1car, xtil2car,derr,x1x2car
24    
25        xtil1car = xtild1 * xtild1        xtil1car = xtild1 * xtild1
26        xtil2car = xtild2 * xtild2        xtil2car = xtild2 * xtild2
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21