dbcsr_switch_sets Subroutine

private subroutine dbcsr_switch_sets(set1p, set2p)

Switches pointers between two matrix sets

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_2d_array_type), POINTER:: set1p
type(dbcsr_2d_array_type), POINTER:: set2p

Contents

Source Code


Source Code

   SUBROUTINE dbcsr_switch_sets(set1p, set2p)
      !! Switches pointers between two matrix sets
      TYPE(dbcsr_2d_array_type), POINTER                 :: set1p, set2p

      TYPE(dbcsr_2d_array_type), POINTER                 :: tmp_set

!   ---------------------------------------------------------------------------

      tmp_set => set1p
      set1p => set2p
      set2p => tmp_set
   END SUBROUTINE dbcsr_switch_sets