Replace CPASSERT by CPABORT

cp2k · May 31, 2022 · f72b3b9 · f72b3b9
1 parent 96161d2
commit f72b3b9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/dbt/dbt_test.F b/src/dbt/dbt_test.F
@@ -95,9 +95,9 @@ FUNCTION dbt_equal(tensor1, tensor2)
       DO WHILE (dbt_iterator_blocks_left(iter))
          CALL dbt_iterator_next_block(iter, ind_nd, blk_size=blk_size)
          CALL dbt_get_block(tensor1, ind_nd, blk_data1, found)
-         CPASSERT(found)
+         IF (.NOT. found) CPABORT("Tensor block 1 not found")
          CALL dbt_get_block(tensor2_tmp, ind_nd, blk_data2, found)
-         CPASSERT(found)
+         IF (.NOT. found) CPABORT("Tensor block 2 not found")
 
          IF (.NOT. blocks_equal(blk_data1, blk_data2)) THEN
 !$OMP CRITICAL