Skip to content

Commit

Permalink
[pre-commit.ci] auto fixes from pre-commit.com hooks
Browse files Browse the repository at this point in the history
for more information, see https://pre-commit.ci
  • Loading branch information
pre-commit-ci[bot] committed Nov 20, 2024
1 parent efc539a commit b313c16
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions src/ops/dbcsr_operations.F
Original file line number Diff line number Diff line change
Expand Up @@ -356,16 +356,16 @@ SUBROUTINE dbcsr_zero(matrix_a)
END SELECT
!$ END IF
#else
SELECT CASE (dbcsr_get_data_type(matrix_a))
CASE (dbcsr_type_complex_4)
matrix_a%data_area%d%c_sp = (0.0, 0.0)
CASE (dbcsr_type_complex_8)
matrix_a%data_area%d%c_dp = (0.0_dp, 0.0_dp)
CASE (dbcsr_type_real_4)
matrix_a%data_area%d%r_sp = 0.0
CASE (dbcsr_type_real_8)
matrix_a%data_area%d%r_dp = 0.0_dp
END SELECT
SELECT CASE (dbcsr_get_data_type(matrix_a))
CASE (dbcsr_type_complex_4)
matrix_a%data_area%d%c_sp = (0.0, 0.0)
CASE (dbcsr_type_complex_8)
matrix_a%data_area%d%c_dp = (0.0_dp, 0.0_dp)
CASE (dbcsr_type_real_4)
matrix_a%data_area%d%r_sp = 0.0
CASE (dbcsr_type_real_8)
matrix_a%data_area%d%r_dp = 0.0_dp
END SELECT
#endif
CALL timestop(handle)
END SUBROUTINE dbcsr_zero
Expand Down

0 comments on commit b313c16

Please sign in to comment.