mp_type_descriptor_type Derived Type

type, public :: mp_type_descriptor_type


Components

Type Visibility Attributes Name Initial
integer, public :: type_handle = mp_datatype_null_handle
integer, public :: length = -1
integer(kind=int_4), public, DIMENSION(:), POINTER :: data_i => NULL()
integer(kind=int_8), public, DIMENSION(:), POINTER :: data_l => NULL()
real(kind=real_4), public, DIMENSION(:), POINTER :: data_r => NULL()
real(kind=real_8), public, DIMENSION(:), POINTER :: data_d => NULL()
complex(kind=real_4), public, DIMENSION(:), POINTER :: data_c => NULL()
complex(kind=real_8), public, DIMENSION(:), POINTER :: data_z => NULL()
type(mp_type_descriptor_type), public, DIMENSION(:), POINTER :: subtype => NULL()
integer, public :: vector_descriptor(2) = -1
logical, public :: has_indexing = .FALSE.
type(mp_indexing_meta_type), public :: index_descriptor = mp_indexing_meta_type()

Source Code

   TYPE mp_type_descriptor_type
      MPI_DATA_TYPE :: type_handle = mp_datatype_null_handle
      INTEGER :: length = -1
#if defined(__parallel)
      INTEGER(kind=mpi_address_kind) :: base = -1_mpi_address_kind
#endif
      INTEGER(kind=int_4), DIMENSION(:), POINTER :: data_i => NULL()
      INTEGER(kind=int_8), DIMENSION(:), POINTER :: data_l => NULL()
      REAL(kind=real_4), DIMENSION(:), POINTER :: data_r => NULL()
      REAL(kind=real_8), DIMENSION(:), POINTER :: data_d => NULL()
      COMPLEX(kind=real_4), DIMENSION(:), POINTER :: data_c => NULL()
      COMPLEX(kind=real_8), DIMENSION(:), POINTER :: data_z => NULL()
      TYPE(mp_type_descriptor_type), DIMENSION(:), POINTER :: subtype => NULL()
      INTEGER :: vector_descriptor(2) = -1
      LOGICAL :: has_indexing = .FALSE.
      TYPE(mp_indexing_meta_type) :: index_descriptor = mp_indexing_meta_type()
   END TYPE mp_type_descriptor_type