dbcsr_data_clear_nt Subroutine

private subroutine dbcsr_data_clear_nt(area, lb, ub, value, lb2, ub2, tr)

Clears a data area, possibly transposed.

Arguments

Type IntentOptional Attributes Name
type(dbcsr_data_obj), intent(inout) :: area
integer, intent(in), optional :: lb
integer, intent(in), optional :: ub
type(dbcsr_scalar_type), intent(in), optional :: value
integer, intent(in), optional :: lb2
integer, intent(in), optional :: ub2
logical, intent(in) :: tr

Contents

Source Code


Source Code

   SUBROUTINE dbcsr_data_clear_nt(area, lb, ub, value, lb2, ub2, tr)
      !! Clears a data area, possibly transposed.
      TYPE(dbcsr_data_obj), INTENT(INOUT)                :: area
      INTEGER, INTENT(IN), OPTIONAL                      :: lb, ub
      TYPE(dbcsr_scalar_type), INTENT(IN), OPTIONAL      :: value
      INTEGER, INTENT(IN), OPTIONAL                      :: lb2, ub2
      LOGICAL, INTENT(in)                                :: tr

!     ---------------------------------------------------------------------------
      IF (tr) THEN
         CALL dbcsr_data_clear0(area, lb=lb2, ub=ub2, value=value, lb2=lb, ub2=ub)
      ELSE
         CALL dbcsr_data_clear0(area, lb=lb, ub=ub, value=value, lb2=lb2, ub2=ub2)
      END IF
   END SUBROUTINE dbcsr_data_clear_nt