scnc
/
phono3py
mirror of https://github.com/phonopy/phono3py.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix fortran interface of gridsys_rotate_bz_grid_index

This commit is contained in:
Atsushi Togo 2023-02-03 10:27:17 +09:00
parent 1aa1da1123
commit 6ad573437c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/gridsysf.f90
View File

@ -148,8 +148,8 @@ module gridsysf
import c_long import c_long
integer(c_long), intent(in), value :: bz_grid_index integer(c_long), intent(in), value :: bz_grid_index
integer(c_long), intent(in) :: rotation(3, 3) integer(c_long), intent(in) :: rotation(3, 3)
integer(c_long), intent(inout) :: bz_grid_addresses(3, *) integer(c_long), intent(in) :: bz_grid_addresses(3, *)
integer(c_long), intent(inout) :: bz_map(*) integer(c_long), intent(in) :: bz_map(*)
integer(c_long), intent(in) :: D_diag(3) integer(c_long), intent(in) :: D_diag(3)
integer(c_long), intent(in) :: PS(3) integer(c_long), intent(in) :: PS(3)
integer(c_long), intent(in), value :: bz_grid_type integer(c_long), intent(in), value :: bz_grid_type