block_buffer_destroy Subroutine

private subroutine block_buffer_destroy(buffer)

Arguments

TypeIntentOptionalAttributesName
type(block_buffer_type), intent(inout) :: buffer

Contents

Source Code


Source Code

   SUBROUTINE block_buffer_destroy(buffer)
      TYPE(block_buffer_type), INTENT(INOUT) :: buffer

      SELECT CASE (buffer%data_type)
# 211 "/__w/dbcsr/dbcsr/src/tensors/dbcsr_tensor_reshape.F"
            CASE (dbcsr_type_real_8)
            DEALLOCATE (buffer%msg_r_dp)
# 211 "/__w/dbcsr/dbcsr/src/tensors/dbcsr_tensor_reshape.F"
            CASE (dbcsr_type_real_4)
            DEALLOCATE (buffer%msg_r_sp)
# 211 "/__w/dbcsr/dbcsr/src/tensors/dbcsr_tensor_reshape.F"
            CASE (dbcsr_type_complex_8)
            DEALLOCATE (buffer%msg_c_dp)
# 211 "/__w/dbcsr/dbcsr/src/tensors/dbcsr_tensor_reshape.F"
            CASE (dbcsr_type_complex_4)
            DEALLOCATE (buffer%msg_c_sp)
# 214 "/__w/dbcsr/dbcsr/src/tensors/dbcsr_tensor_reshape.F"
      END SELECT
      DEALLOCATE (buffer%indx)
      buffer%nblock = -1
      buffer%data_type = -1
      buffer%ndim = -1
      buffer%endpos = -1
   END SUBROUTINE block_buffer_destroy