例如，如何在此处选择要打印的某些元素
TYPE mytype
INTEGER,DIMENSION(3) :: ints
REAL,DIMENSION(5) :: floats
CHARACTER,DIMENSION(3) :: chars
ENDTYPE mytype
TYPE(mytype) :: a
a%ints=[1,2,3]
a%floats=[1,2,3,4,5]
a%chars=['a','b','c']
WRITE(*,*)a
END
我想创建另一个包含以下各项的矩阵：int的第一个元素，即ints（1）和float的第二个元素，即floats（2）？