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.