Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_buffer), | intent(inout) | :: | buffers_1 | |||
type(dbcsr_buffer), | intent(inout) | :: | buffers_2 |
SUBROUTINE swap_buffers(buffers_1, buffers_2)
TYPE(dbcsr_buffer), INTENT(INOUT) :: buffers_1, buffers_2
TYPE(dbcsr_buffer) :: tmp
tmp = buffers_1
buffers_1 = buffers_2
buffers_2 = tmp
END SUBROUTINE swap_buffers