dbcsr_type_is_2d Function

public pure function dbcsr_type_is_2d(data_type)

Checks whether the data type is 2-D. \return Data type is 2-D.

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: data_type

Return Value logical


Contents

Source Code


Source Code

   PURE FUNCTION dbcsr_type_is_2d(data_type)
      !! Checks whether the data type is 2-D.
      !! \return Data type is 2-D.

      INTEGER, INTENT(IN)                                :: data_type
      LOGICAL                                            :: dbcsr_type_is_2d

      dbcsr_type_is_2d = data_type .EQ. dbcsr_type_real_4_2d .OR. &
                         data_type .EQ. dbcsr_type_real_8_2d .OR. &
                         data_type .EQ. dbcsr_type_complex_4_2d .OR. &
                         data_type .EQ. dbcsr_type_complex_8_2d
   END FUNCTION dbcsr_type_is_2d