\[ u(\vec{r}_{ij}, \vec{\mu}_i, \vec{\mu}_j) = \frac{1}{4\pi \epsilon} \left[ (\vec{\mu}_i \cdot \vec{\mu}_j) B_\alpha(r_{ij}) - (\vec{\mu}_i \cdot \vec{r}_{ij}) (\vec{\mu}_j \cdot \vec{r}_{ij}) C_\alpha(r_{ij}) \right] \] cf. des_real_B & des_real_C
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Abstract_DES_Real_Pair), | intent(in) | :: | this | |||
| real(kind=DP), | intent(in), | dimension(:) | :: | vector_ij | ||
| real(kind=DP), | intent(in), | dimension(:) | :: | moment_i | ||
| real(kind=DP), | intent(in), | dimension(:) | :: | moment_j |