T_bare Function

public function T_bare(r, dT, grad) result(T)

$$T_{ab}(\mathbf r)=\frac{\partial^2}{\partial r_a\partial r_b}\frac1r= \frac{-3r_ar_b+r^2\delta_{ab}}{r^5},\qquad \frac{\partial T_{ab}(\mathbf r)}{\partial r_c}=-3\left( \frac{r_a\delta_{bc}+r_b\delta_{ca}+r_c\delta_{ab}}{r^5}- \frac{5r_ar_br_c}{r^7} \right)$$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	r(3)
type(grad_matrix_re_t),	intent(out),	optional		::	dT
logical,	intent(in),	optional		::	grad

Return Value real(kind=dp) (3,3)

Contents

None