Commit 9c285563c30716b63de00e330bdfe930a39a21a3
1 parent
00055ac083
Exists in
master
and in
2 other branches
Define constants in data statements as double precision
git-svn-id: https://lxsd.femto-st.fr/svn/fvn@71 b657c933-2333-4658-acf2-d3c7c2708721
Showing 1 changed file with 7 additions and 7 deletions Side-by-side Diff
fvn_misc/fvn_misc.f90
| ... | ... | @@ -111,11 +111,11 @@ |
| 111 | 111 | integer :: infer(kn+n) |
| 112 | 112 | |
| 113 | 113 | |
| 114 | - data zero/(0.0,0.0)/,p1/(0.1,0.0)/, & | |
| 115 | - one/(1.0,0.0)/,four/(4.0,0.0)/, & | |
| 116 | - p5/(0.5,0.0)/, & | |
| 117 | - rzero/0.0/,rten/10.0/,rhun/100.0/, & | |
| 118 | - ax/0.1/,ickmax/3/,rp01/0.01/ | |
| 114 | + data zero/(0.0d0,0.0d0)/,p1/(0.1d0,0.0d0)/, & | |
| 115 | + one/(1.0d0,0.0d0)/,four/(4.0d0,0.0d0)/, & | |
| 116 | + p5/(0.5d0,0.0d0)/, & | |
| 117 | + rzero/0.0d0/,rten/10.0d0/,rhun/100.0d0/, & | |
| 118 | + ax/0.1d0/,ickmax/3/,rp01/0.01d0/ | |
| 119 | 119 | |
| 120 | 120 | ier = 0 |
| 121 | 121 | if (n .lt. 1) then ! What the hell are doing here then ... |
| ... | ... | @@ -184,7 +184,7 @@ |
| 184 | 184 | bi = t1-t2+xx+t3 |
| 185 | 185 | den = bi*bi-four*(xx*t1-t3*(t2-xx)) |
| 186 | 186 | ! use denominator of maximum amplitude |
| 187 | - t1 = cdsqrt(den) | |
| 187 | + t1 = sqrt(den) | |
| 188 | 188 | qz = rhun*max(cdabs(bi),cdabs(t1)) |
| 189 | 189 | t2 = bi + t1 |
| 190 | 190 | tpq = cdabs(t2)+qz |