Searched defs:set_sym_bl (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | symm_base.f90 | 126 SUBROUTINE set_sym_bl() subroutine
137 CHARACTER(LEN=6), EXTERNAL :: int_to_char
141 REAL(DP), PARAMETER :: sin3 = 0.866025403784438597d0, cos3 = 0.5d0, &
142 msin3 =-0.866025403784438597d0, mcos3 = -0.5d0
144 REAL(DP) :: s0(3,3,32), overlap(3,3), rat(3), rot(3,3), value
150 INTEGER :: jpol, kpol, mpol, irot, imat(32)
153 CHARACTER(LEN=45) :: s0name(64)
312 10 CONTINUE
|