Searched defs:force_us_gamma (Results 1 – 1 of 1) sorted by relevance
135 SUBROUTINE force_us_gamma( forcenl ) subroutine141 REAL(DP) :: forcenl(3,nat)146 REAL(DP), ALLOCATABLE :: aux(:,:)147 INTEGER :: nt, na, ibnd, ibnd_loc, ih, jh, ijkb0 ! counters