lxsd / fvn

Download as
Browse Code ยป

Commit 00055ac08315061e3fd7a85487896e6297dd7726

Authored by kwagner
1 parent 0c3098aed9
Exists in master and in 2 other branches geevx_2020, multi

Define some constants as double precision objects, in order to remove compiler warnings. 

git-svn-id: https://lxsd.femto-st.fr/svn/fvn@70 b657c933-2333-4658-acf2-d3c7c2708721

Showing 16 changed files with 44 additions and 44 deletions Side-by-side Diff

1 1 subroutine beskes (xnu, x, nin, bke)
2 2 c july 1980 edition. w. fullerton, c3, los alamos scientific lab.
3   - dimension bke(1)
  3 + dimension bke(*)
4 4 external r1mach
5 5 data alnbig / 0. /
6 6 c
1 1 subroutine dbskes (xnu, x, nin, bke)
2 2 c july 1980 edition. w. fullerton, c3, los alamos scientific lab.
3   - double precision xnu, x, bke(1), bknu1, v, vincr, vend, alnbig,
  3 + double precision xnu, x, bke(*), bknu1, v, vincr, vend, alnbig,
4 4 1 d1mach, dlog
5 5 external d1mach
6 6 data alnbig / 0.d0 /
... ... @@ -9,14 +9,14 @@
9 9 c when real(z) is negative, c8lgmc merely returns a correction which
10 10 c may be wrong by a multiple of 2*pi*i.
11 11 c
12   - complex(kind(1.d0)) zin, z, corr, z9lgmc, z0lgmc, zexp, zlnrel
  12 + complex(kind(1.d0)) zin, z, corr, z9lgmc, z0lgmc, zlnrel
13 13 real(kind(1.d0)) d1mach,pi,bound,sqeps,eps,x,y,absz,test
14 14 integer nterm,n,i,irold,ir
15 15 c complex(kind(1.d0)) tmp_arg
16 16 external z0lgmc, z9lgmc, zlnrel,
17 17 1 d1mach
18 18 data pi / 3.1415926535 8979324d0 /
19   - data bound, sqeps, eps / 3*0.0 /
  19 + data bound, sqeps, eps / 3*0.0d0 /
20 20 c
21 21 if (bound.ne.0.0) go to 10
22 22 nterm = -0.30*log(d1mach(3))
... ... @@ -13,19 +13,19 @@
13 13 external d1mach
14 14 c
15 15 dimension bern(11)
16   - data bern( 1) / .08333333333 3333333e0 /
17   - data bern( 2) / -.002777777777 7777778e0 /
18   - data bern( 3) / .0007936507936 5079365e0 /
19   - data bern( 4) / -.0005952380952 3809524e0 /
20   - data bern( 5) / .0008417508417 5084175e0 /
21   - data bern( 6) / -.001917526917 5269175e0 /
22   - data bern( 7) / .006410256410 2564103e0 /
23   - data bern( 8) / -.02955065359 4771242e0 /
24   - data bern( 9) / .1796443723 6883057e0 /
25   - data bern(10) / -1.392432216 9059011e0 /
26   - data bern(11) / 13.40286404 4168392e0 /
  16 + data bern( 1) / .08333333333 3333333d0 /
  17 + data bern( 2) / -.002777777777 7777778d0 /
  18 + data bern( 3) / .0007936507936 5079365d0 /
  19 + data bern( 4) / -.0005952380952 3809524d0 /
  20 + data bern( 5) / .0008417508417 5084175d0 /
  21 + data bern( 6) / -.001917526917 5269175d0 /
  22 + data bern( 7) / .006410256410 2564103d0 /
  23 + data bern( 8) / -.02955065359 4771242d0 /
  24 + data bern( 9) / .1796443723 6883057d0 /
  25 + data bern(10) / -1.392432216 9059011d0 /
  26 + data bern(11) / 13.40286404 4168392d0 /
27 27 c
28   - data nterm, bound, xbig, xmax / 0, 3*0.0 /
  28 + data nterm, bound, xbig, xmax / 0d0, 3*0.0d0 /
29 29 c
30 30 if (nterm.ne.0) go to 10
31 31 c
... ... @@ -12,8 +12,8 @@
12 12  
13 13 data pi2 /1.5707963267 9489661923d0/
14 14 data pi /3.1415926535 8979324d0/
15   - data ci /(0.,1.)/
16   - data nterms, rmin / 0, 0.0 /
  15 + data ci /(0.d0,1.d0)/
  16 + data nterms, rmin / 0, 0.0d0 /
17 17 c
18 18 if (nterms.ne.0) go to 10
19 19 c nterms = alog(eps)/alog(rmax) where rmax = 0.1
... ... @@ -3,7 +3,7 @@
3 3 c april 1977 version. w. fullerton, c3, los alamos scientific lab.
4 4 complex(kind(1.d0)) z, ci, zatan
5 5 external zatan
6   - data ci /(0.,1.)/
  6 + data ci /(0.d0,1.d0)/
7 7 c
8 8 zatanh = -ci*zatan(ci*z)
9 9 c
... ... @@ -4,7 +4,7 @@
4 4 complex(kind(1.d0)) a, b, zgamma, zlbeta
5 5 real(kind(1.d0)) xmax,xmin
6 6 external zgamma, zlbeta
7   - data xmax / 0.0 /
  7 + data xmax / 0.0d0 /
8 8 c
9 9 if (xmax.eq.0.0) call d9gaml (xmin, xmax)
10 10 c
... ... @@ -2,7 +2,7 @@
2 2 implicit none
3 3 c april 1977 version. w. fullerton, c3, los alamos scientific lab.
4 4 complex(kind(1.d0)) z, ci
5   - data ci /(0.,1.)/
  5 + data ci /(0.d0,1.d0)/
