# | 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 |