Can be answered with
integer coords(2) call MPI_COMM_RANK( comm1d, myrank, ierr ) call MPI_CART_COORDS( comm1d, myrank, 2, $ coords, ierr )