Searched refs:sqRdi (Results 1 – 2 of 2) sorted by relevance
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | rhoofdsp.F90 | 96 xr(3), Rdi, qRdi, cqRdi(nsp), sqRdi(nsp) local
305 sqRdi(isp) = sin(qRdi)
325 (Dij(3)*cqRdi(isp) + Dij(4)*sqRdi(isp))*Cij
327 (Dij(4)*cqRdi(isp) - Dij(3)*sqRdi(isp))*Cij
343 (Dij(3)*cqRdi(isp) + Dij(4)*sqRdi(isp))*Cij
345 (Dij(4)*cqRdi(isp) - Dij(3)*sqRdi(isp))*Cij
357 (Dij(3)*cqRdi(isp) + Dij(4)*sqRdi(isp))*Cij
359 (Dij(4)*cqRdi(isp) - Dij(3)*sqRdi(isp))*Cij
|
| H A D | vmatsp.F90 | 83 r2cut(nsmax), r2sp, xr(3), Rdi, qRdi, cqRdi, sqRdi local
323 sqRdi = sin(qRdi)
327 VClocal(3,isp) = (V(isp,ip,3)*cqRdi - V(isp,ip,4)*sqRdi) * Clocal(isp,ic)
328 VClocal(4,isp) = (V(isp,ip,4)*cqRdi + V(isp,ip,3)*sqRdi) * Clocal(isp,ic)
|