SUBROUTINE mp_environ_c(numtask, dims, task_coor, groupid)
INTEGER, INTENT(OUT) :: numtask, dims(2), &
task_coor(2)
INTEGER, INTENT(IN) :: groupid
INTEGER :: ierr
#if defined(__parallel)
LOGICAL, DIMENSION(2) :: periods
#endif
ierr = 0
numtask = 1
task_coor = 0
dims = 1
#if defined(__parallel)
CALL mpi_comm_size(groupid, numtask, ierr)
IF (ierr /= 0) CALL mp_stop(ierr, "mpi_comm_size @ mp_environ_c")
CALL mpi_cart_get(groupid, 2, dims, periods, task_coor, ierr)
IF (ierr /= 0) CALL mp_stop(ierr, "mpi_cart_get @ mp_environ_c")
#else
MARK_USED(groupid)
#endif
END SUBROUTINE mp_environ_c