6 6 c
7 7 zcosh = cos (ci*z)
8 8 c
... ... @@ -7,7 +7,7 @@
7 7 real(kind(1.d0)) x,y,x2,y2,sn2x,den
8 8 integer irold,irold2
9 9 external d1mach
10   - data eps, xmax, ylarge, ybig, rmin, ymin / 5*0.0, 1.5 /
  10 + data eps, xmax, ylarge, ybig, rmin, ymin / 5*0.0d0, 1.5d0 /
11 11 c
12 12 if (eps.ne.0.0) go to 10
13 13 eps = d1mach(4)
... ... @@ -12,7 +12,7 @@
12 12 real(kind(1.d0)) sqeps,r,xn,xln,rbnd,d1mach,alneps
13 13 external d1mach
14 14 integer nterms,irold,irold2,i
15   - data nterms, rbnd, sqeps / 0, 2*0.0 /
  15 + data nterms, rbnd, sqeps / 0d0, 2*0.0d0 /
16 16 c
17 17 if (nterms.ne.0) go to 10
18 18 alneps = log(d1mach(3))
... ... @@ -11,7 +11,7 @@
11 11 data pi / 3.1415926535 8979324d0 /
12 12 data sq2pil / 0.9189385332 0467274d0 /
13 13 c
14   - data bound, dxrel, rmax / 3*0.0 /
  14 + data bound, dxrel, rmax / 3*0.0d0 /
15 15 c
16 16 if (bound.ne.0.) go to 10
17 17 n = -0.30*log(d1mach(3))
... ... @@ -13,7 +13,7 @@
13 13 complex(kind(1.d0)) z
14 14 real(kind(1.d0)) dlnrel,d1mach,zarg,sqeps,x,rho
15 15 external dlnrel, zarg, d1mach
16   - data sqeps /0.0/
  16 + data sqeps /0.0d0/
17 17 c
18 18 if (sqeps.eq.0.) sqeps = sqrt (d1mach(4))
19 19 c
... ... @@ -8,22 +8,22 @@
8 8 integer nterm,ndx,n,i
9 9 external zcot, d1mach
10 10 c
11   - data bern( 1) / .8333333333 3333333 e-1 /
12   - data bern( 2) / -.8333333333 3333333 e-2 /
13   - data bern( 3) / .3968253968 2539683 e-2 /
14   - data bern( 4) / -.4166666666 6666667 e-2 /
15   - data bern( 5) / .7575757575 7575758 e-2 /
16   - data bern( 6) / -.2109279609 2796093 e-1 /
17   - data bern( 7) / .8333333333 3333333 e-1 /
18   - data bern( 8) / -.4432598039 2156863 e0 /
19   - data bern( 9) / .3053954330 2701197 e1 /
20   - data bern(10) / -.2645621212 1212121 e2 /
21   - data bern(11) / .2814601449 2753623 e3 /
22   - data bern(12) / -.3454885393 7728938 e4 /
23   - data bern(13) / .5482758333 3333333 e5 /
  11 + data bern( 1) / .8333333333 3333333 d-1 /
  12 + data bern( 2) / -.8333333333 3333333 d-2 /
  13 + data bern( 3) / .3968253968 2539683 d-2 /
  14 + data bern( 4) / -.4166666666 6666667 d-2 /
  15 + data bern( 5) / .7575757575 7575758 d-2 /
  16 + data bern( 6) / -.2109279609 2796093 d-1 /
  17 + data bern( 7) / .8333333333 3333333 d-1 /
  18 + data bern( 8) / -.4432598039 2156863 d0 /
  19 + data bern( 9) / .3053954330 2701197 d1 /
  20 + data bern(10) / -.2645621212 1212121 d2 /
  21 + data bern(11) / .2814601449 2753623 d3 /
  22 + data bern(12) / -.3454885393 7728938 d4 /
  23 + data bern(13) / .5482758333 3333333 d5 /
24 24 c
25   - data pi / 3.141592653 589793 e0 /
26   - data nterm, bound, dxrel, rmin, rbig / 0, 4*0.0 /
  25 + data pi / 3.141592653 589793 d0 /
  26 + data nterm, bound, dxrel, rmin, rbig / 0d0, 4*0.0d0 /
27 27 c
28 28 if (nterm.ne.0) go to 10
29 29 nterm = -0.30*log(d1mach(3))
... ... @@ -2,7 +2,7 @@
2 2 implicit none
3 3 c april 1977 version. w. fullerton, c3, los alamos scientific lab.
4 4 complex(kind(1.d0)) z, ci
5   - data ci /(0.,1.)/
  5 + data ci /(0.d0,1.d0)/
6 6 c
7 7 zsinh = -ci*sin(ci*z)
8 8 c
... ... @@ -6,7 +6,7 @@
6 6 real(kind(1.d0)) x,y,x2,y2
7 7 integer irold,irold2
8 8 external d1mach
9   - data eps, xmax, ylarge, ybig, ymin / 4*0.0, 1.50 /
  9 + data eps, xmax, ylarge, ybig, ymin / 4*0.0d0, 1.50d0 /
10 10 c
11 11 if (eps.ne.0.0) go to 10
12 12 eps = d1mach(4)
... ... @@ -2,7 +2,7 @@
2 2 c april 1977 version. w. fullerton, c3, los alamos scientific lab.
3 3 complex(kind(1.d0)) z, ci, ztan
4 4 external ztan
5   - data ci /(0.,1.)/
  5 + data ci /(0.d0,1.d0)/
6 6 c
7 7 ztanh = -ci*ztan(ci*z)
8 8 c