From 2c0264191e54079b39fff1a552f69909c93f7457 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Fri, 18 Oct 2019 17:13:19 +0200 Subject: [PATCH] typo! --- src/lattice.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index 1d521c073..fada61392 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -2326,7 +2326,7 @@ function getlabels(active,potential,system,structure) result(labels) integer :: i,j integer :: & a, & !< index of active system - p, & !< index in complete system matrix + p, & !< index in potential system matrix f, & !< index of my family s !< index of my system in current family