dbcsr_put_block2d_z Subroutine

private subroutine dbcsr_put_block2d_z(matrix, row, col, block, summation, scale)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(inout) :: matrix
integer, intent(in) :: row
integer, intent(in) :: col
complex(kind=real_8), intent(in), DIMENSION(:, :):: block
logical, intent(in), optional :: summation
complex(kind=real_8), intent(in), optional :: scale

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_put_block2d_z (matrix, row, col, block, &
                                                  summation, scale)
         TYPE(dbcsr_type), INTENT(INOUT)          :: matrix
         INTEGER, INTENT(IN)                      :: row, col
         COMPLEX(kind=real_8), DIMENSION(:, :), INTENT(IN)     :: block
         LOGICAL, INTENT(IN), OPTIONAL            :: summation
         COMPLEX(kind=real_8), INTENT(IN), OPTIONAL            :: scale

         CALL dbcsr_put_block_prv(matrix%prv, row, col, block, summation=summation, scale=scale)
      END SUBROUTINE dbcsr_put_block2d_z