From 18dadc1cd465f6a3d1fda99174486cf342efc5ff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ole=20Sch=C3=BCtt?= Date: Mon, 6 Oct 2025 12:49:51 +0200 Subject: [PATCH] PAO-ML: Fix cell shifts vectors --- src/pao_model.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/pao_model.F b/src/pao_model.F index 95e07389ae..a8ae500561 100644 --- a/src/pao_model.F +++ b/src/pao_model.F @@ -271,7 +271,7 @@ CONTAINS DO j = -1, +1 DO k = -1, +1 jcell = jcell + 1 - cell_shifts(jcell, :) = i*cell%hmat(1, :) + j*cell%hmat(2, :) + k*cell%hmat(3, :) + cell_shifts(jcell, :) = i*cell%hmat(:, 1) + j*cell%hmat(:, 2) + k*cell%hmat(:, 3) END DO END DO END DO