w90_set_comm Subroutine

public subroutine w90_set_comm(common_data, comm)

Arguments

Type IntentOptional Attributes Name
type(lib_common_type), intent(inout) :: common_data
integer, intent(in) :: comm

Source Code

  subroutine w90_set_comm(common_data, comm)
#ifdef W90_MPI08
    use mpi_f08
#endif
    implicit none

#ifdef W90_MPIH
    include 'mpif.h'
#endif

    type(lib_common_type), intent(inout) :: common_data
#ifdef W90_MPI08
    type(mpi_comm), intent(in) :: comm
#else
    integer, intent(in) :: comm
#endif
    common_data%comm%comm = comm
  end subroutine w90_set_comm