Searched refs:sgn_sym (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | us_exx.f90 | 816 INTEGER :: isym, sgn_sym, ibnd local
891 sgn_sym = SIGN(1, index_sym(ikq))
894 CALL becp_rotate_k( becxx0_global(index_xk(ikq))%k, becxx(ikq)%k, isym, sgn_sym, &
931 SUBROUTINE becp_rotate_k( becp0, becp, isym, sgn_sym, xk0, xk ) argument
959 INTEGER, INTENT(IN) :: sgn_sym local
985 IF (sgn_sym > 0) THEN
1001 IF (ABS(sgn_sym) /= 1) CALL errore( "becp_rotate", "sign must be +1 or -1", 1 )
1032 tau_phase = -tpi*( sgn_sym*SUM(tau(:,ia)*xk0) - SUM(tau(:,ma)*xk) )
1055 IF (sgn_sym > 0) THEN
|