Small change to eliminate warning during compilation. Still lots of u…

…nused variables. These will largely be fixed when the 'inactive sites' changes are complete
sjtuzhanglei · Sep 10, 2019 · 3e1196e · 3e1196e
1 parent 07d7edb
commit 3e1196e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/enumeration_utilities.f90 b/src/enumeration_utilities.f90
@@ -321,7 +321,9 @@ SUBROUTINE get_HNF_of_derivative_structure(title,sLV,aBas,aTyp,pLV,dset,HNF,SNF,
     real(dp) :: testsite(3), diff(3)
 
     nAt = size(aBas,2)
-    if(nAt/=size(aTyp)) stop "Input to get_HNF_of_derivative_structure is inconsistent"
+    if(nAt/=size(aTyp)) then
+      write(*,'(A80)') title
+    stop "Input to get_HNF_of_derivative_structure is inconsistent"; endif
 
     nD = size(dset,2)