Lines Matching refs:Ji
173 REAL(KIND=dp) :: Bc(3),Ji(3),Jc(3),s,Perm(3,3,3),r local
177 Ji(1) = dHdx(3,2) - dHdx(2,3)
178 Ji(2) = dHdx(1,3) - dHdx(3,1)
179 Ji(3) = dHdx(2,1) - dHdx(1,2)
180 LF(1) = Ji(2)*B(3) - Ji(3)*B(2)
181 LF(2) = Ji(3)*B(1) - Ji(1)*B(3)
182 LF(3) = Ji(1)*B(2) - Ji(2)*B(1)
189 Ji(1) = -dHdx(3,2)
190 Ji(2) = dHdx(3,1)
192 Ji(2) = Ji(2) + B(3)/(r*mu)
194 Ji(2) = Ji(2) + Ji(2)
196 Ji(3) = dHdx(1,2) - dHdx(2,1)
198 LF(1) = Ji(3)*B(2) - Ji(2)*B(3)
199 LF(2) = Ji(1)*B(3) - Ji(3)*B(1)
204 LF(3) = Ji(2)*B(1) - Ji(1)*B(2)
207 LF(3) = ( Ji(2)*B(1) - Ji(1)*B(2) ) / r
233 Ji = 0.0d0
248 Ji(i) = s
254 Jc(i) = Jc(i) + Metric(i,j)*Ji(j)
460 REAL(KIND=dp) :: Bc(3),Ji(3),Jc(3),s,Perm(3,3,3),r local
464 Ji(1) = dHdx(3,2) - dHdx(2,3)
465 Ji(2) = dHdx(1,3) - dHdx(3,1)
466 Ji(3) = dHdx(2,1) - dHdx(1,2)
467 JH = Ji(1)*Ji(1) + Ji(2)*Ji(2) + Ji(3)*Ji(3)
473 Ji(1) = -dHdx(3,2)
474 Ji(2) = B(3)/(r*mu) + dHdx(3,1)
475 Ji(3) = dHdx(1,2) - dHdx(2,1)
476 JH = Ji(1)*Ji(1) + Ji(2)*Ji(2) + Ji(3)*Ji(3)
498 Ji = 0.0d0
513 Ji(i) = s
519 Jc(i) = Jc(i) + Metric(i,j)*Ji(j)
527 JH = JH + Ji(i) * Jc(i)