index_ops: avoid allocating 0-size buffers and init them with negativ…

…e ranges for nblks=0 case
cp2k · Sep 7, 2023 · 3afed6e · 3afed6e
1 parent ba59d8c
commit 3afed6e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/block/dbcsr_index_operations.F b/src/block/dbcsr_index_operations.F
@@ -591,6 +591,7 @@ SUBROUTINE dbcsr_sort_indices(n, row_i, col_i, blk_p, blk_d)
 
 !   ---------------------------------------------------------------------------
 
+      IF (n .LE. 0) RETURN
       IF (SIZE(row_i) .EQ. 0) RETURN
 
       CALL timeset(routineN, error_handle)