Searched refs:dcosTheta (Results 1 – 2 of 2) sorted by relevance
3327 REAL(KIND=dp), DIMENSION(3) :: dcosTheta, dfi local3384 dcosTheta(:) = xij(:)*xij(3)/(rij**3)3385 dcosTheta(3) = dcosTheta(3) - 1.0_dp/rij3394 + dylm*dcosTheta(:)*COS(mm*fi) &3398 + dylm*dcosTheta(:)*SIN(mm*fi) &