SUBROUTINE dbcsr_release_locals(matrix)
TYPE(dbcsr_type), INTENT(INOUT) :: matrix
IF (matrix%has_local_rows) &
CALL array_release(matrix%local_rows)
IF (matrix%has_global_rows) &
CALL array_release(matrix%global_rows)
IF (matrix%has_local_cols) &
CALL array_release(matrix%local_cols)
IF (matrix%has_global_cols) &
CALL array_release(matrix%global_cols)
matrix%has_local_rows = .FALSE.
matrix%has_global_rows = .FALSE.
matrix%has_local_cols = .FALSE.
matrix%has_global_cols = .FALSE.
END SUBROUTINE dbcsr_release_locals