dbcsr_trace_d Subroutine

private subroutine dbcsr_trace_d(matrix_a, trace)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), intent(in) :: matrix_a
real(kind=real_8), intent(out) :: trace

Source Code

      SUBROUTINE dbcsr_trace_d (matrix_a, trace)
         TYPE(dbcsr_type), INTENT(IN)              :: matrix_a
         REAL(kind=real_8), INTENT(OUT)                     :: trace

         CALL dbcsr_trace_prv(matrix_a%prv, trace)
      END SUBROUTINE dbcsr_trace_d