dbcsr_trace_c Subroutine

private subroutine dbcsr_trace_c(matrix_a, trace)

Arguments

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

Source Code

      SUBROUTINE dbcsr_trace_c (matrix_a, trace)
         TYPE(dbcsr_type), INTENT(IN)              :: matrix_a
         COMPLEX(kind=real_4), INTENT(OUT)                     :: trace

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