Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | comm | |||
integer, | intent(in) | :: | ndims | |||
integer, | intent(out) | :: | dims(ndims) | |||
integer, | intent(out) | :: | task_coor(ndims) | |||
logical, | intent(out) | :: | periods(ndims) |
SUBROUTINE mp_environ_c2(comm, ndims, dims, task_coor, periods)
INTEGER, INTENT(IN) :: comm, 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, 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