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)
# 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