Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_type), | intent(inout) | :: | matrix_b | |||
type(dbcsr_type), | intent(in) | :: | matrix_a | |||
character(len=*), | intent(in), | optional | :: | name | ||
logical, | intent(in), | optional | :: | keep_sparsity | ||
logical, | intent(in), | optional | :: | shallow_data | ||
logical, | intent(in), | optional | :: | keep_imaginary | ||
character(len=1), | intent(in), | optional | :: | matrix_type |
SUBROUTINE dbcsr_copy(matrix_b, matrix_a, name, keep_sparsity, &
shallow_data, keep_imaginary, matrix_type)
TYPE(dbcsr_type), INTENT(INOUT) :: matrix_b
TYPE(dbcsr_type), INTENT(IN) :: matrix_a
CHARACTER(LEN=*), INTENT(IN), OPTIONAL :: name
LOGICAL, INTENT(IN), OPTIONAL :: keep_sparsity, shallow_data, &
keep_imaginary
CHARACTER, INTENT(IN), OPTIONAL :: matrix_type
CALL dbcsr_copy_prv(matrix_b%prv, matrix_a%prv, name, keep_sparsity, &
shallow_data, keep_imaginary, matrix_type)
END SUBROUTINE dbcsr_copy