From 6ad573437c388537aa39c14ccde8464d89f0a254 Mon Sep 17 00:00:00 2001 From: Atsushi Togo Date: Fri, 3 Feb 2023 10:27:17 +0900 Subject: [PATCH] Fix fortran interface of gridsys_rotate_bz_grid_index --- fortran/gridsysf.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fortran/gridsysf.f90 b/fortran/gridsysf.f90 index 3d85e9a6..6e59c584 100644 --- a/fortran/gridsysf.f90 +++ b/fortran/gridsysf.f90 @@ -148,8 +148,8 @@ module gridsysf import c_long integer(c_long), intent(in), value :: bz_grid_index integer(c_long), intent(in) :: rotation(3, 3) - integer(c_long), intent(inout) :: bz_grid_addresses(3, *) - integer(c_long), intent(inout) :: bz_map(*) + integer(c_long), intent(in) :: bz_grid_addresses(3, *) + integer(c_long), intent(in) :: bz_map(*) integer(c_long), intent(in) :: D_diag(3) integer(c_long), intent(in) :: PS(3) integer(c_long), intent(in), value :: bz_grid_type