Fix variable type

dftbplus · Sep 25, 2024 · b6440fa · b6440fa
1 parent aa34b49
commit b6440fa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sktwocnt/lib/twocnt.F90 b/sktwocnt/lib/twocnt.F90
@@ -789,7 +789,7 @@ subroutine cropData(inp, tConverged, nDistPer1Bohr, maxdist, skham, skover)
     integer :: iSmallBatchStart, iSmallBatchEnd
 
     !! maximum absolute of H and S matrix elements in current 1 Bohr batch
-    integer :: maxabs
+    real(dp) :: maxabs
 
     !! end index when cropping H and S
     integer :: iEnd