dbcsr_switch_d_ptrs Subroutine

private subroutine dbcsr_switch_d_ptrs(area1p, area2p)

Switches pointers between two data areas

Arguments

Type IntentOptional Attributes Name
type(dbcsr_data_obj), POINTER :: area1p
type(dbcsr_data_obj), POINTER :: area2p

Source Code

   SUBROUTINE dbcsr_switch_d_ptrs(area1p, area2p)
      !! Switches pointers between two data areas
      TYPE(dbcsr_data_obj), POINTER                      :: area1p, area2p

      TYPE(dbcsr_data_obj), POINTER                      :: tmp_p

      tmp_p => area1p
      area1p => area2p
      area2p => tmp_p
   END SUBROUTINE dbcsr_switch_d_ptrs