mp_environ_c2 Subroutine

private subroutine mp_environ_c2(comm, ndims, dims, task_coor, periods)

Arguments

Type IntentOptional Attributes Name
type(mp_comm_type), intent(in) :: comm
integer, intent(in) :: ndims
integer, intent(out) :: dims(ndims)
integer, intent(out) :: task_coor(ndims)
logical, intent(out) :: periods(ndims)

Source Code

   SUBROUTINE mp_environ_c2(comm, ndims, dims, task_coor, periods)

      TYPE(mp_comm_type), INTENT(IN)                     :: comm
      INTEGER, INTENT(IN)                                :: ndims
      INTEGER, INTENT(OUT)                               :: dims(ndims), task_coor(ndims)
      LOGICAL, INTENT(out)                               :: periods(ndims)

      INTEGER                                            :: ierr

      ierr = 0

      task_coor = 0
      dims = 1
      periods = .FALSE.
#if defined(__parallel)
      CALL mpi_cart_get(comm%handle, ndims, dims, periods, task_coor, ierr)
      IF (ierr /= 0) CALL mp_stop(ierr, "mpi_cart_get @ mp_environ_c")
#else
      MARK_USED(comm)
#endif

   END SUBROUTINE mp_environ_c2