SYNTAX
------

C Syntax
^^^^^^^^

.. code-block:: c

    int MPI_Type_create_indexed_block(int count, int blocklength, const
        int array_of_displacements[], MPI_Datatype oldtype,
        MPI_Datatype* newtype)

    int MPI_Type_create_indexed_block_c(MPI_Count count, MPI_Count
        blocklength, const MPI_Count array_of_displacements[],
        MPI_Datatype oldtype, MPI_Datatype* newtype)

    int MPI_Type_create_hindexed_block(int count, int blocklength, const
        MPI_Aint array_of_displacements[], MPI_Datatype oldtype,
        MPI_Datatype* newtype)

    int MPI_Type_create_hindexed_block_c(MPI_Count count, MPI_Count
        blocklength, const MPI_Count array_of_displacements[],
        MPI_Datatype oldtype, MPI_Datatype* newtype)

Fortran Syntax
^^^^^^^^^^^^^^

.. code-block:: fortran

    USE MPI
    ! or the older form: INCLUDE 'mpif.h'
    MPI_TYPE_CREATE_INDEXED_BLOCK(COUNT, BLOCKLENGTH, ARRAY_OF_DISPLACEMENTS, OLDTYPE, NEWTYPE, IERROR)
    	INTEGER COUNT, BLOCKLENGTH, ARRAY_OF_DISPLACEMENTS(*), OLDTYPE, NEWTYPE, IERROR

    MPI_TYPE_CREATE_HINDEXED_BLOCK(COUNT, BLOCKLENGTH, ARRAY_OF_DISPLACEMENTS, OLDTYPE, NEWTYPE, IERROR)
    	INTEGER COUNT, BLOCKLENGTH, OLDTYPE, NEWTYPE, IERROR
    	INTEGER(KIND=MPI_ADDRESS_KIND) ARRAY_OF_DISPLACEMENTS(*)

Fortran 2008 Syntax
^^^^^^^^^^^^^^^^^^^

.. code-block:: fortran

    USE mpi_f08
    MPI_Type_create_indexed_block(count, blocklength, array_of_displacements, oldtype, newtype, ierror)
    	INTEGER, INTENT(IN) :: count, blocklength, array_of_displacements(count)
    	TYPE(MPI_Datatype), INTENT(IN) :: oldtype
    	TYPE(MPI_Datatype), INTENT(OUT) :: newtype
    	INTEGER, OPTIONAL, INTENT(OUT) :: ierror

    MPI_Type_create_indexed_block(count, blocklength, array_of_displacements, oldtype, newtype, ierror)
    	INTEGER(KIND=MPI_COUNT_KIND), INTENT(IN) :: count, blocklength, array_of_displacements(count)
    	TYPE(MPI_Datatype), INTENT(IN) :: oldtype
    	TYPE(MPI_Datatype), INTENT(OUT) :: newtype
    	INTEGER, OPTIONAL, INTENT(OUT) :: ierror

    MPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype, ierror)
    	INTEGER, INTENT(IN) :: count, blocklength
    	INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count)
    	TYPE(MPI_Datatype), INTENT(IN) :: oldtype
    	TYPE(MPI_Datatype), INTENT(OUT) :: newtype
    	INTEGER, OPTIONAL, INTENT(OUT) :: ierror

    MPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype, ierror)
    	INTEGER(KIND=MPI_COUNT_KIND), INTENT(IN) :: count, blocklength, array_of_displacements(count)
    	TYPE(MPI_Datatype), INTENT(IN) :: oldtype
    	TYPE(MPI_Datatype), INTENT(OUT) :: newtype
    	INTEGER, OPTIONAL, INTENT(OUT) :: ierror
