swap_buffers Subroutine

private subroutine swap_buffers(buffers_1, buffers_2)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_buffer), intent(inout) :: buffers_1
type(dbcsr_buffer), intent(inout) :: buffers_2

Source Code

   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