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