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

Diff of /trunk/libf/dyn3d/fxhyp.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 47  c    ......   arguments  de  sortie  ... Line 47  c    ......   arguments  de  sortie  ...
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
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21