dbcsr_set_diag_s Subroutine

private subroutine dbcsr_set_diag_s(matrix, diag)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(inout) :: matrix
real(kind=real_4), intent(in), DIMENSION(:):: diag

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_set_diag_s (matrix, diag)
         TYPE(dbcsr_type), INTENT(INOUT)                    :: matrix
         REAL(kind=real_4), DIMENSION(:), INTENT(IN)                  :: diag

         CALL dbcsr_set_diag_prv(matrix%prv, diag)
      END SUBROUTINE dbcsr_set_diag_s