SUBROUTINE GETIDS(NIDS, MYBEGRNG, MYENDRNG)
*
* -- BLACS example code --
* Written by Clint Whaley 7/27/94.
* ..
* .. Scalar Arguments ..
INTEGER NIDS, MYBEGRNG, MYENDRNG
* ..
*
* Purpose
* =======
* GETIDS reserves NIDS message IDs for the user. The reserved
* IDs are on a continuous range, who's beginning is returned in
* MYBEGRNG, and who's ending is returned in MYENDRNG. Note:
* this routine should be called _before_ any calls to BLACSINIT
* or GRIDMAP.
*
* Arguments
* =========
* NIDS (input) INTEGER
* The number if IDs to reserve.
*
* MYBEGRNG (output) INTEGER
* The beginning of the reserved range.
*
* MYENDRNG (output) INTEGER
* The ending of the reserved range.
*
* =====================================================================
* ..
* .. External Subroutines ..
EXTERNAL MSGIDRANGE, SHIFTRANGE
* ..
* .. Executable Statements ..
*
* Get system-dependant initial ID range
*
MSGIDRANGE( MYBEGRNG, MYENDRNG )
*
* Reserve IDs for my own use
*
MYBEGRNG = BEGRNG1
SHIFTRANGE( MYBEGRNG+NIDS+1, MYENDRNG )
MYENDRNG = MYBEGRNG + NIDS
RETURN
END