Searched refs:r0_13 (Results 1 – 11 of 11) sorted by relevance
390 r0_13(:) = pos(:, index_a) - pos(:, index_c)411 amat(2, 1) = imass1*DOTPROD_3D(r0_13, lg3x3(iconst)%fa)419 lg3x3(iconst)%r0_13 = r0_13427 r0_13 = lg3x3(iconst)%r0_13444 - dtsqby2*dtsqby2*DOTPROD_3D(vec, vec) - DOTPROD_3D(r0_13, r0_13)549 r0_13(:) = pos(:, index_a) - pos(:, index_c)574 amat(2, 1) = imass1*DOTPROD_3D(r0_13, f_roll1)576 amat(2, 3) = imass3*DOTPROD_3D(r0_13, f_roll3)582 lg3x3(iconst)%r0_13 = r0_13593 r0_13 = lg3x3(iconst)%r0_13[all …]
455 REAL(KIND=dp), DIMENSION(3) :: r0_12, r0_13, r0_23 local463 r0_13(:) = particle_set(index_a)%r - particle_set(index_c)%r467 rac = SQRT(DOT_PRODUCT(r0_13, r0_13))476 force(:, index_a) = force(:, index_a) - 2.0_dp*k*(r0_12/rab*tab + r0_13/rac*tac)478 force(:, index_c) = force(:, index_c) - 2.0_dp*k*(-r0_13/rac*tac - r0_23/rbc*tbc)520 REAL(KIND=dp), DIMENSION(3) :: r0_12, r0_13, r0_14, r0_23, r0_24, r0_34 local529 r0_13(:) = particle_set(index_a)%r - particle_set(index_c)%r536 rac = SQRT(DOT_PRODUCT(r0_13, r0_13))553 … force(:, index_a) = force(:, index_a) - 2.0_dp*k*(r0_12/rab*tab + r0_13/rac*tac + r0_14/rad*tad)555 … force(:, index_c) = force(:, index_c) - 2.0_dp*k*(-r0_13/rac*tac - r0_23/rbc*tbc + r0_34/rcd*tcd)
389 r0_13(:) = pos(:, index_a) - pos(:, index_c)461 lg4x6(iconst)%r0_13 = r0_13476 r0_13 = lg4x6(iconst)%r0_13502 - dtsqby2*dtsqby2*DOTPROD_3D(vec, vec) - DOTPROD_3D(r0_13, r0_13)653 r0_13(:) = pos(:, index_a) - pos(:, index_c)697 amat(2, 1) = imass1*DOTPROD_3D(r0_13, f_roll1)699 amat(2, 3) = imass1*DOTPROD_3D(r0_13, f_roll3)700 amat(2, 4) = imass3*DOTPROD_3D(r0_13, f_roll4)733 lg4x6(iconst)%r0_13 = r0_13754 r0_13 = lg4x6(iconst)%r0_13[all …]
31 perform_offset_multi_with_ref r0_13 s 0 {7 10 13} {2 5 2} {660 400 26 22} 1
31 perform_offset_multi_with_ref r0_13 s 0 {7 11} {3 3} {548 340 16 14} 1
31 perform_offset_multi_with_ref r0_13 s 0 {8 10 12} {3 3 3} {452 252 22 22} 1
53 r0_12, r0_13, r0_23 component65 r0_12, r0_13, r0_14, r0_23, r0_24, r0_34 component