# | Line 39 | Line 39 | subroutine doForceloop(q, q_group, A, eFrame, f, t, ta | |
---|---|---|
39 | ||
40 | !! Stress Tensor | |
41 | real( kind = dp), dimension(9) :: tau | |
42 | < | real ( kind = dp ),dimension(POT_ARRAY_SIZE) :: pot |
42 | > | real ( kind = dp ),dimension(LR_POT_TYPES) :: pot |
43 | logical ( kind = 2) :: do_pot_c, do_stress_c | |
44 | integer :: error | |
45 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |