include `s3l/s3l-f.h'
include `s3l/s3l_errno-f.h'
subroutine
S3L_set_process_grid(pgrid,
rank, majorness, grid_extents, plist_length, process_list, ier)
    integer*8          pgrid
    integer*4          rank
    integer*4          majorness
    integer*4          grid_extents(*)
    integer*4          plist_length
    integer*4          process_list(*)
    integer*4          ier