Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | type_handle | ||||
integer, | public | :: | length | ||||
integer(kind=int_4), | public, | DIMENSION(:), POINTER | :: | data_i | |||
integer(kind=int_8), | public, | DIMENSION(:), POINTER | :: | data_l | |||
real(kind=real_4), | public, | DIMENSION(:), POINTER | :: | data_r | |||
real(kind=real_8), | public, | DIMENSION(:), POINTER | :: | data_d | |||
complex(kind=real_4), | public, | DIMENSION(:), POINTER | :: | data_c | |||
complex(kind=real_8), | public, | DIMENSION(:), POINTER | :: | data_z | |||
type(mp_type_descriptor_type), | public, | DIMENSION(:), POINTER | :: | subtype | |||
integer, | public | :: | vector_descriptor(2) | ||||
logical, | public | :: | has_indexing | ||||
type(mp_indexing_meta_type), | public | :: | index_descriptor |
TYPE mp_type_descriptor_type
INTEGER :: type_handle
INTEGER :: length
#if defined(__parallel)
INTEGER(kind=mpi_address_kind) :: base
#endif
INTEGER(kind=int_4), DIMENSION(:), POINTER :: data_i
INTEGER(kind=int_8), DIMENSION(:), POINTER :: data_l
REAL(kind=real_4), DIMENSION(:), POINTER :: data_r
REAL(kind=real_8), DIMENSION(:), POINTER :: data_d
COMPLEX(kind=real_4), DIMENSION(:), POINTER :: data_c
COMPLEX(kind=real_8), DIMENSION(:), POINTER :: data_z
TYPE(mp_type_descriptor_type), DIMENSION(:), POINTER :: subtype
INTEGER :: vector_descriptor(2)
LOGICAL :: has_indexing
TYPE(mp_indexing_meta_type) :: index_descriptor
END TYPE mp_type_descriptor_type