Searched defs:compute_ux (Results 1 – 1 of 1) sorted by relevance
8 SUBROUTINE compute_ux( m_loc,ux,nat ) subroutine20 INTEGER, INTENT(IN) :: nat22 REAL(DP), INTENT(OUT) :: ux(3)24 REAL(DP), INTENT(IN) :: m_loc(3,nat)29 REAL(DP) :: amag, uxmod ! modulus of the magnetization and of ux 31 INTEGER :: na ! counter on atoms32 INTEGER :: starting_na ! auxiliary variable33 LOGICAL :: is_parallel ! external function true if two vectors are parallel61 IF (uxmod<eps12) CALL errore( 'compute_ux','strange uxmod', 1 ) argument