This commit is contained in:
Sharan Roongta 2019-10-18 17:13:19 +02:00
parent b502300ffc
commit 2c0264191e
1 changed files with 1 additions and 1 deletions

View File

@ -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