dbcsr_desymmetrize Subroutine

public subroutine dbcsr_desymmetrize(matrix_a, matrix_b)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(in) :: matrix_a
type(dbcsr_type), intent(inout) :: matrix_b

Contents

Source Code


Source Code

   SUBROUTINE dbcsr_desymmetrize(matrix_a, matrix_b)
      TYPE(dbcsr_type), INTENT(IN)                       :: matrix_a
      TYPE(dbcsr_type), INTENT(INOUT)                    :: matrix_b

      CALL dbcsr_desymmetrize_deep_prv(matrix_a%prv, matrix_b%prv, untransposed_data=.TRUE.)
   END SUBROUTINE dbcsr_desymmetrize