47 |
c .... variables locales .... |
c .... variables locales .... |
48 |
c |
c |
49 |
REAL dzoom |
REAL dzoom |
50 |
REAL*8 xlon(iip1),xprimm(iip1),xuv |
DOUBLE PRECISION xlon(iip1),xprimm(iip1),xuv |
51 |
REAL*8 xtild(0:nmax2) |
DOUBLE PRECISION xtild(0:nmax2) |
52 |
REAL*8 fhyp(0:nmax2),ffdx,beta,Xprimt(0:nmax2) |
DOUBLE PRECISION fhyp(0:nmax2),ffdx,beta,Xprimt(0:nmax2) |
53 |
REAL*8 Xf(0:nmax2),xxpr(0:nmax2) |
DOUBLE PRECISION Xf(0:nmax2),xxpr(0:nmax2) |
54 |
REAL*8 xvrai(iip1),xxprim(iip1) |
DOUBLE PRECISION xvrai(iip1),xxprim(iip1) |
55 |
REAL*8 pi,depi,epsilon,xzoom,fa,fb |
DOUBLE PRECISION pi,depi,epsilon,xzoom,fa,fb |
56 |
REAL*8 Xf1, Xfi , a0,a1,a2,a3,xi2 |
DOUBLE PRECISION Xf1, Xfi , a0,a1,a2,a3,xi2 |
57 |
INTEGER i,it,ik,iter,ii,idif,ii1,ii2 |
INTEGER i,it,ik,iter,ii,idif,ii1,ii2 |
58 |
REAL*8 xi,xo1,xmoy,xlon2,fxm,Xprimin |
DOUBLE PRECISION xi,xo1,xmoy,xlon2,fxm,Xprimin |
59 |
REAL*8 champmin,champmax,decalx |
DOUBLE PRECISION champmin,champmax,decalx |
60 |
INTEGER is2 |
INTEGER is2 |
61 |
SAVE is2 |
SAVE is2 |
62 |
|
|
63 |
REAL*8 heavyside |
DOUBLE PRECISION heavyside |
64 |
|
|
65 |
pi = 2. * ASIN(1.) |
pi = 2. * ASIN(1.) |
66 |
depi = 2. * pi |
depi = 2. * pi |