Searched refs:kpptr (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | qs_band_structure.F | 124 REAL(KIND=dp), DIMENSION(3) :: kpptr local
176 READ (strptr(2), "(F12.8)") kpptr(1)
177 READ (strptr(3), "(F12.8)") kpptr(2)
178 READ (strptr(4), "(F12.8)") kpptr(3)
181 READ (strptr(1), "(F12.8)") kpptr(1)
182 READ (strptr(2), "(F12.8)") kpptr(2)
183 READ (strptr(3), "(F12.8)") kpptr(3)
189 kspecial(1:3, ip) = kpptr(1:3)
191 kspecial(1:3, ip) = (kpptr(1)*cell%hmat(1, 1:3) + &
192 kpptr(2)*cell%hmat(2, 1:3) + &
[all …]
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | qs_band_structure.F | 128 REAL(KIND=dp), DIMENSION(3) :: kpptr local
182 CALL read_float_object(strptr(i + 1), kpptr(i), error_message)
188 CALL read_float_object(strptr(i), kpptr(i), error_message)
196 kspecial(1:3, ip) = kpptr(1:3)
198 kspecial(1:3, ip) = (kpptr(1)*cell%hmat(1, 1:3) + &
199 kpptr(2)*cell%hmat(2, 1:3) + &
200 kpptr(3)*cell%hmat(3, 1:3))/twopi*angstrom
202 kspecial(1:3, ip) = (kpptr(1)*cell%hmat(1, 1:3) + &
203 kpptr(2)*cell%hmat(2, 1:3) + &
204 kpptr(3)*cell%hmat(3, 1:3))/twopi
|