| # | Line 184 | Line 184 | contains | |
|---|---|---|
| 184 | integer :: j | |
| 185 | real ( kind = dp ) :: a, b, c, d, dx | |
| 186 | ||
| 187 | < | sw = 0.0d0 |
| 187 | > | sw = 1.0d0 |
| 188 | dswdr = 0.0d0 | |
| 189 | in_switching_region = .false. | |
| 190 | ||
| 191 | < | if (r2.lt.rout2) then |
| 192 | < | if (r2.lt.rin2) then |
| 191 | > | if (r2.gt.rin2) then |
| 192 | > | if (r2.gt.rout2) then |
| 193 | ||
| 194 | < | sw = 1.0d0 |
| 194 | > | sw = 0.0d0 |
| 195 | dswdr = 0.0d0 | |
| 196 | return | |
| 197 | < | |
| 197 | > | |
| 198 | else | |
| 199 | ||
| 200 | call lookupUniformSpline(r2Spline, r2, r) | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |