Fix variable type

vanderhe · Nov 19, 2024 · a48dbe9 · a48dbe9
1 parent d06e3f6
commit a48dbe9
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