Some Fortran fixes to r26967.

This commit was SVN r26968.

The following SVN revision numbers were found above:
  r26967 --> open-mpi/ompi@083938cc10

ompi/mpi/fortran/base/mpi-f08-interfaces.F90

@@ -731,7 +731,7 @@ interface  MPI_Type_create_hindexed_block
 subroutine MPI_Type_create_hindexed_block_f08(count,blocklength, &
                            array_of_displacements,oldtype,newtype,ierror &
            ) OMPI_F08_INTERFACE_BIND_C("MPI_Type_create_hindexed_block_f08")
-   use :: mpi_f08_types, only : MPI_Datatype
+   use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
    implicit none
    INTEGER, INTENT(IN) :: count, blocklength
    INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count)

ompi/mpi/fortran/base/pmpi-f08-interfaces.F90

@@ -731,7 +731,7 @@ interface  PMPI_Type_create_hindexed_block
 subroutine PMPI_Type_create_hindexed_block_f08(count,blocklength, &
                            array_of_displacements,oldtype,newtype,ierror &
            ) OMPI_F08_INTERFACE_BIND_C("PMPI_Type_create_hindexed_block_f08")
-   use :: mpi_f08_types, only : MPI_Datatype
+   use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
    implicit none
    INTEGER, INTENT(IN) :: count, blocklength
    INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count)

ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h

@@ -528,6 +528,7 @@ end subroutine ompi_type_create_indexed_block_f
 subroutine ompi_type_create_hindexed_block_f(count,blocklength, &
                             array_of_displacements,oldtype,newtype,ierror) &
    BIND(C, name="ompi_type_create_hindexed_block_f")
+   use :: mpi_f08_types, only : MPI_ADDRESS_KIND
    implicit none
    INTEGER, INTENT(IN) :: count, blocklength
    INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count)

ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h

@@ -528,6 +528,7 @@ end subroutine pompi_type_create_indexed_block_f
 subroutine pompi_type_create_hindexed_block_f(count,blocklength, &
                             array_of_displacements,oldtype,newtype,ierror) &
    BIND(C, name="pompi_type_create_hindexed_block_f")
+   use :: mpi_f08_types, only : MPI_ADDRESS_KIND
    implicit none
    INTEGER, INTENT(IN) :: count, blocklength
    INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count)

ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_block_f08.F90

@@ -4,11 +4,12 @@
 !                         of Tennessee Research Foundation.  All rights
 !                         reserved.
 ! Copyright (c) 2012      Inria.  All rights reserved.
+! Copyright (c) 2012 Cisco Systems, Inc.  All rights reserved.
 ! $COPYRIGHT$
 
 subroutine PMPI_Type_create_hindexed_block_f08(count,blocklength, &
                            array_of_displacements,oldtype,newtype,ierror)
-   use :: mpi_f08_types, only : MPI_Datatype
+   use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
    use :: mpi_f08, only : ompi_type_create_hindexed_block_f
    implicit none
    INTEGER, INTENT(IN) :: count, blocklength

ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_block_f08.F90

@@ -4,11 +4,12 @@
 !                         of Tennessee Research Foundation.  All rights
 !                         reserved.
 ! Copyright (c) 2012      Inria.  All rights reserved.
+! Copyright (c) 2012 Cisco Systems, Inc.  All rights reserved.
 ! $COPYRIGHT$
 
 subroutine MPI_Type_create_hindexed_block_f08(count,blocklength, &
                            array_of_displacements,oldtype,newtype,ierror)
-   use :: mpi_f08_types, only : MPI_Datatype
+   use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
    use :: mpi_f08, only : ompi_type_create_hindexed_block_f
    implicit none
    INTEGER, INTENT(IN) :: count, blocklength

ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in

@@ -3230,6 +3230,7 @@ interface MPI_Type_create_hindexed_block
 
 subroutine MPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype&
         , ierr)
+  include 'mpif-config.h'
   integer, intent(in) :: count
   integer, intent(in) :: blocklength
   integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: array_of_displacements