/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* irollp APL2 V1.0.0 ***************************************************
* Returns a random selection from the whole numbers beginning with     *
* indxorg and ending with indxorg+n-1.  This version works with        *
* the zortech C++ compiler.                                            *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void irollp(narg,ret)
int *narg,*ret;
{
	extern int aplerr;
	extern int indxorg;
	int n,r;
#if APL_DOS
	double divisor=32767.0;
#else
	double divisor=RAND_MAX;
#endif 

	n = *narg;
	if (n == 0)
     	*ret = 0;
	else if (n < 0) {
		aplerr = 37;
		*ret = 0;
	}
     else
		*ret = indxorg + (int) (((double) rand())/divisor * (double) n);
}