dbcsr_dot_c Subroutine

private subroutine dbcsr_dot_c(matrix_a, matrix_b, result)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), intent(in) :: matrix_a
type(dbcsr_type), intent(in) :: matrix_b
complex(kind=real_4), intent(inout) :: result

Source Code

      SUBROUTINE dbcsr_dot_c (matrix_a, matrix_b, result)
         TYPE(dbcsr_type), INTENT(IN)              :: matrix_a, matrix_b
         COMPLEX(kind=real_4), INTENT(INOUT)                  :: result

         CALL dbcsr_dot_prv(matrix_a%prv, matrix_b%prv, result)
      END SUBROUTINE dbcsr_dot_c