Lines Matching refs:r0_23
371 r0_23, r0_24, r0_34, r1, r12, r13, & local
391 r0_23(:) = pos(:, index_b) - pos(:, index_c)
439 amat(4, 1) = -imass2*DOTPROD_3D(r0_23, lg4x6(iconst)%fa)
440 amat(4, 2) = imass3*DOTPROD_3D(r0_23, lg4x6(iconst)%fb)
442 amat(4, 4) = (imass3 + imass2)*DOTPROD_3D(r0_23, lg4x6(iconst)%fd)
443 amat(4, 5) = imass2*DOTPROD_3D(r0_23, lg4x6(iconst)%fe)
444 amat(4, 6) = -imass3*DOTPROD_3D(r0_23, lg4x6(iconst)%ff)
463 lg4x6(iconst)%r0_23 = r0_23
478 r0_23 = lg4x6(iconst)%r0_23
516 - dtsqby2*dtsqby2*DOTPROD_3D(vec, vec) - DOTPROD_3D(r0_23, r0_23)
636 fc2, fc3, fc4, r0_12, r0_13, r0_14, r0_23, r0_24, r0_34, r1, r12, r13, r14, r2, r23, r24, & local
654 r0_23(:) = pos(:, index_b) - pos(:, index_c)
711 amat(4, 1) = -imass2*DOTPROD_3D(r0_23, f_roll1)
712 amat(4, 2) = imass3*DOTPROD_3D(r0_23, f_roll2)
714 amat(4, 4) = (imass3 + imass2)*DOTPROD_3D(r0_23, f_roll4)
715 amat(4, 5) = imass2*DOTPROD_3D(r0_23, f_roll5)
716 amat(4, 6) = -imass3*DOTPROD_3D(r0_23, f_roll6)
735 lg4x6(iconst)%r0_23 = r0_23
756 r0_23 = lg4x6(iconst)%r0_23
800 - dtsqby2*dtsqby2*DOTPROD_3D(vec, vec) - DOTPROD_3D(r0_23, r0_23)