SUBROUTINE block_buffer_destroy(buffer)
TYPE(block_buffer_type), INTENT(INOUT) :: buffer
SELECT CASE (buffer%data_type)
# 672 "/__w/dbcsr/dbcsr/src/tas/dbcsr_tas_reshape_ops.F"
CASE (dbcsr_type_real_8)
DEALLOCATE (buffer%msg_r_dp)
# 672 "/__w/dbcsr/dbcsr/src/tas/dbcsr_tas_reshape_ops.F"
CASE (dbcsr_type_real_4)
DEALLOCATE (buffer%msg_r_sp)
# 672 "/__w/dbcsr/dbcsr/src/tas/dbcsr_tas_reshape_ops.F"
CASE (dbcsr_type_complex_8)
DEALLOCATE (buffer%msg_c_dp)
# 672 "/__w/dbcsr/dbcsr/src/tas/dbcsr_tas_reshape_ops.F"
CASE (dbcsr_type_complex_4)
DEALLOCATE (buffer%msg_c_sp)
# 675 "/__w/dbcsr/dbcsr/src/tas/dbcsr_tas_reshape_ops.F"
END SELECT
DEALLOCATE (buffer%indx)
buffer%nblock = -1
buffer%data_type = -1
buffer%endpos = -1
END SUBROUTINE block_buffer_destroy