dbcsr_trace_s Subroutine

private subroutine dbcsr_trace_s(matrix_a, trace)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(in) :: matrix_a
real(kind=real_4), intent(out) :: trace

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_trace_s (matrix_a, trace)
         TYPE(dbcsr_type), INTENT(IN)              :: matrix_a
         REAL(kind=real_4), INTENT(OUT)                     :: trace

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