Returns 2-D data type corresponding to the given 1-D one. \return 2-D data type
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | data_type |
PURE FUNCTION dbcsr_type_1d_to_2d(data_type)
!! Returns 2-D data type corresponding to the given 1-D one.
!! \return 2-D data type
INTEGER, INTENT(IN) :: data_type
INTEGER :: dbcsr_type_1d_to_2d
SELECT CASE (data_type)
CASE (dbcsr_type_real_4)
dbcsr_type_1d_to_2d = dbcsr_type_real_4_2d
CASE (dbcsr_type_real_8)
dbcsr_type_1d_to_2d = dbcsr_type_real_8_2d
CASE (dbcsr_type_complex_4)
dbcsr_type_1d_to_2d = dbcsr_type_complex_4_2d
CASE (dbcsr_type_complex_8)
dbcsr_type_1d_to_2d = dbcsr_type_complex_8_2d
CASE (dbcsr_type_real_4_2d)
dbcsr_type_1d_to_2d = dbcsr_type_real_4_2d
CASE (dbcsr_type_real_8_2d)
dbcsr_type_1d_to_2d = dbcsr_type_real_8_2d
CASE (dbcsr_type_complex_4_2d)
dbcsr_type_1d_to_2d = dbcsr_type_complex_4_2d
CASE (dbcsr_type_complex_8_2d)
dbcsr_type_1d_to_2d = dbcsr_type_complex_8_2d
CASE default
dbcsr_type_1d_to_2d = -1
END SELECT
END FUNCTION dbcsr_type_1d_to_2d