zio_find_locnx

INTERFACE:

         integer function zio_find_locnx(nx,mype,totpes,locnx,begin)

DESCRIPTION:

Find local size locnx and zero-based offset begin for process mype when the global dimension size is nx and the total process count is totpes.

REVISION HISTORY:

       2003-Jan-31 -- first prototype

USES:

         implicit none

INPUT PARAMETERS:

         integer, intent(in)  :: nx            ! global size
         integer, intent(in)  :: mype          ! PE rank
         integer, intent(in)  :: totpes        ! total number of PEs

OUTPUT PARAMETERS:

         integer, intent(out) :: locnx         ! local size for PE mype
         integer, intent(out) :: begin         ! beginning index (zero-based)

\