dbcsr_trace_z Subroutine

private subroutine dbcsr_trace_z(matrix_a, trace)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(in) :: matrix_a
complex(kind=real_8), intent(out) :: trace

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_trace_z (matrix_a, trace)
         TYPE(dbcsr_type), INTENT(IN)              :: matrix_a
         COMPLEX(kind=real_8), INTENT(OUT)                     :: trace

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