w90_set_comm_integer Subroutine

  subroutine w90_set_comm_integer(common_data, comm)
    implicit none

    type(lib_common_type), intent(inout) :: common_data
    integer, intent(in) :: comm
#ifdef MPI08
    ! MPI_VAL is the internal integer component used within MPI handle derived types
    ! This can safely be set by a passed in integer and allows greater freedom in the
    ! interoperability between a higher level program compiled with any version of
    ! MPI library support, mpif.h or mpi.f90 or mpif08.
    common_data%comm%comm%MPI_VAL = comm
#else
    common_data%comm%comm = comm
#endif
  end subroutine w90_set_comm_integer