28 class(*),
intent(in) :: sdata
29 character(len=*),
intent(inout) :: type_string
32 type is (
integer(kind=i4_kind))
33 call string_copy(type_string,
"int")
34 type is (
integer(kind=i8_kind))
35 call string_copy(type_string,
"i8_kind")
36 type is (real(kind=r4_kind))
37 call string_copy(type_string,
"float")
38 type is (real(kind=r8_kind))
39 call string_copy(type_string,
"double")
40 type is (
character(len=*))
41 call string_copy(type_string,
"char")
43 call error(
"unsupported type.")
52 class(*),
dimension(:),
intent(in) :: sdata
53 character(len=*),
intent(inout) :: type_string
56 type is (
integer(kind=i4_kind))
57 call string_copy(type_string,
"int")
58 type is (
integer(kind=i8_kind))
59 call string_copy(type_string,
"i8_kind")
60 type is (real(kind=r4_kind))
61 call string_copy(type_string,
"float")
62 type is (real(kind=r8_kind))
63 call string_copy(type_string,
"double")
64 type is (
character(len=*))
65 call string_copy(type_string,
"char")
67 call error(
"unsupported type.")
76 class(*),
dimension(:,:),
intent(in) :: sdata
77 character(len=*),
intent(inout) :: type_string
80 type is (
integer(kind=i4_kind))
81 call string_copy(type_string,
"int")
82 type is (
integer(kind=i8_kind))
83 call string_copy(type_string,
"i8_kind")
84 type is (real(kind=r4_kind))
85 call string_copy(type_string,
"float")
86 type is (real(kind=r8_kind))
87 call string_copy(type_string,
"double")
88 type is (
character(len=*))
89 call string_copy(type_string,
"char")
91 call error(
"unsupported type.")
100 class(*),
dimension(:,:,:),
intent(in) :: sdata
101 character(len=*),
intent(inout) :: type_string
104 type is (
integer(kind=i4_kind))
105 call string_copy(type_string,
"int")
106 type is (
integer(kind=i8_kind))
107 call string_copy(type_string,
"i8_kind")
108 type is (real(kind=r4_kind))
109 call string_copy(type_string,
"float")
110 type is (real(kind=r8_kind))
111 call string_copy(type_string,
"double")
112 type is (
character(len=*))
113 call string_copy(type_string,
"char")
115 call error(
"unsupported type.")
124 class(*),
dimension(:,:,:,:),
intent(in) :: sdata
125 character(len=*),
intent(inout) :: type_string
128 type is (
integer(kind=i4_kind))
129 call string_copy(type_string,
"int")
130 type is (
integer(kind=i8_kind))
131 call string_copy(type_string,
"i8_kind")
132 type is (real(kind=r4_kind))
133 call string_copy(type_string,
"float")
134 type is (real(kind=r8_kind))
135 call string_copy(type_string,
"double")
136 type is (
character(len=*))
137 call string_copy(type_string,
"char")
139 call error(
"unsupported type.")
148 class(*),
dimension(:,:,:,:,:),
intent(in) :: sdata
149 character(len=*),
intent(inout) :: type_string
152 type is (
integer(kind=i4_kind))
153 call string_copy(type_string,
"int")
154 type is (
integer(kind=i8_kind))
155 call string_copy(type_string,
"i8_kind")
156 type is (real(kind=r4_kind))
157 call string_copy(type_string,
"float")
158 type is (real(kind=r8_kind))
159 call string_copy(type_string,
"double")
160 type is (
character(len=*))
161 call string_copy(type_string,
"char")
163 call error(
"unsupported type.")
subroutine get_data_type_string_4d(sdata, type_string)
Return a string describing the input data's type.
subroutine get_data_type_string_5d(sdata, type_string)
Return a string describing the input data's type.
subroutine get_data_type_string_1d(sdata, type_string)
Return a string describing the input data's type.
subroutine get_data_type_string_0d(sdata, type_string)
Return a string describing the input data's type.
subroutine get_data_type_string_3d(sdata, type_string)
Return a string describing the input data's type.
subroutine get_data_type_string_2d(sdata, type_string)
Return a string describing the input data's type.